iCAx开思网

标题: 【求助】这个图形的Lisp怎么写 [打印本页]

作者: brucecad 时间: 2003-7-21 08:49
标题: 【求助】这个图形的Lisp怎么写
请各为大侠帮我看看这那里错误
因为小弟是新手请多多指导
谢谢
(defun c:H100(/ pa pb pc pd ww hh pa1 mp1 mp2 pb1 pd1 mp4 mp3 pc1)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
    (setq pa (getpoint "左下角?:"))
  (setq ww (getdist pa "\n?度:"))
  (setq hh (getdist pa "\n高度:"))
  (setq pb (polar pa 0 ww))
  (setq pc (polar pb (* pi 0.5) hh))
  (setq pd (polar pc pi ww))
  (command "line" pa pb "")
  (command "line" pd pc "")
  (setq pa1 (polar pa (* pi 0.5) (10))
  (setq mp1 (polar pa (* pi 0.5) (-(/ ww 2)(5))
  (setq pd1 (polar pd (* pi 1.5) (- hh 10))
  (setq mp4 (polar pd1(* pi 0.5) (+5(/ ww 2)))
  (setq pb1 (polar pb (* pi 0.5) (10))
  (setq mp2 (polar pd1 (pi) (/ ww 2)=5))
  (setq pc1 (polar pc (* pi 1.5) (/ hh 2)))
  (setq mp4 (polar pd1(* pi 0.5) (/ ww 2)+5))
  (command "line" pa pa1 "")
  (command "line" pa1 mp1 "")
  (command "line" mp1 mp4 "")
  (command "line" mp4 pd1 "")
  (command "line" pd1 pd "")
  (command "line" pb pb1 "")
  (command "line" pb1 mp2 "")
  (command "line" mp2 mp3 "")
  (command "line" mp3 pc1 "")
  (command "line" pc1 pc "")  
  (prin1)
)
(prin1)

作者: 陈伯雄 时间: 2003-7-21 10:40
您需要先把语法错误解决掉，之后再来提问...

作者: qm007 时间: 2003-7-21 15:19
(setq pa1 (polar pa (* pi 0.5) (10))
  (setq mp1 (polar pa (* pi 0.5) (-(/ ww 2)(5))
  (setq pd1 (polar pd (* pi 1.5) (- hh 10))
  (setq mp4 (polar pd1(* pi 0.5) (+5(/ ww 2)))
  (setq pb1 (polar pb (* pi 0.5) (10))
上述变量赋值错误

欢迎光临 iCAx开思网 (https://www.icax.org/)