新手求助！如何实现按钮的单击功能
想实现一个按钮单击功能。具体功能是单击按钮的时候画一条线出来，自己在论坛里找到个例子，改了改，但总是运行不出来，请各位大侠帮忙看看。
DCL代码段如下：
:button{
label = "OK";
key = "button_ok";
width = 8;}
画线函数代码段如下：
(
defun line_z( pt1 pt2)
(command "line" pt1 pt2 "")
(princ)
)
调用对话框函数代码段如下：
(
defun c:test_z()
( setvar "cmdecho" 0)
( setq dcl_id ( load_dialog "test"))
( new_dialog "test" dcl_id)
( setq what( start_dialog))
( cond (( = 1 what) ( t01))
(( = 2 what) ( t02))
)
( setvar "cmdecho" 1)
( princ)
);end defun
请大侠帮忙》》
本帖最后由 cabinsummer 于 2011-10-28 19:59 编辑
:button{
label = "OK";
key = "button_ok";
width = 8;}
这个是无意义的。对话框开始必须是
test:dialog{
:button{
label = "OK";
key = "accept";
width = 8;}
}
test是你的lsp指向的名字
还有你的dcl对话框函数叫什么名字？放在什么目录下了？
(t01)和(t02)是什么函数？没见你定义，画线函数又没见你调用。
你的水平还不足以学DCL，先把基本的lsp多练几天再说。
cabinsummer 发表于 2011-10-28 19:54 static/image/common/back.gif
:button{
label = "OK";
key = "button_ok";
对话框函数叫做test，放在默认的support文件夹下了，这个程序是我从网上找的，自己改了一下，那个人没写注释…………
我就是想实现这样一个功能：单击按钮后，调用line_z这个函数，在cad中划出一条直线。
之前没有接触过cad，最近做的项目要用到，只是画一些简单的线和面，所以就临阵磨枪学习一下，希望前辈指导。麻烦能不能帮我写一下所要执行的关键代码呢？谢谢了 对着工具栏点右键,修改两个按钮算了吧.初学就这样比较好,手工操作 这么简单的操作不需要对话框啦，直接启动命令画线就是了。
页:
[1]