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

maoyangmy · 发表于 2008-8-28 08:48:29

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

hzj526 · 发表于 2008-8-28 16:50:45

提示: 作者被禁止或删除内容自动屏蔽

sealive_leafage · 发表于 2008-8-28 19:28:05

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

maoyangmy · 发表于 2008-9-5 18:37:07

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

cd028asdf028 · 发表于 2008-9-19 21:55:06

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

ljm68 · 发表于 2008-11-29 22:06:41

本人编了一段AutoCAD Lisp程序，已供作个参考借鉴。
1.首先，如何将文本文件中的词条读入程序中？
假定pop.txt文本文件的路径为：e:\ck
且pop.txt文本文件的内容为：
中国
英国
美国

在主程序中编写如下代码，就能完成将pop.txt中的词条读入变量txti中。

;;读取文件中的词条
(setq pf "e:\\ck\\pop.txt")
(setq f (open pf "r"))
(setq txti (read-line f))
(while (/= txti nil)
   (progn
      (setq txt (append txt (list txti)))
      (setq txti (read-line f))
   )
);end of while
(close f)

2. 如何将获得的词条加入对话框的弹出列表中？
创建对话框文件pop.dcl如下：
pop:dialog{
      label="弹出列表应用";
      :row{
            :popup_list{
                     key="pop_i";
                     width=20;
                     }
         }
      spacer;
      ok_cancel;
}

编写加入对话框弹出列表子函数popup_box 如下：
  (defun popup_box (list_name list_tab)
   (stare_list list_name)
   (mapcar 'add_list list_tab)
   (end_list)
)

  在主程序中编写如下代码运行对话框：
;;运行对话框
(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)

  至此，编程大功告成了。

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

ljm68 · 发表于 2008-12-4 20:00:12

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

  编写加入对话框弹出列表子函数popup_box 如下：
  (defun popup_box (list_name list_tab)
   (start_list list_name)                   ;更正的一句
   (mapcar 'add_list list_tab)
   (end_list)
)

ysryc99001 · 发表于 2010-10-14 17:11:32

很好！试验一下，谢谢！

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块

hzj526 hzj526 当前离线积分 1159 UID 317134 主题在线时间小时注册时间 2007-5-29 头像被屏蔽	发表于 2008-8-28 16:50:45 \| 显示全部楼层来自：中国江苏南京提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报