[求助]：請教一個lisp問題

hanhang200

請教一個問題

(defun c:ccc()
  (setvar "cmdecho" 0)
  (setq en (entsel "请选作圆的边或圆弧："))
  (setq en_data (entget (car en)))
  (setq en_type (cdr (assoc 0 en_data)))
  (if (= en_type "CIRCLE")
    (progn
      (setq cenpt (cdr (assoc 10 en_data)))
      (command "circle" cenpt "0.3")
      )
    (progn
      (setq pts (cadr en))
      (setq mpt (osnap pts "mid"))
      ;(setq pt01 (cdr (assoc 10 en_data)))
      ;(setq pt02 (cdr (assoc 11 en_data)))
      ;(setq pt03 (+ (angle pt01 pt02) (/ pi 2)))
      (setq pt1 (getpoint "请指定方向："))
;;;      (setq pt2 (polar mpt pt03 3))
      (setq pt2 (polar mpt (angle mpt pt1) 3))
      (command "circle" pt2 "0.3")
      )
    )
;;;  (c:ccc)
  (prin1)
  )

上面是我今天写的一程式，

目的：可以在圆或聚合线内画一个圆

圆内没有问题，而在聚合线时，选择方向后，我所想要的距离和位都不是我想要的

我的想法不管聚合线是什么角度，圆的位置都在所选线的中心向所点位置固定的距离

请各位帮忙指点一下，谢谢了

hanhang200

是我沒有說得清楚
還是什麼其它原因
請教各位了

怎麼還沒有人來呢