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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
即在一文本文件中列出:
. F6 Y5 t! ~% w6 K" y# v( o* |( N中国
* d) W5 j. D- t2 r0 E1 J) N/ L( T英国
美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
# U) s! s/ e' v如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
1.首先，如何将文本文件中的词条读入程序中？
    假定pop.txt文本文件的路径为：e:\ck
! ~+ n5 S% G5 b  w" ?- b9 O% F' b   且pop.txt文本文件的内容为：
中国
英国
1 w# b4 B! k, k" N. p美国

6 {# ]2 ~% K4 w5 `1 [( ~# K3 f% r+ o   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  
4 h' E# E! N  S  }* x  U# X+ D/ }6 }
1 M* C, _4 H% z   ;;读取文件中的词条
   (setq pf "e:\\ck\\pop.txt")
   (setq f (open pf "r"))
   (setq txti (read-line f))
4 \% S0 m$ p0 X: `8 Y   (while (/= txti nil)
      (progn
          (setq txt (append txt (list txti)))
          (setq txti (read-line f))
      )
( @6 i% h  I( c' i    );end of while
0 L1 _" o4 B, q+ `( |8 [! K) h) i    (close f)

2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
" E! R, N! w. r' P! M8 u   pop:dialog{
. ]7 V7 a, Q: p) U' E          label="弹出列表应用";
         :row{
              :popup_list{
0 v8 t/ w& Q. P  n" r9 K% p                         key="pop_i";
" P8 i) ~8 R4 j* L* Z: V, V                         width=20;
                         }
6 l  }0 Y# z  l) L" n8 [! z             }
         spacer;
' K: P+ p/ S. J         ok_cancel;
9 |5 |1 L$ Y! H+ p   }

  z: r! |# v9 u2 j8 c. y- F8 E   编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
      (stare_list list_name)
      (mapcar 'add_list list_tab)
      (end_list)
- u9 e' s5 r( ?8 v# b5 @" P   )

8 [0 i3 t. I" @% _# k5 f  在主程序中编写如下代码运行对话框：
   ;;运行对话框
   (while (< 2 what_n)
9 q- _; Z& Z7 [      (popup_box "pop_i" txt)   ;加入对话框弹出列表
      (action_tile "cancel" "(done_dialog 0)")
3 A8 t& Q& i: m/ Y! D8 x* m+ ~      (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)

0 V7 M0 L9 X0 G9 N8 R  至此，编程大功告成了。

+ R  m" |% n: n. a5 B; K2 M. p[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

更正一个错误，更正如下：
& J/ I+ j9 @3 }/ v/ H! `$ m3 s
: L" z) n5 E4 Y/ c& f  编写加入对话框弹出列表子函数popup_box 如下：  
3 O& [9 {( k3 w- e' Y, ?# q  (defun popup_box (list_name list_tab)   
/ _4 d0 r% X- B! x+ a+ z      (start_list list_name)                      ;更正的一句
8 z, E9 Q9 O9 @% t  f1 S9 J+ ~, r1 H      (mapcar 'add_list list_tab)
/ B% T' [: L4 M* t0 r      (end_list)
   )

ysryc99001

很好！试验一下，谢谢！