临时DCL中, popup_list写法例子,感谢ZZXXQQ
本帖最后由 77077 于 2014-2-19 11:35 编辑;感谢ZZXXQQ帮忙修正popup_list中list的写法.
关键看这里list=\"列表11\\n列表12\\n列表13\\n列表14\\n列表15\\n列表16\\n列表17\\n列表18\";
以前我些的是list=\"列表11\n列表12\n列表13\n列表14\n列表15\n列表16\n列表17\n列表18\";;临时DCL中,popup_list写法例子.
;感谢ZZXXQQ帮忙修正popup_list中list的写法.
(defun c:tt ();命令TT
(vl-load-com) ;加载VLSP
(setq tempname (vl-filename-mktemp "temp.dcl") filen (open tempname "w")) ;建立临时dcl
(foreach stream
'("kzzbss:dialog{"
"\nlabel=\"临时对话框\";"
"\n:popup_list{key=\"tag\";label=\"属性:\";list=\"列表11\\n列表12\\n列表13\\n列表14\\n列表15\\n列表16\\n列表17\\n列表18\";}"
"\n:edit_box{key=\"str\"; label=\"值:\";}"
"\nok_cancel;}")
(princ stream filen));在临时dcl中写入以上数据
(close filen);关闭文件
(setq dclname tempname)
(setq dcl_re (load_dialog dclname)) ;加载临时dcl
(if (not (new_dialog "kzzbss" dcl_re)) (exit))
(action_tile "accept" "(OK动作)(done_dialog 1)");定义OK按钮的动作
(action_tile "cancel" "(done_dialog)")
(setq std (start_dialog))
(unload_dialog dcl_re);卸载
(vl-file-delete dclname);删除临时dcl文件
(if (= std 1) (运行程序));运行
(princ)
) 代码运行部了缺少了\ 新手很容易搞蒙
页:
[1]