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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
即在一文本文件中列出:
6 p. _* p8 i. S, t. [) Z# w中国
& M, P5 ~' |9 u) S7 p英国
3 |& }/ O5 [# }) S; |美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
. f* l; c( \! {: a1.首先，如何将文本文件中的词条读入程序中？
    假定pop.txt文本文件的路径为：e:\ck
   且pop.txt文本文件的内容为：
中国
) H4 d' z: j7 {英国
' N4 x3 a7 }# `美国

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

   ;;读取文件中的词条
5 b" c! g, h" {7 z   (setq pf "e:\\ck\\pop.txt")
3 {  t# ]2 K5 d' ]7 ^! ]   (setq f (open pf "r"))
3 I2 Y/ A  k5 z3 W   (setq txti (read-line f))
   (while (/= txti nil)
: g4 i$ V4 E" _, J, c0 |* n& X1 \      (progn
          (setq txt (append txt (list txti)))
, {6 u( c/ _2 ?6 |8 Y          (setq txti (read-line f))
) U& K  T8 S3 Q: U3 N% \      )
' ~1 n  D3 S& e! ?2 j    );end of while
$ q$ w! D" I% n2 N6 T    (close f)
4 q4 ~' Q- S$ \% y; f" N6 U
2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
1 _$ A) A/ z7 F" d8 L4 t   pop:dialog{
          label="弹出列表应用";
         :row{
' h  W$ I% T& L              :popup_list{
                         key="pop_i";
) W- i, J  a; `; z. h0 J+ R0 Z) `                         width=20;
2 @2 d8 C5 o% o- @; S; y9 C                         }
             }
/ A; h" q( f% k# P         spacer;
" Y- g8 ^9 ^$ w- u; N         ok_cancel;
   }
6 j& f8 v0 R" T, R+ k
   编写加入对话框弹出列表子函数popup_box 如下：  
0 V0 n9 S4 }7 V  (defun popup_box (list_name list_tab)   
6 R5 x0 ]- `- K0 P- a* W. j      (stare_list list_name)
      (mapcar 'add_list list_tab)
+ S3 L+ ]' h2 [. y- W0 F6 b3 y$ j      (end_list)
   )
: s. I, ?- W! i) i8 O& t8 x
  在主程序中编写如下代码运行对话框：
) j& {9 u& Z" B   ;;运行对话框
   (while (< 2 what_n)
      (popup_box "pop_i" txt)   ;加入对话框弹出列表
" s9 i) e$ Z6 y3 s      (action_tile "cancel" "(done_dialog 0)")
      (action_tile "pop_i" "(get_zhi $value)")
      (setq what_n (start_dialog))
3 |* w8 r! v/ V0 I$ J8 C      (cond ((= 1 what_n) (do txt_zhi)))
  |1 J6 I% U& G' U6 t% h4 F2 R* G    );end of while
    (unload_dialog dcl_id)

  至此，编程大功告成了。
" m9 _& ]4 }% C  Q& l; F+ y  v
[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

更正一个错误，更正如下：
( C5 |' \5 C+ g) E6 L  S! \9 F& a4 s
# t; p* x4 K/ t  }; d  编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
      (mapcar 'add_list list_tab)
      (end_list)
   )

ysryc99001

很好！试验一下，谢谢！