我的程序运行出现错误

鹤顶红 · 发表于 2010-10-20 13:33:00

程序改了，可是还是出现错误，大虾们帮忙看看

(defun c:cccc()
(setq p1 (getpoint "\输入一个角点"))
(setq p3 (getcorner p1 "\输入第二个角点"))
(setq p2 (list (car p1) (cadr p3)))
(setq p4 (list (car p3) (cadr p1)))
(command "pline" p1 p2 p3 p4 "c")
(setq po1 (inters p1 p2 p3 p4))
(setq r (getpoint po1 "\n输入半径"))
(command "circle" po1 r )
)

xiaotao · 发表于 2010-10-20 14:25:00

(defun c:cccc ()
(setq p1 (getpoint "\输入一个角点"))
(setq p3 (getcorner p1 "\输入第二个角点"))
(setq p2 (list (car p1) (cadr p3)))
(setq p4 (list (car p3) (cadr p1)))
(setvar "osmode" 0)
(command "pline" p1 p2 p3 p4 "c")
(setq po1 (inters p1 p3 p2 p4))
(setq r (getdist po1 "\n输入半径"))
(command "circle" po1 r)
)

quanguang · 发表于 2010-10-20 17:08:00

小红同志第一次发帖，咱得顶啊，呵呵

庆祝一下，

鹤顶红 · 发表于 2010-10-20 17:23:00

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

[讨论] 我的程序运行出现错误

快咯哦