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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
即在一文本文件中列出:
中国
英国
. V& u' s- A# l9 v' n! {美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
1.首先，如何将文本文件中的词条读入程序中？
& y8 l5 f, W5 g    假定pop.txt文本文件的路径为：e:\ck
   且pop.txt文本文件的内容为：
中国
2 `; T( |' F" B英国
美国

   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  

   ;;读取文件中的词条
   (setq pf "e:\\ck\\pop.txt")
, R9 s8 w, e% @' a" G1 C$ Z   (setq f (open pf "r"))
3 J/ d- s/ p' G& y" x3 R! i   (setq txti (read-line f))
1 B* Z# L' o! Y3 ]9 ~7 Y   (while (/= txti nil)
      (progn
! Y& X( ^9 Q/ \( @          (setq txt (append txt (list txti)))
* Y' M4 A' C, r+ k# @8 z8 E* F% e6 U          (setq txti (read-line f))
3 z* p, T. N# o! Q0 w      )
6 `3 J7 j. G1 V    );end of while
    (close f)

( l% d9 e% _# y8 b2. 如何将获得的词条加入对话框的弹出列表中？
* f1 N2 N: t* S+ V9 i+ r: h8 u   创建对话框文件pop.dcl如下：
* x3 {) E1 w+ k  }+ \   pop:dialog{
: q5 n/ q( }' H: Z4 m          label="弹出列表应用";
         :row{
, v4 z( p- i& z9 g              :popup_list{
                         key="pop_i";
                         width=20;
                         }
             }
         spacer;
9 _. c1 G& r1 I         ok_cancel;
   }

   编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
      (stare_list list_name)
      (mapcar 'add_list list_tab)
      (end_list)
   )

. {& D. A' L* ~2 w; g& v  在主程序中编写如下代码运行对话框：
& f+ C! Z, A9 q! g  r) Q: `, v   ;;运行对话框
   (while (< 2 what_n)
      (popup_box "pop_i" txt)   ;加入对话框弹出列表
% z1 ]& x' E6 R      (action_tile "cancel" "(done_dialog 0)")
3 H( U# a8 V  P      (action_tile "pop_i" "(get_zhi $value)")
      (setq what_n (start_dialog))
      (cond ((= 1 what_n) (do txt_zhi)))
+ h6 y# x; r. r    );end of while
    (unload_dialog dcl_id)
9 B" I7 O2 P8 E1 k4 T: [# X0 L
  至此，编程大功告成了。
/ X; g) H1 f) h2 N+ T# ^+ s
% y5 x! n- W. M  M0 Y# R  W6 j2 T[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

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

  编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
- Q. e. z5 [: i0 a* r8 C/ c      (start_list list_name)                      ;更正的一句
      (mapcar 'add_list list_tab)
% u8 z: _/ O# P4 V% l9 s      (end_list)
# t' L2 N( w2 Z. ?% H4 T# P3 C" T   )

ysryc99001

很好！试验一下，谢谢！