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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
; Y' h& i0 i4 a5 i% Y即在一文本文件中列出:
0 `* M1 l! f+ y8 f1 {1 w7 `中国
  n: R: Y( V8 s: F9 j英国
美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
' B, I, ~) c- f1.首先，如何将文本文件中的词条读入程序中？
5 o! R$ O1 C; @  h3 |$ E    假定pop.txt文本文件的路径为：e:\ck
   且pop.txt文本文件的内容为：
中国
英国
$ _4 G4 r4 O+ Y) m美国

. O" f3 \4 ]3 w. L   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  
9 A: }& [% S9 \
1 N1 v7 \( K; {% z' _' ?2 q   ;;读取文件中的词条
# m" y- w6 d. s   (setq pf "e:\\ck\\pop.txt")
   (setq f (open pf "r"))
   (setq txti (read-line f))
8 X4 k( F4 w. \# f: J   (while (/= txti nil)
      (progn
* M. @- W! n6 ~% h          (setq txt (append txt (list txti)))
" ?* Z% q6 }1 M0 n3 d          (setq txti (read-line f))
7 ~6 b4 g9 t4 i" U, v      )
    );end of while
    (close f)

8 x) B$ j" f( i& f( @9 I! N! S2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
   pop:dialog{
          label="弹出列表应用";
2 A* k$ M% x4 k  U+ k0 k9 Z8 {         :row{
              :popup_list{
                         key="pop_i";
( B3 k6 X$ c$ A9 e8 H+ S: |% R                         width=20;
' y5 c, i0 _6 X+ Q$ r                         }
             }
1 u2 D" F0 ?' P0 b3 e- y- z         spacer;
* y: f! {& i$ F# ~' G         ok_cancel;
   }
# a  {' T) M1 @) K+ k  @$ m9 J
1 d4 s6 N$ w6 ^1 ^" {9 W   编写加入对话框弹出列表子函数popup_box 如下：  
  q1 W9 c1 u! B% Q7 q# ]2 }4 Q  ]- P  (defun popup_box (list_name list_tab)   
      (stare_list list_name)
      (mapcar 'add_list list_tab)
# ^8 @+ A: h: |3 X- C7 Q1 G      (end_list)
   )
1 ~$ D$ y* f5 F7 S% g9 a7 z
  在主程序中编写如下代码运行对话框：
8 N+ X3 v/ H/ Z  _   ;;运行对话框
   (while (< 2 what_n)
) B: M/ ~: j. i7 M& a- }      (popup_box "pop_i" txt)   ;加入对话框弹出列表
/ Z- i4 O. a: a) u6 X" u8 L      (action_tile "cancel" "(done_dialog 0)")
      (action_tile "pop_i" "(get_zhi $value)")
& L, `0 j/ f' ~, R      (setq what_n (start_dialog))
      (cond ((= 1 what_n) (do txt_zhi)))
' w' f* ?- h* |! ^' c; g) ?    );end of while
    (unload_dialog dcl_id)

) a  d5 \) O  D; i' P9 j  至此，编程大功告成了。

[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

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

  编写加入对话框弹出列表子函数popup_box 如下：  
4 ]6 A5 C+ j% m  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
" ]; r( w$ T7 V; J1 v      (mapcar 'add_list list_tab)
      (end_list)
   )

ysryc99001

很好！试验一下，谢谢！