哪里出问题了

CADghost

LSP文件 (defun c:boxline ()
(dcl_dia)
(prin1)
)
(defun dcl_dia ()
(setq dcl_id (load_dialog "dia"))
(new_dialog "dia" dcl_id)
(set_tile "edit_p1" "0,0")
(set_tile "edit_p2" "100,100")
(action_tile "accept" "(ok_dia) (done_dialog 1)")
(start_dialog)
)
(defun ok_dia ()
(Setq p1 (get_tile "edit_p1"))
(Setq p2 (Get_tile "edit_p2"))
(command "line" p1 p2 "")
) DCL文件 dia:dialog{
label="绘声绘色";
:edit_box{
label="first point:";
key="edit_p1";
edit_width=6;
}
:edit_box{
label="end point:";
key="edit_p2";
edit_width=6;
}
ok_cancel;
} 一运行就死机,怎么搞的,今天干什么也不顺!!!!!

alin

典型dcl错误，对话框关闭前执行COMMAND. (defun dcl_dia ()
(setq dcl_id (load_dialog "dia"))
(new_dialog "dia" dcl_id)
(set_tile "edit_p1" "0,0")
(set_tile "edit_p2" "100,100")
(action_tile "accept" "(ok_dia) (done_dialog 1)")
(IF (= (start_dialog) 1)(command "line" p1 p2 ""))
)
(defun ok_dia ()
(Setq p1 (get_tile "edit_p1"))
(Setq p2 (Get_tile "edit_p2"))
)

CADghost

谢谢！昨天我把它改成这样，和你的那句(IF (= (start_dialog) 1)(command "line" p1 p2 ""))效果是不是一样的啊？ (defun dcl_dia ()
(setq dcl_id (load_dialog "dia"))
(new_dialog "dia" dcl_id)
(set_tile "edit_p1" "0,0")
(set_tile "edit_p2" "100,100")
(action_tile "accept" "(ok_dia) (done_dialog 1)")
[I](start_dialog)
(command "line" p1 p2 ""))[/I]
)
(defun ok_dia ()
(Setq p1 (get_tile "edit_p1"))
(Setq p2 (Get_tile "edit_p2"))
)

meflying

你选择取消试试,看效果是不是一样

spring

(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)") (setq what (start_dialog))
(cond ((= what 1) (AD-MAIN))) 点击确定时执行函数 (AD-MAIN) 如果点击取消就不会执行

CADghost

谢谢各位