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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
; M$ ~$ b& H6 c5 W% }5 L即在一文本文件中列出:
% _& E9 y* \, t中国
英国
美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
2 R, L3 m1 L8 L- i& e! @7 q7 X如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
1.首先，如何将文本文件中的词条读入程序中？
    假定pop.txt文本文件的路径为：e:\ck
   且pop.txt文本文件的内容为：
) N5 E4 p3 p- f% M9 _中国
英国
5 X3 V4 @6 W1 {: l# M- J美国
$ {' Y# m: {; P, [1 L" n3 t$ K2 h1 t
8 B7 n4 l  l: U; G& a6 O5 t   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  
* |& k3 d, S. E1 e- @
   ;;读取文件中的词条
- L9 h+ J  `7 I   (setq pf "e:\\ck\\pop.txt")
5 b" o8 k9 Z# N; b! e4 l+ M# v   (setq f (open pf "r"))
* [# k; \5 d. T1 h) P7 a! J   (setq txti (read-line f))
   (while (/= txti nil)
( ~4 I  _& [' k; t6 p      (progn
- u0 g1 @7 v( U9 s          (setq txt (append txt (list txti)))
6 O2 |3 A& e8 }- v# t) x9 |1 s          (setq txti (read-line f))
( Z6 q7 w6 ~6 \1 k      )
    );end of while
    (close f)
7 x% g% r" {# Y) c& k( p
2. 如何将获得的词条加入对话框的弹出列表中？
/ U; S9 I; g" F6 |0 y3 g+ \   创建对话框文件pop.dcl如下：
   pop:dialog{
% `' |6 k% N/ W$ T          label="弹出列表应用";
: f- V* o( C8 N, _* [         :row{
              :popup_list{
3 M: P6 @% x% W6 ]! a9 `5 |' C# m                         key="pop_i";
                         width=20;
                         }
             }
         spacer;
         ok_cancel;
   }
# W# j: J3 r( w- k$ G* A
$ O& C0 O5 C' w6 J* c   编写加入对话框弹出列表子函数popup_box 如下：  
" `  j2 h' F3 S) c5 o- O+ J: u5 @  (defun popup_box (list_name list_tab)   
      (stare_list list_name)
. {+ s3 e. ]% l4 M6 d      (mapcar 'add_list list_tab)
( r: N! d  S  V. l9 S8 ]0 v$ Q      (end_list)
3 Y& S5 k# N& M! j6 H" r, D$ t: @   )
% o- M) ^9 `6 v$ t
  在主程序中编写如下代码运行对话框：
   ;;运行对话框
   (while (< 2 what_n)
      (popup_box "pop_i" txt)   ;加入对话框弹出列表
1 V5 X! C8 `' d9 I      (action_tile "cancel" "(done_dialog 0)")
      (action_tile "pop_i" "(get_zhi $value)")
      (setq what_n (start_dialog))
# p8 y% ^7 M5 A      (cond ((= 1 what_n) (do txt_zhi)))
    );end of while
    (unload_dialog dcl_id)
, h& O5 O! K) j2 Y) q! C. T3 p
4 ~+ X& h, k1 r  至此，编程大功告成了。

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

ljm68

更正一个错误，更正如下：
( F7 @2 k2 S$ N: q- e& a
  编写加入对话框弹出列表子函数popup_box 如下：  
+ g& ?( k5 h" h  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
      (mapcar 'add_list list_tab)
      (end_list)
8 X/ _8 W. _* Q   )

ysryc99001

很好！试验一下，谢谢！