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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
, D/ u6 p0 N" u3 }5 G0 G7 q2 ?, y. p即在一文本文件中列出:
5 N4 Q, _4 p3 b: h' V中国
. Q1 r# `- l- s) `$ O英国
美国
( q2 k3 m1 r& {* p在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
/ }% V0 b9 Y" c9 k$ J1 D" G1.首先，如何将文本文件中的词条读入程序中？
9 {; o  [& C0 t* p0 m$ ?# r    假定pop.txt文本文件的路径为：e:\ck
   且pop.txt文本文件的内容为：
$ |: m" k- }- Q- [$ Y中国
7 W. G! ^1 |- {# [$ h英国
3 `; {7 q5 n1 X( l3 r  ~& n美国
2 I. w5 n& T0 }7 Y* @
   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  

/ }; X& k8 S* y. w: J8 E2 w# ^- [   ;;读取文件中的词条
# n/ D+ T0 O0 N" T, D   (setq pf "e:\\ck\\pop.txt")
" s3 [! H( N( k   (setq f (open pf "r"))
2 W' N. B( F; l! w   (setq txti (read-line f))
   (while (/= txti nil)
      (progn
          (setq txt (append txt (list txti)))
$ J% H, U6 A/ |  U          (setq txti (read-line f))
2 ~# T. L. Y$ o+ h: q& r! r      )
- l, l& ^$ d4 K: k$ v" w    );end of while
* I/ M3 }+ L( u5 t% L    (close f)
$ q! |4 K# k. O- W0 Z/ z
2 B. a9 v7 @$ P9 y. b2. 如何将获得的词条加入对话框的弹出列表中？
- F7 h! B& i" P  o. u0 Q; l   创建对话框文件pop.dcl如下：
   pop:dialog{
! @! @7 S! l; g$ z          label="弹出列表应用";
         :row{
* g5 y+ F7 M8 D' P              :popup_list{
/ p! s8 v/ D; r5 G# ?+ ~. p                         key="pop_i";
                         width=20;
9 C! W2 P& I5 C1 U                         }
             }
         spacer;
5 r7 B* H' a  c  G         ok_cancel;
& y" Q0 V1 i! {  X' Y3 d   }

   编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
      (stare_list list_name)
      (mapcar 'add_list list_tab)
+ v  F+ ^8 L0 l  I. t      (end_list)
   )
2 x' a9 a0 x4 u) W; n% B- s+ B1 B2 ?" H
  在主程序中编写如下代码运行对话框：
   ;;运行对话框
4 O. I0 E  e' [2 l9 @   (while (< 2 what_n)
* x; o7 Y1 @) F( ~7 u2 L* ]( m      (popup_box "pop_i" txt)   ;加入对话框弹出列表
      (action_tile "cancel" "(done_dialog 0)")
+ ^7 X6 a3 H9 m9 W      (action_tile "pop_i" "(get_zhi $value)")
      (setq what_n (start_dialog))
0 M* f5 e8 _! }' V. s3 P9 |# b9 B      (cond ((= 1 what_n) (do txt_zhi)))
( M4 C8 z3 a" y: X  G* j7 [    );end of while
9 V6 ~: A7 R' _( K    (unload_dialog dcl_id)

. w, ?2 y( @+ O: t. g1 s9 r  至此，编程大功告成了。

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

ljm68

更正一个错误，更正如下：
8 o; n9 M% v7 ?6 l7 B  G" \. ^( B
' w/ V% d8 C; Y0 o3 s* `. z  编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
$ \- o- J# v! I. ^8 l* l( j4 w4 {      (mapcar 'add_list list_tab)
( z, d% w; o: z5 z  }      (end_list)
& Y, M* K3 m' R3 U   )

ysryc99001

很好！试验一下，谢谢！