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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
即在一文本文件中列出:
中国
英国
美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
$ }9 b# N# v! N* f) P! \如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
! ^8 M  H& c  a% J0 x! L2 F1.首先，如何将文本文件中的词条读入程序中？
5 ]) y1 C; B; ]. b    假定pop.txt文本文件的路径为：e:\ck
* N' U- c. x0 y   且pop.txt文本文件的内容为：
中国
英国
  Z9 _- N; D1 h美国
  D. B% U: i/ o  {
' q4 o' s5 a, J. c+ W* N$ s" d   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  

   ;;读取文件中的词条
   (setq pf "e:\\ck\\pop.txt")
   (setq f (open pf "r"))
   (setq txti (read-line f))
9 \3 n& f7 ?( s9 b+ a   (while (/= txti nil)
1 L3 Y7 p: ~  y; |      (progn
          (setq txt (append txt (list txti)))
0 o3 e# M* K+ w; Q% A0 ~          (setq txti (read-line f))
      )
    );end of while
    (close f)
% f2 j+ ?7 R- J  U6 V
2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
+ d3 `5 f& S" F, U  k/ Z2 Z, ~0 T   pop:dialog{
' \  l: k, R2 O          label="弹出列表应用";
         :row{
              :popup_list{
# ~: u* o. v) u# I0 m, a                         key="pop_i";
% B; o* j9 i% p3 g& M) V5 J! t                         width=20;
                         }
             }
         spacer;
9 F: y! u7 S5 H- v0 f* C9 @( X0 ]         ok_cancel;
   }

4 g8 h5 q! l" L$ y   编写加入对话框弹出列表子函数popup_box 如下：  
7 c: {( Z8 ^- _  i' _5 v* i7 R  (defun popup_box (list_name list_tab)   
      (stare_list list_name)
      (mapcar 'add_list list_tab)
0 H- V: y3 v0 u, \, r      (end_list)
6 c( |7 @. |4 g1 r: I   )

  在主程序中编写如下代码运行对话框：
   ;;运行对话框
   (while (< 2 what_n)
3 S" E  G: C9 G, k      (popup_box "pop_i" txt)   ;加入对话框弹出列表
" x: O3 z/ h# G6 M: p9 Y. g) w      (action_tile "cancel" "(done_dialog 0)")
2 o2 @) O$ P1 o3 c/ |  P0 }' Q      (action_tile "pop_i" "(get_zhi $value)")
5 \: c8 @! Z( g' H' m* P% l      (setq what_n (start_dialog))
. j3 N7 H1 j! ~1 J2 v7 x      (cond ((= 1 what_n) (do txt_zhi)))
% h' b1 W+ T% [$ k! V7 k. Q) ?    );end of while
    (unload_dialog dcl_id)

1 I) M: _; i: P7 L% p* t  至此，编程大功告成了。
+ d/ R! T$ n5 e' ~4 k' f: E0 J: A
: W0 Q! `, k8 \  A5 ^[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

更正一个错误，更正如下：
9 j6 w& n! O: B: m$ j
  编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
      (mapcar 'add_list list_tab)
: U0 c2 a8 L; R: c      (end_list)
   )

ysryc99001

很好！试验一下，谢谢！