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

maoyangmy

如何在DCL文件中的下拉框中显示指定文本文件的内容?
即在一文本文件中列出:
中国
英国
美国
在DCL的下拉框中显示这几个选项, 如果文本文件修改了,比如增加"日本",则在下拉框中的选项也相应增加?
如何实现这样的功能???

sealive_leafage

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

maoyangmy

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

cd028asdf028

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

ljm68

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
1.首先，如何将文本文件中的词条读入程序中？
    假定pop.txt文本文件的路径为：e:\ck
% U1 S( H8 ?, d7 B   且pop.txt文本文件的内容为：
  {) X: z, P, t5 G; S中国
$ M' |6 Y1 T# O英国
: _3 b% R' {  d0 R! q4 ~' h美国
, c2 t7 L& ~) m2 }: D3 Z
% }; }) p7 q2 z( D# g  @& J) g   在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。  

   ;;读取文件中的词条
) S: z0 q* O. e" @+ N" Y8 x   (setq pf "e:\\ck\\pop.txt")
( i8 a% O7 Z+ |1 M   (setq f (open pf "r"))
   (setq txti (read-line f))
. r2 b; Q4 }% E   (while (/= txti nil)
      (progn
          (setq txt (append txt (list txti)))
* G1 u) E  T( b. V6 o  }- D- g& q          (setq txti (read-line f))
      )
    );end of while
    (close f)
* a/ C2 _2 w1 I. d6 _, X# `8 {
3 k( t( l4 \/ x% \1 G2. 如何将获得的词条加入对话框的弹出列表中？
   创建对话框文件pop.dcl如下：
5 X9 s; j( u- M9 _   pop:dialog{
: E7 Z, {2 ]4 J" H* P          label="弹出列表应用";
         :row{
              :popup_list{
7 F$ t5 o9 A; ]( A: F7 O- U                         key="pop_i";
$ M( P/ p( z) V: q                         width=20;
                         }
             }
0 R7 ?) O* v$ E6 G# C         spacer;
% W3 q& k/ C6 q7 T5 n: C         ok_cancel;
   }

   编写加入对话框弹出列表子函数popup_box 如下：  
# R$ K# Y- X6 F6 x  (defun popup_box (list_name list_tab)   
      (stare_list list_name)
      (mapcar 'add_list list_tab)
9 u4 {* s9 h0 _" J3 L, O, u( z      (end_list)
   )

  在主程序中编写如下代码运行对话框：
5 [1 U" l6 O2 N; E   ;;运行对话框
$ q/ w3 \/ t2 ^) R2 U5 ]5 F   (while (< 2 what_n)
9 F1 _9 f  @* P7 h      (popup_box "pop_i" txt)   ;加入对话框弹出列表
' `- i# C9 F) Q" k      (action_tile "cancel" "(done_dialog 0)")
$ Q, \! c2 J) n( b6 g2 @3 r3 F1 }      (action_tile "pop_i" "(get_zhi $value)")
      (setq what_n (start_dialog))
) I! s- ^3 {. [* ?% Z2 b" r      (cond ((= 1 what_n) (do txt_zhi)))
2 A/ K! g& R! s: G3 X3 E    );end of while
; z: T" P+ d2 N( N+ G3 K) i* M3 U* k    (unload_dialog dcl_id)

: F' [" N5 F7 H5 ]$ ]  至此，编程大功告成了。

: T; x; ]5 g$ W1 i) a9 F# D[ 本帖最后由 ljm68 于 2008-11-29 22:13 编辑 ]

ljm68

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

  编写加入对话框弹出列表子函数popup_box 如下：  
. {) z+ ^6 {/ ~- s  (defun popup_box (list_name list_tab)   
" Y! j4 ?3 y, [, t9 X      (start_list list_name)                      ;更正的一句
      (mapcar 'add_list list_tab)
4 h, k1 ^7 p  s3 ]' D8 J3 b# R; v, ~      (end_list)
' {* r% C6 W+ t6 z- B   )

ysryc99001

很好！试验一下，谢谢！