2013-07-26 明经 AutoLISP 编程②(177027547) 群聊记录：[face25.gif]

明经快报

[lenovo1x1]结构 10:39:25

明经快报

梅花 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)
  )
    以上程序，运行输入后返回错误：函数被取消。请帮忙。谢谢！

明经快报

梅花 11:07:36

我调试好了，谢谢！