求助DCL控制画圆

lixiaomin96 · 发表于 2009-10-8 18:25:00

本帖最后由作者于 2009-10-8 23:16:11 编辑

circle.dcl程序

rect:dialog
{ label="画圆程序" ;
:edit_box //编辑框元件
{ label="输入圆心 : " ;
key="rect_w" ;
edit_limit=16;
edit_width=20;
fixed_width=true;
}
:edit_box //编辑框元件
{ label="输入半径 :" ;
key="rect_h" ;
edit_limit=16;
edit_width=20;
fixed_width=true;
}
ok_cancel;
}

circle.lsp程序

(defun c:rect()
(setq dcl_id (load_dialog "circle"))
(new_dialog "rect" dcl_id)
(action_tile "accept" "(sae_alue)")
(start_dialog) (unload_dialog dcl_id)
)
(defun c:yuan()
(setq pt (getpoint "输入圆心坐标:"))
(setq r (getreal "输入半径"))
(command "circle" pt r )
)
(defun sae_alue ()
(setq r (atof (get_tile "rect_h"))
(setq pt (atof (get_tile "rect_w"))
(done_dialog)
)

求高手帮忙看看这个程序哪里有问题，为什么DCL控制无法实现

luowy · 发表于 2009-10-9 12:24:00

(command "circle" pt r )
这个是画圆

pt是圆心，r是半径

(setq r (atof (get_tile "rect_h"))
这里获取了半径的值

(setq pt (atof (get_tile "rect_w"))
这里获取了圆心坐标－－－－－－－圆心坐标肯定不是一个float，应该是个list

lz学学调试，这个不难发现错误的！！

明经网友 *发表于 2009-10-9 15:57:00* · 发表于 2009-10-9 15:57:00

还是没有解决问题啊，我想知道问题在哪，我觉得好像是圆心坐标那定义有问题

lixiaomin96 · 发表于 2009-10-9 15:58:00

还是没解决问题啊，我想知道问题出在哪，是不是圆心定义的时候有问题啊

hen0 · 发表于 2009-10-9 16:07:00

对，圆心错了。

你还不如分开，

一个圆心 X 坐标

一个圆心 Y 坐标

再用（list x y ）

这样可以

xyp1964 · 发表于 2009-10-9 22:17:00

(defun c:tt ()
(CMDLA0)
(defun main-pro ()
(command "circle" (list dx dy dz) r)
)
(xyp-initSet '(dx dy dz r) '(0. 0. 0. 100.))
(setq Ilst '(("dx" "X" "real" "10")
("dy" "Y" "real" "10")
("dz" "Z" "real" "10")
("r" "R" "real" "10")
)
)
(if (= (xyp-Dcl-Init Ilst "【画圆】" t) 1)
(main-pro)
)
(CMDLA1)
)

lixiaomin96 · 发表于 2009-10-10 08:42:00

谢谢

账号		自动登录	找回密码
密码			注册

[基础] 求助DCL控制画圆

本帖子中包含更多资源