[求助]提取点坐标

dracula63

各位大侠能否帮小弟编一个lisp：
1，可以一下提取n个圆的中心点坐标
2，可以计算这些坐标到一条直线的垂直距离
尽快传给我 不胜感激！！！
顺便问一下选取时只能是方型吗？如何不规则的选取？
再次谢谢大家 辛苦了

xyp1964

(defun c:test ()
(princ "\n选圆 : ")
(setq ss (ssget '((0 . "CIRCLE")))
s2 (entsel "\n选线 : ")
n -1
)
(setq pt01 (dxf 10 (entget (car s2)))
pt02 (dxf 11 (entget (car s2)))
ang (+ (angle pt01 pt02) (/ pi 2))
)
(while (setq s1 (ssname ss (setq n (+ 1 n))))
(setq pt1 (dxf 10 (entget s1)))
(princ "\nR")
(princ (+ n 1))
(princ " = ")
(princ pt1)
(setq pt2 (polar pt1 ang 100)
pt3 (inters pt01 pt02 pt1 pt2 nil)
dist (distance pt1 pt3)
)
(grvecs (list 2 pt1 pt3))
(princ "\n距离")
(princ (+ n 1))
(princ " = ")
(princ dist)
(princ "\n")
)
(princ)
)
(defun dxf (code elist) (cdr (assoc code elist)))