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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
/ Z* r: q% s2 V, H. g! Z即在一文本文件中列出:
, S: K1 z; B* ?/ ^9 E; Y6 l3 ]1 @中国
- c0 `+ {% {' `3 l# D, a英国
7 D0 a1 O+ D, [( H美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
1 |) q0 [6 |, s1.首先，如何将文本文件中的词条读入程序中？
9 a. j0 y9 `& [7 u# S& Y    假定pop.txt文本文件的路径为：e:\ck
: I$ g( Y" K5 G6 R/ h; f, f/ _; Z   且pop.txt文本文件的内容为：
, n7 u. H3 j0 Y8 |% T! p; q& m; }中国
4 f& Q! h! W% ?' W5 T+ J$ v, p9 G2 j英国
3 E3 _0 \& Z2 _6 l- `" F美国

   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  
9 r1 e3 w: y- k2 h* ~, h
) R( V7 }' B; K! g2 C1 V9 B   ;;读取文件中的词条
- [" J; l, L' j1 K- A   (setq pf "e:\\ck\\pop.txt")
+ H8 ^  t0 @) ?' g4 `   (setq f (open pf "r"))
   (setq txti (read-line f))
' @* g9 B- p: U, y   (while (/= txti nil)
      (progn
          (setq txt (append txt (list txti)))
          (setq txti (read-line f))
+ W8 ?; x6 y! a: c+ T      )
! d# j4 T/ _: z7 b; }    );end of while
- e# T0 C6 k# Q( C1 {- i    (close f)
4 ~+ ?' I' U8 G+ _: e2 n
  ~- _" e6 t; }6 e2. 如何将获得的词条加入对话框的弹出列表中？
5 u7 D2 S( c& F" r) T1 K   创建对话框文件pop.dcl如下：
, A$ K1 O6 c5 D3 G7 r" Z9 Y) I   pop:dialog{
          label="弹出列表应用";
         :row{
; o8 X# T3 b8 I. _              :popup_list{
                         key="pop_i";
. x3 w( D) [$ d5 t+ z+ B% b                         width=20;
                         }
             }
         spacer;
         ok_cancel;
9 n' m" C7 `' ~6 h$ o5 a( R3 @. N; l   }

   编写加入对话框弹出列表子函数popup_box 如下：  
, k9 h; y$ }4 y6 x  b  (defun popup_box (list_name list_tab)   
6 h" ~6 ^+ P. i! S! o! ^      (stare_list list_name)
/ d, D0 o! ]; G( q9 W+ s      (mapcar 'add_list list_tab)
7 T2 ?( n5 }; U/ a/ ?7 G      (end_list)
% G$ }' E0 d7 |! }4 T# `   )
# y$ Z/ f( ~- Y9 u
  在主程序中编写如下代码运行对话框：
$ Z3 X3 W  n. y4 E   ;;运行对话框
   (while (< 2 what_n)
      (popup_box "pop_i" txt)   ;加入对话框弹出列表
      (action_tile "cancel" "(done_dialog 0)")
      (action_tile "pop_i" "(get_zhi $value)")
2 M0 q3 Q' N3 x8 D      (setq what_n (start_dialog))
' @# |, D( V! ]. @) t: h8 \4 M' }      (cond ((= 1 what_n) (do txt_zhi)))
    );end of while
* g8 k- e2 A5 |. A' U, l7 r  K: K    (unload_dialog dcl_id)
+ n3 y/ M# {, f& h! R  \
  至此，编程大功告成了。
0 E- q; H+ n0 E( T' l- i0 V* D
! ~% X- I  g$ n% S8 L& Q[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

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

' E9 T) [$ Y+ k* e  编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
# l: S  D& r$ ~4 n# o; H" {0 N8 w      (mapcar 'add_list list_tab)
      (end_list)
6 S% c$ A' B8 t   )

ysryc99001

很好！试验一下，谢谢！