如何在DCL文件中的下拉框中显示指定文本文件的内容?

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
2 |) B  d( W  |3 [4 Y4 f即在一文本文件中列出:
中国
5 w# r' B- G1 s( x3 w5 `英国
% q& c& C0 ?0 a( d* M( a美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
9 m5 Q' C$ G$ ?" U9 i如何实现这样的功能???

sealive_leafage

如果只是想在当前CAD中实现，比较简单将增加的项存在列表的变量中即可；如果想CAD关闭后再次打开还可用，就要把列表内的项存在文件中，如txt文件，程序启动时读取txt的列表项，然后加入，新增要写txt文件；

maoyangmy

二楼的能不能提供一下实例?随便编写一段LSP程序?

cd028asdf028

楼主又发贴了，但无人接招。建议各位高手对求助类的帖子经常关注，直到解决为止，也不枉我等菜鸟的一片期待啊，谢谢

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
1.首先，如何将文本文件中的词条读入程序中？
- [8 v+ ~/ A2 f6 D' g    假定pop.txt文本文件的路径为：e:\ck
   且pop.txt文本文件的内容为：
中国
英国
美国

. b( w- ?( h# Z# n2 {   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  
. {& ^7 x; b2 M" s. Y
$ A; T( i  j! F1 g& N   ;;读取文件中的词条
. i! g6 l$ Y, g# Z- o   (setq pf "e:\\ck\\pop.txt")
8 Q+ F! y  ~3 i. j  v8 v   (setq f (open pf "r"))
/ Z$ `# M3 J. k- t1 k4 E! ]   (setq txti (read-line f))
   (while (/= txti nil)
      (progn
          (setq txt (append txt (list txti)))
0 ]# x5 v8 v0 s% ?4 R          (setq txti (read-line f))
, [) e, ]0 Z! e. C/ h+ K      )
9 k* A1 B7 m; K6 w+ z# h    );end of while
    (close f)
& f; k' k, N" t6 ^2 o: `
1 ^$ F* ^) T' l( \2. 如何将获得的词条加入对话框的弹出列表中？
) o7 Z. o5 ~) a9 S# `7 y   创建对话框文件pop.dcl如下：
   pop:dialog{
          label="弹出列表应用";
         :row{
! z+ V* O7 K% H              :popup_list{
; S4 N; j. ?' f2 ~                         key="pop_i";
                         width=20;
                         }
             }
; o  n5 A: \) ?         spacer;
0 S" i9 j0 {! ^* S6 m5 M' u, z         ok_cancel;
% \/ F8 m# p7 D7 D7 R   }
" r5 l2 r9 F- l* Y
" T/ {, T" X' K/ J$ |6 h6 ^   编写加入对话框弹出列表子函数popup_box 如下：  
5 p& i+ I/ m: S7 F$ h) c$ `! R  (defun popup_box (list_name list_tab)   
6 j" f3 }/ U! u' h* z: Z0 P' b# n      (stare_list list_name)
7 z$ M1 R/ H; T, t      (mapcar 'add_list list_tab)
      (end_list)
   )

& D/ `  `  K6 w  在主程序中编写如下代码运行对话框：
   ;;运行对话框
# C7 n; v$ v* M& z. b8 i7 p$ r   (while (< 2 what_n)
      (popup_box "pop_i" txt)   ;加入对话框弹出列表
      (action_tile "cancel" "(done_dialog 0)")
      (action_tile "pop_i" "(get_zhi $value)")
      (setq what_n (start_dialog))
2 P; D3 R5 e, q' ]! s/ B; t      (cond ((= 1 what_n) (do txt_zhi)))
    );end of while
, f. c3 J& o" D0 q" ?/ O$ E$ n    (unload_dialog dcl_id)
+ c- g3 K/ N/ U
  至此，编程大功告成了。

5 `  K+ r& N( p9 Q[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

更正一个错误，更正如下：

  编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
$ @. T3 F4 R8 O$ H) ]1 p      (start_list list_name)                      ;更正的一句
9 p% A5 J( W7 _5 W$ U) E      (mapcar 'add_list list_tab)
      (end_list)
   )

ysryc99001

很好！试验一下，谢谢！