(action_tile "accept" "(getdata) (done_dialog 1)") ;getdata调用的函数
(action_tile "cancel" "(done_dialog 0)");done_dialog 当点击按钮回传一个值
(setq std (start_dialog)) ;接收 action_tile回传值
(unload_dialog dlg_id) ;卸载对话框dcl
(if (= std 1)
(command "circle" (list x y) r)
)
(defun getdata()
(setq x (atof (get_tile "e_x"))) ;atof 字符串转换成实型数字
(setq y (atof (get_tile "e_y")))
(setq r (atof (get_tile "e_r")))
以上这样正确,但是
(ation_tile "accept" "(getdata) (drawcircle) (done_dialog 1)")
(action_tile "cancel" (done_dialog 0))
(setq std (start_dialog))
(unload_dialog dlg_id)
;;;;这样就错误
(defun drawcircle()
(command "circle" (list x y) r)
)
波斯汪
狐的传说