新手求助！如何实现按钮的单击功能

zhangboli

想实现一个按钮单击功能。
具体功能是单击按钮的时候画一条线出来，自己在论坛里找到个例子，改了改，但总是运行不出来，请各位大侠帮忙看看。
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

:button{
    label = "OK";
    key = "button_ok";
    width = 8;}
这个是无意义的。对话框开始必须是
test:dialog{
  :button{
    label = "OK";
    key = "accept";
    width = 8;}
}

test是你的lsp指向的名字
还有你的dcl对话框函数叫什么名字？放在什么目录下了？

(t01)和(t02)是什么函数？没见你定义，画线函数又没见你调用。

你的水平还不足以学DCL，先把基本的lsp多练几天再说。

zhangboli

cabinsummer 发表于 2011-10-28 19:54
:button{
    label = "OK";
    key = "button_ok";

对话框函数叫做test，放在默认的support文件夹下了，这个程序是我从网上找的，自己改了一下，那个人没写注释…………
我就是想实现这样一个功能：单击按钮后，调用line_z这个函数，在cad中划出一条直线。
之前没有接触过cad，最近做的项目要用到，只是画一些简单的线和面，所以就临阵磨枪学习一下，希望前辈指导。麻烦能不能帮我写一下所要执行的关键代码呢？谢谢了

VBALISPER

对着工具栏点右键,修改两个按钮算了吧.初学就这样比较好,手工操作

sen.sam

这么简单的操作不需要对话框啦，直接启动命令画线就是了。