lisp 可以查找到一个图形中所有的圆并把圆心坐标半径给出来吗？
本帖最后由 作者 于 2008-12-15 23:34:00 编辑 <br /><br /> <p>如题</p><p>这个对我来说很有用的，但是我没有想到如何去实现，不知道如何去判断cad文件中实体的属性，请</p><p>知道的兄弟给个提示。</p> <p>这样也可以，你看看</p><p>(setq cir(ssget "x" '(( 0 . "circle"))));提取所有圆<br/>(setq nu 0)<br/>(repeat (sslength cir)<br/> (setq li (cons (cdr (assoc 40 (entget(ssname cir nu )))) li));<br/> (setq nu (+ 1 nu))<br/> )<br/>li</p>
页:
[1]