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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
即在一文本文件中列出:
% E9 o$ e7 }. d, j2 V5 O, E5 T中国
英国
美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
( S5 B: d0 a' l* y8 t7 K如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
: x0 t9 r! X/ f; Q2 w7 D6 T$ @1.首先，如何将文本文件中的词条读入程序中？
* f) W6 Z# [; U  b" r    假定pop.txt文本文件的路径为：e:\ck
   且pop.txt文本文件的内容为：
中国
1 P$ h. [4 }3 x2 a: y$ x英国
0 c& p! P1 \9 o7 S美国
1 G6 D# y: S6 T4 }# }! G+ a4 J
$ g4 S8 d/ ^  K   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  

   ;;读取文件中的词条
   (setq pf "e:\\ck\\pop.txt")
1 O: m; |/ t) [   (setq f (open pf "r"))
2 o/ x4 g, H5 _$ R7 s* c   (setq txti (read-line f))
6 e7 c) x( Y0 z; ~   (while (/= txti nil)
  ?* ^1 W% V3 v      (progn
          (setq txt (append txt (list txti)))
7 s- ]* ^- Y$ n+ `- w% c          (setq txti (read-line f))
( n4 O  G: O5 d9 N  q      )
: n( x, f/ Z2 c' C  q6 ~    );end of while
  k7 h3 _  q# x' t1 G" w    (close f)

2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
   pop:dialog{
          label="弹出列表应用";
8 }# d3 l, S7 e( K9 M7 J         :row{
              :popup_list{
                         key="pop_i";
                         width=20;
                         }
             }
         spacer;
         ok_cancel;
+ @; x& T" @6 y& E. T   }
) a0 r& ]0 s+ b9 w( v
   编写加入对话框弹出列表子函数popup_box 如下：  
+ i9 t# L& h: T- O1 f( u  (defun popup_box (list_name list_tab)   
      (stare_list list_name)
      (mapcar 'add_list list_tab)
      (end_list)
   )

4 B5 r4 D# G# \, s) s. O  在主程序中编写如下代码运行对话框：
   ;;运行对话框
   (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))
      (cond ((= 1 what_n) (do txt_zhi)))
    );end of while
    (unload_dialog dcl_id)

! r# B4 z7 T" p* A  至此，编程大功告成了。
) n3 X+ `1 W. R" t7 e
" ^2 S; k$ ]2 B' H2 k[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

更正一个错误，更正如下：
7 a% C) Z3 o: _- S
+ K0 p' Q  g' M' M  编写加入对话框弹出列表子函数popup_box 如下：  
# m7 j, Z! J( K" i! r9 w  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
$ @; i+ r: @! y0 _7 L, ]0 n      (mapcar 'add_list list_tab)
      (end_list)
   )

ysryc99001

很好！试验一下，谢谢！