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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
2 Q# u* B6 t& T: z6 D- v8 j即在一文本文件中列出:
( _* @$ S; S' ~/ H  z中国
( W) `" x2 i( S( z! H6 q英国
5 e( h- g9 [8 l) O/ N4 o! I. `* s. [! ?美国
5 J+ _, b0 [% p$ d在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
8 h: q" o9 J/ y* C* a7 P  Q1.首先，如何将文本文件中的词条读入程序中？
    假定pop.txt文本文件的路径为：e:\ck
: M, c1 T. W* B! l( I0 \5 N& z7 y7 f   且pop.txt文本文件的内容为：
! e' s& z/ _; r" e3 D8 @0 w中国
英国
美国
7 {' C' O' z# y: T/ C
   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  
, J% m& [' X" @5 K. `
   ;;读取文件中的词条
   (setq pf "e:\\ck\\pop.txt")
   (setq f (open pf "r"))
6 O) l4 p8 L: Y: B/ u/ m   (setq txti (read-line f))
0 ^; ]: t9 g" J, T: r   (while (/= txti nil)
      (progn
          (setq txt (append txt (list txti)))
  P5 g% U% B$ r+ r# T          (setq txti (read-line f))
* k! M$ q! r3 `3 i4 R      )
    );end of while
    (close f)

& F: ~/ ?% V6 q. _9 h; w/ }6 ^2. 如何将获得的词条加入对话框的弹出列表中？
" Q4 i9 C2 r; @$ R   创建对话框文件pop.dcl如下：
! m: \; ]6 H3 q, F5 U5 K& E   pop:dialog{
% \6 A+ U; s! O  `- H/ }  T          label="弹出列表应用";
         :row{
              :popup_list{
0 Y  w* i4 c; q  X( P                         key="pop_i";
8 X  ?4 U2 h4 [! j* d4 Z# ]                         width=20;
                         }
             }
         spacer;
/ a) w% p6 p: j  ^         ok_cancel;
$ i3 |1 |2 s* g  {3 b  p$ U( ^   }
; t; E% }2 \5 m  S% g
   编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
6 U8 @2 z" d+ G% {; J      (stare_list list_name)
      (mapcar 'add_list list_tab)
" i# t) P( N" R( b: |+ k# Q+ k8 G( u      (end_list)
! t% l6 g8 W  T* Z1 C1 N$ ^9 V   )
% K; {7 j6 T2 {$ Z/ M( L1 B
  在主程序中编写如下代码运行对话框：
4 A8 u9 V9 a1 A- c$ i+ N   ;;运行对话框
# x/ \3 A$ v% P9 j0 E, H: T   (while (< 2 what_n)
  p8 k+ a# ?) z      (popup_box "pop_i" txt)   ;加入对话框弹出列表
      (action_tile "cancel" "(done_dialog 0)")
3 r1 _0 T# q  I- b) ?      (action_tile "pop_i" "(get_zhi $value)")
      (setq what_n (start_dialog))
      (cond ((= 1 what_n) (do txt_zhi)))
    );end of while
    (unload_dialog dcl_id)
5 \- ^+ ~3 D, _; ?# A; X, a9 ?
  至此，编程大功告成了。
5 i$ _+ P6 J& d, A4 m3 G
/ A0 n5 i" Q: H4 d$ a* ?" ~" v[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

更正一个错误，更正如下：
* @8 E8 t6 K! U
) n3 G0 ~4 C8 ^' ^3 Y& k" Q1 D  编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
( T0 I5 n7 z$ v3 V; Q+ E5 C8 O      (start_list list_name)                      ;更正的一句
* I9 s1 Y; N2 m, A' B( F' R      (mapcar 'add_list list_tab)
      (end_list)
% u4 ?" }! D% o8 X   )

ysryc99001

很好！试验一下，谢谢！