lisp 可以查找到一个图形中所有的圆并把圆心坐标半径给出来吗？

katamoto

如题

这个对我来说很有用的，但是我没有想到如何去实现，不知道如何去判断cad文件中实体的属性，请

知道的兄弟给个提示。

27012701

这样也可以，你看看

(setq cir(ssget "x" '(( 0 . "circle"))));提取所有圆
(setq nu 0)
(repeat (sslength cir)
  (setq li (cons (cdr (assoc 40 (entget(ssname cir nu )))) li));
  (setq nu (+ 1 nu))
  )
li