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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
$ R. I: s4 w$ _2 [即在一文本文件中列出:
; v) c6 [  l% O8 g3 F3 x8 k7 \中国
, ?2 j1 `2 z. W4 r英国
( c( X* h8 V& }+ _美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
$ j9 D- I# P( O; ]* ~如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
1.首先，如何将文本文件中的词条读入程序中？
6 f$ o* u6 w" o: q    假定pop.txt文本文件的路径为：e:\ck
   且pop.txt文本文件的内容为：
% n3 o6 q6 o$ I" J中国
英国
美国
8 X5 B9 T& v) S. P
   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  

$ L9 E4 w% Q8 H2 }   ;;读取文件中的词条
6 \/ W/ b" a+ _& _3 S   (setq pf "e:\\ck\\pop.txt")
: n: ]  K+ \9 |( o6 m# q* Z8 C   (setq f (open pf "r"))
   (setq txti (read-line f))
: Z0 o) b3 C  W; v$ x3 X   (while (/= txti nil)
      (progn
          (setq txt (append txt (list txti)))
3 B/ n, ~" m$ F          (setq txti (read-line f))
      )
' O  b& Y+ ]# s8 M, S1 @4 l: h    );end of while
    (close f)
6 K) \! T, u: v+ {2 i/ R; N
2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
   pop:dialog{
% O/ q1 ^8 d, X6 }" R          label="弹出列表应用";
: T2 t+ j9 Z' x  H9 T' p  D0 K( e         :row{
3 J/ ]( R8 }' f9 e              :popup_list{
                         key="pop_i";
7 v# {2 w9 b7 Z3 b                         width=20;
. X% H# R0 ^/ l) i                         }
3 ?( g* c0 s0 w# O  s             }
         spacer;
: z" Q, n: B9 q- ~. `         ok_cancel;
$ P+ P7 I% L5 t" r   }

; Q3 X: p  R, @2 I0 b6 F: `! F$ w   编写加入对话框弹出列表子函数popup_box 如下：  
9 O/ ]; [3 o% N5 M1 t; T  (defun popup_box (list_name list_tab)   
; Q: s( i8 o. a. O& U      (stare_list list_name)
# B* c5 F/ z( Q8 D* v; b* P( }5 g5 n      (mapcar 'add_list list_tab)
2 [" d9 a! u8 O- w* G, P$ ?      (end_list)
; N6 ?5 _9 R4 T4 @   )
5 N) U; R5 K5 I2 b: s9 ~' Y+ J
. H$ B, o) s9 t' e  在主程序中编写如下代码运行对话框：
   ;;运行对话框
0 G$ Q3 U' F  {! _   (while (< 2 what_n)
. C7 {9 B4 |6 {: \% e' q4 R      (popup_box "pop_i" txt)   ;加入对话框弹出列表
      (action_tile "cancel" "(done_dialog 0)")
0 o4 S/ z0 X4 p0 o      (action_tile "pop_i" "(get_zhi $value)")
" G( }7 @2 W$ v& {! L) Z5 z      (setq what_n (start_dialog))
" S% g# m' x, }& V# b! X0 P      (cond ((= 1 what_n) (do txt_zhi)))
8 `/ f! C5 L- k/ I' P) Z    );end of while
8 o8 }% q1 E9 _# z  c    (unload_dialog dcl_id)
( J7 @8 I  C0 U) q7 p) m
6 e1 Z1 D6 p& e  至此，编程大功告成了。

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

ljm68

更正一个错误，更正如下：
8 h+ W( _2 i( S  e0 f# L
  B2 |2 @! _+ `) k# O, w  编写加入对话框弹出列表子函数popup_box 如下：  
6 h1 r+ M* S! q% R& t  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
$ U5 L# ?6 b0 J4 ?  C" |      (mapcar 'add_list list_tab)
      (end_list)
   )

ysryc99001

很好！试验一下，谢谢！