帮我分析

QUAN2518

帮忙分析下面的问题

;以下是通过用户给出矩形的左下角点、长、宽；自动绘制图形的LISP小程序。
;设计者：Quan
;日期：2006年8月14日。
(defun c:pbox (/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  ;以下是用户输入量"pa ww hh"
  (setq pa (getpoint "左下角点："))
  (setq ww (getdist " \n长度h:"))
  (setq hh (getdist "\n宽度："))
  ;以下根据pa、ww、hh计算其它量。
  (setq pb (polar pa 0 ww))
  (setq pc (polar pb (/ pi 2) hh))
  (setq pd (polar pd pi ww))
(command "pline" pa pb pc pd "c")
  ;以下计算mp1 mp2 mp3 mp4
  (setq mp1 (polar pa 0 (/ ww 2)))
  (setq mp2 (polar pb (/ pi 2) (/ hh 2)))
  (setq mp3 (polar pc pi (/ ww 2)))
  (setq mp4 (polar pa (/ pi 2) (/ hh 2)))
  ;以下绘制直线
  (command "line" mp1 mp3"")
  (command "line" mp2 mp4"")
(prin1)
  )
(prompt"\n《c:pbox》制作者OEM")
(prompt"\n欢迎使用")]
(prin1)

执行后出现

命令: pbox 左下角点：
长度h:300
宽度：200
; 错误: 参数类型错误: 二维/三维点: nil

和教材上一样为什么我写的就不能执行呢。。。。

f5612140

(setq pd (polar pc pi ww))

zmzk

(setq mp2 (polar pb (/ pi 2) (/ hh 2))中的pi代表什么意思？

zml84

zmzk 发表于 2023-1-30 19:24
(setq mp2 (polar pb (/ pi 2) (/ hh 2))中的pi代表什么意思？

pi  π  圆周率

zml84

另，多说一句：(/ hh 2))  建议写为 (*  0.5  hh ))