|
|
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;
}一运行就死机,怎么搞的,今天干什么也不顺!!!!! |
|
置顶卡
