[求助]：如何利用lisp调用对话框加载vlx

ld80721

我最近制作了一个个人工具集合面板,(见下图)我只会用按钮加载lisp程序,但不会用按钮加载vlx程序.望高手赐教!

调用源码:
;;;ld.lsp

(defun c:tt()
(setvar "cmdecho" 0)
(dcl_ld)
(prin1)
)

(defun dcl_ld()
(setq dcl_id (load_dialog "ld"))
(new_dialog "ld" dcl_id)
(action_tile "bb1" "(done_dialog 1)")
(action_tile "bb2" "(done_dialog 2)")
(action_tile "bb3" "(done_dialog 3)")
(action_tile "bb4" "(done_dialog 4)")
(action_tile "bb5" "(done_dialog 5)")
(action_tile "bb6" "(done_dialog 6)")
(action_tile "bb7" "(done_dialog 7)")
(action_tile "bb8" "(done_dialog 8)")
(action_tile "bb9" "(done_dialog 9)")
(action_tile "bb10" "(done_dialog 10)")
(setq dd (start_dialog))
(cond ((= dd 1)(c:NetBee_RectAxis))
((= dd 2)(c:NetBee_ArcAxis))
((= dd 3)(c:NetBee_DimAxis2p))
((= dd 4)(c:scc))
((= dd 5)(c:yl ))
((= dd 6)(c:xc ))
((= dd 7)(c:jt ))
((= dd 8)(c:shuoming ))
((= dd 9)(c:test130))
((= dd 10)(c:test231))
)
(unload_dialog dcl_id)
(princ)
)

;;;

;;;直线轴网绘制
;;;
;;;-------------------------------
;;;变量说明-
;;;setini        初始化函数                err_new                自定义出错程序-
;;;setclose        结束函数                Dcl_id                对话框句柄
;;;what_next        对话框索引                Dcl_up                对话框更新函数
;;;Sizelist        常用尺寸列表                CountList        重复次数列表

（略）


对话框源码:
//ld.dcl

ld:dialog{label="浪刀工具2006";
:row{
:boxed_column{
label="轴网标注";
:button{label="直线轴网";key="bb1";}
:button{label="弧线轴网";key="bb2";}
:button{label="轴网标注";key="bb3";}
:button{label="引出标注";key="bb5";}
:button{label="标注文本归位";key="bb9";}

}
:boxed_column{
label="其它";
:button{label="比例缩放";key="bb4";}
:button{label="消除废层";key="bb6";}
:button{label="画箭头";key="bb7";}
:button{label="文本提取输入";key="bb10";}
:button{label="温馨提示";key="bb8";}
}
}
spacer_1;
:row{
:text{
value="浪刀室内设计工作室";
is_bold=false;


}

   cancel_button;



}

}



请问如何在点击按钮后加载以下vlx格式的文件,命令为:SerialBall

qjcpj

加载vlx和加载lsp都可这样加载：
(load "文件名.vlx")
或(load "文件名.lsp")

ld80721

能帮我看看，改写一下．
本人较苯，刚学不久．
谢谢

ld80721

最初由 qjcpj 发布
[B]加载vlx和加载lsp都可这样加载：
(load "文件名.vlx")
或(load "文件名.lsp") [/B]

主要是考虑把它集合到一块，不知可有我原本意图的高见，谢谢

xyp1964

对话框方式不如菜单形式的好维护！

ld80721

最初由 xyp1964 发布
[B]对话框方式不如菜单形式的好维护！ [/B]

诚请师傅按照我喜欢的方式帮我改改.
高手帮帮我呀!跪求.........

xyp1964

最初由 ld80721 发布
[B]
诚请师傅按照我喜欢的方式帮我改改.
高手帮帮我呀!跪求......... [/B]

(c:test130))是如何加载的？
在acad.lsp中添加(load"SerialBall")
然后修改程序，增加：
((= dd 11)(c:SerialBall))
……

ld80721

最初由 xyp1964 发布
[B]
(c:test130))是如何加载的？
在acad.lsp中添加(load"SerialBall")
然后修改程序，增加：... [/B]

按照你的方法试过了,非常好!
谢谢

xyp1964

刚才还说有问题，怎么现在又行了？！……

ld80721

最初由 xyp1964 发布
[B]刚才还说有问题，怎么现在又行了？！…… [/B]

是因为不小心搞错一步了,感谢你哦.

kocer

学习了，谢谢

zxq0220

程序只能用一次。前面定义了函数dcl_id，但在函数dcl_id中又给dcl_id变量赋了值……