lisp中不能阵列
我按照教程写了一段小程序，但是实现不了环形阵列功能，希望高手指点。程序代码如下：
;;;;
;;; 输入左下角，绘制图形，并且有默认值
;;;
(defun c:lisp04()
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n 第一点"))
(setq pt2 (getpoint "\n 第二点"))
(setq LL (distance pt1 pt2))
(setq ang (angle pt1 pt2))
(setq pt3 (polar pt2 (+ ang (/ (* 120 pi) 180)) LL))
(command "polygon" 3 "e" pt1 pt2)
(command "arc" pt1 "e" pt2 "a" 180)
(setq en1 (entlast))
(setq mid1 (polar pt1 ang (/ LL 2)))
(command "circle" "2p" mid1 (polar mid1(+ ang (* pi 1.5))(/ LL 2)))
(setq en2 (entlast))
(setq mid2 (polar pt2 (+ ang (/ (* 120 pi) 180))(/ LL 2)))
(command "array" en1 en2 "p" cen 3 360 "")
(prin1)
)
希望的结果
下图是希望得到的结果。实际运行结果
下图是实际的运行结果，不知道问题所在，请高手指点一二。页:
[1]