求助DCL控制画圆
<p>我弄了个画圆的程序,不知道哪里有问题,无法实现DCL控制画圆,求高手帮忙看看</p><p><font size="6">lsp程序</font><br/><font size="6"><font size="3">(defun c:rect()<br/> (setq dcl_id (load_dialog "circle")) <br/> (new_dialog "rect" dcl_id)<br/> (action_tile "accept" "(sae_alue)") <br/> (start_dialog) (unload_dialog dcl_id) <br/>) <br/>(defun c:yuan()<br/> (setq pt (getpoint "输入圆心坐标:"))<br/> (setq r (getreal "输入半径"))<br/> (command "circle" pt r )<br/>)<br/>(defun sae_alue ()<br/> (setq r (atof (get_tile "react_h"))<br/> (setq pt (atof (get_tile "react_w")) <br/> (done_dialog)<br/>)</font></font></p><p><font size="6">DCL程序</font></p><p><font size="6"><font size="3">rect:dialog <br/>{ label="画圆程序" ; <br/>:edit_box //编辑框元件 <br/>{ label="输入圆心 : " ; <br/>key="rect_w" ; <br/>edit_limit=16; <br/>edit_width=20; <br/>fixed_width=true; <br/>} <br/>:edit_box //编辑框元件 <br/>{ label="输入半径 :" ; <br/>key="rect_h" ; <br/>edit_limit=16; <br/>edit_width=20; <br/>fixed_width=true; <br/>}<br/>ok_cancel; <br/>}</font><br/></font></p>
页:
[1]