关于根据已知点批量画圆

eastbeach

菜鸟求教，已有这么一个画圈的lisp（如下）。因我现在有太多的已经点，故想修改一下，如何把选择圆心点时改为能够批量选择？


(defun c:yuan (/ i j pt r )
(setvar "cmdecho" 0)
(setq i 1)
(while (= i 1)
(setq r (getdist "\n请选择半径长度: "))
(if (/= r nil)
(progn
(setq j 1)
(while (= j 1)
(setq pt (getpoint "\n请选择圆心: "))
(if pt
(command "circle" pt r)
(setq j 0)
)
)
)
(setq i 0)
)
)
(princ)
)

duotu007

(defun c:yuan (/ i j pt r )
  (setvar "cmdecho" 0)
  (setq i 1)
  (while (= i 1)
    (setq r (getdist "\n请选择半径长度: "))
    (if (/= r nil)
      (progn
        (setq j 1)
        (while (= j 1)
          (setq ss (ssget '((0 . "point"))))
          (if ss
            (progn
              (setq a 0)
              (repeat (sslength ss)
                (command "circle" (cdr (assoc 10 (entget (ssname ss a)))) r)
                (setq a (+ a 1))
              )
            )
            (setq j 0)
          )
        )
      )
      (setq i 0)
    )
  )
  (princ)
)

zhb236623

(defun hyuan (/ fn pt ptt po_x po_y point_xy)
(setq fn (open fle "r"))
  (while(setq pt(read-line fn))
   (setq ptt(read (strcat "(" pt ")")))
   (setq po_x(car ptt) po_y(cadr ptt)point_xy(list po_x po_y))
   (command "CIRCLE" point_xy 0.8)   ;;;设置圆的半径
  )
(close fn)
)


有坐标点更快

pengfei2010

不知道文字的中心怎么确定，我想圈文字 呵呵

凝望你

我现在想把圆的中心点标注出来，用什么办法啊？

凝望你

希望用有高手帮我一下，谢谢了