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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
+ G5 {4 o' I9 a" v, j: C" ?) k" Y; O) L即在一文本文件中列出:
3 p" x2 B6 M+ J# P中国
2 E/ Y* e& w( R2 o英国
4 V3 d! W' e# x' h美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
* D$ }; G( ]3 v如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
3 O& ~4 h# L$ T- o6 }+ n8 d% M1.首先，如何将文本文件中的词条读入程序中？
. \/ B% \; Y) M7 o% b# y    假定pop.txt文本文件的路径为：e:\ck
/ B7 `. p: V/ P0 _2 q   且pop.txt文本文件的内容为：
中国
英国
美国
0 `5 X* y) ]+ m/ c
/ F, Q& E2 B% J+ \1 L9 D7 T+ p   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  
8 X( ~! |3 @- }+ C
9 o& I: R0 t7 a) A$ {& I+ M' {* j$ I   ;;读取文件中的词条
2 P. d7 c% t! X; A3 N% U   (setq pf "e:\\ck\\pop.txt")
! ^3 l) U/ i( Q; `4 Q   (setq f (open pf "r"))
* X' v  I- V: a% [4 z1 P! w9 }   (setq txti (read-line f))
   (while (/= txti nil)
9 l# ?+ W. l% k8 N; O' I      (progn
5 L; m0 k' j& B" k          (setq txt (append txt (list txti)))
) K* B  R7 B" u& O* h8 y0 s          (setq txti (read-line f))
      )
2 ?5 I; w+ u! o, T$ X    );end of while
# B9 G% s/ g, \; x9 V  u    (close f)

2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
% R3 P  o, q  v$ \   pop:dialog{
! s5 J# d1 {9 }& h          label="弹出列表应用";
; `+ H8 e  @* s& J# Q         :row{
              :popup_list{
                         key="pop_i";
                         width=20;
" s3 \9 `# N! Z! g, S                         }
             }
         spacer;
* K7 c& x) \& T- n8 S9 Q$ a. P$ ~$ z         ok_cancel;
( m3 G+ {) f1 i+ r$ z   }

* w2 _* W2 F& r) C8 H, o3 z: w. l! W4 r   编写加入对话框弹出列表子函数popup_box 如下：  
, B7 @/ ?$ {) O  (defun popup_box (list_name list_tab)   
5 e5 q" D# |- y% q6 X      (stare_list list_name)
      (mapcar 'add_list list_tab)
5 O5 d7 n' t; k0 `2 k! d      (end_list)
   )
5 P2 R3 G' c4 Q4 I( B
/ n( H, s2 u) S  \  在主程序中编写如下代码运行对话框：
& O, S- w/ F6 `* J* {   ;;运行对话框
   (while (< 2 what_n)
      (popup_box "pop_i" txt)   ;加入对话框弹出列表
      (action_tile "cancel" "(done_dialog 0)")
      (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)
4 C: a/ j0 z) O) d( j4 H
  至此，编程大功告成了。
1 q7 H! Q0 R1 W1 }8 r' m( i: G" g
[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

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

' }* A' Z* k) M& x  编写加入对话框弹出列表子函数popup_box 如下：  
  (defun popup_box (list_name list_tab)   
      (start_list list_name)                      ;更正的一句
      (mapcar 'add_list list_tab)
2 b' @7 i# K$ |/ G  ~7 k! _# u: v7 E8 U      (end_list)
. @2 O/ t* T4 X, v4 o9 g4 |7 D   )

ysryc99001

很好！试验一下，谢谢！