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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
7 o( O) h* a5 a% w即在一文本文件中列出:
) ]! `* n) f- p( T( [中国
: W1 X3 Y; j1 H/ a" u英国
$ C; d# g0 k; J4 K1 ^美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
5 A4 c; R; ]( X  r如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
; [5 ^; T+ w2 d+ w1.首先，如何将文本文件中的词条读入程序中？
    假定pop.txt文本文件的路径为：e:\ck
   且pop.txt文本文件的内容为：
, n2 r% j' X! c% w中国
) ~% _$ A" P& ~  {& m2 Y+ B, I英国
- {0 q% ?2 v2 \- k5 Z, K1 e美国

5 \6 \" F4 Z3 k0 `" `, ]  E- R   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  
' \1 K* F% P3 k# i
   ;;读取文件中的词条
: y4 R8 i. O* x  ~   (setq pf "e:\\ck\\pop.txt")
7 }* J$ |, e, L6 J   (setq f (open pf "r"))
   (setq txti (read-line f))
# w2 w1 x4 `3 x( O/ @   (while (/= txti nil)
      (progn
4 l" T5 z7 N" b5 E8 Z* S          (setq txt (append txt (list txti)))
          (setq txti (read-line f))
      )
    );end of while
    (close f)
  K+ x: |. M, @4 r
& L& K8 G# k0 D" x- O, }2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
   pop:dialog{
          label="弹出列表应用";
         :row{
  e& F% F. X0 |3 ]! f              :popup_list{
                         key="pop_i";
                         width=20;
1 x9 l. X  j$ u, P6 R& r                         }
             }
8 a5 f7 ]$ B7 p; G3 r$ ^! C" K         spacer;
         ok_cancel;
   }
! T  y+ \: j/ w
& o& _+ K& C) n1 B6 I" T1 q# y   编写加入对话框弹出列表子函数popup_box 如下：  
! S/ f/ g5 k! h  J6 F  (defun popup_box (list_name list_tab)   
) G# x9 a! `' ]: h      (stare_list list_name)
      (mapcar 'add_list list_tab)
, F9 o4 A; h# ?0 i7 u2 r. H      (end_list)
& k' G  a) Z5 q) O' p3 m   )

  在主程序中编写如下代码运行对话框：
8 W2 M! L, v- I0 `+ @8 A! @* r* G   ;;运行对话框
3 s2 Y3 s5 v3 }! J9 u( B: U, \   (while (< 2 what_n)
      (popup_box "pop_i" txt)   ;加入对话框弹出列表
      (action_tile "cancel" "(done_dialog 0)")
1 g. c( U2 a  W, S      (action_tile "pop_i" "(get_zhi $value)")
/ n- r2 W, \& J5 M      (setq what_n (start_dialog))
. F& I( i# r) _' R  r& s; t      (cond ((= 1 what_n) (do txt_zhi)))
0 n: B/ K: D7 b' a. e    );end of while
$ i0 r% K! i: S- K/ w    (unload_dialog dcl_id)

  f! a0 b2 W; R# K0 y  至此，编程大功告成了。
) G: J# [& k3 b; M
[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

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

  编写加入对话框弹出列表子函数popup_box 如下：  
0 J- K5 c& ~  D: T+ i+ M. I  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
      (mapcar 'add_list list_tab)
      (end_list)
   )

ysryc99001

很好！试验一下，谢谢！