梅花 10:53:26
(defun dtr(a)
(* a (/ pi 180.0))
)
(defun c:tuyere (/ x1 x2 a x3)
(setq p1 (getpoint "\n enter point of p1"))
(setq x1 (getdist "\n enter x1 of tuyere"))
(setq a (getangle"\ n enter angle of tuyere"))
(setq p2 (polar p1 a x1))
(setq x2 (getdist"\n enter x2 of tuyere"))
(setq p3 (polar p2 a x2))
(setq x3 (getdist "\ n enter x3 of tuyere"))
(setq p4 (polar p1 ( + a (dtr 90)) x3))
(command"line"p1 p2"")
(command"line"  2 p3"")
(command "line"p1 p4"")
(princ)
)
以上程序,运行输入后返回错误:函数被取消。请帮忙。谢谢! |