AUtoCAD2004和AUtoCAD2012中AUtolisp有什么不同

shuangyihu

今天学AUtolisp，在看吴永进AutoLISP&DCL基础篇（AutoCAD程序设计魔法书）时，发现用AUtoCAD2004可以正常运行，但是用AUtoCAD2012就不能正常运行，比如其中的pbox程序。

(defun c:pbox(/ pa pb pc pd ww hh mp1 mp2 mp3 pm4)
  (setvar "cmdecho"0)
  (setvar "blipmode"0)
  ;;;以下pa ww hh值由用户输入
  (setq pa (getpoint "左下角点："))
  (setq ww (getdist pa "\n宽度："))
  (setq hh (getdist pa "\n高度："))
  ;;;以下pb，pc，pd值须由程序依据pa，ww，hh计算得出
  (setq pb (polar pa 0 ww))
  (setq pc (polar pb (/ pi 2) hh))
  (setq pd (polar pc pi ww))
  ;;;以下依据pa，pb，pc，pd点画出矩形
  (command "pline" pa pb pc pd "c")
  ;;;以下mp1，mp2，mp3，mp4值须由程序依据pa，ww，hh pb，pc，pd计算出来
  (setq mp1 (polar pa 0 (/ ww 2.0)))
  (setq mp2 (polar pb (/ pi 2.0)(/ hh 2.0)))
  (setq mp3 (polar pd  0 (/ ww 2.0)))
  (setq mp4 (polar pa (/ pi 2.0)(/ hh 2.0)))
  ;;;依据mp1，mp2，mp3，mp4点画出两条线
  (command "line" mp1 mp3 "")
  (command "line" mp2 mp4 "")
  ;(command "pline" mp1 mp2 mp3 mp4 "c")
  (prin1)
  )
(prompt "\n<<C:pbox>>程序设计，作者杨治国")
(prompt "\n这是我第一个正式的LISP程序")
(prin1)

谁能解答？

USER2128

没有什么不同，你把捕捉都关闭试试。