如何取得块内圆孔直径

ymcui

如何取得块内圆孔直径            

ymcui

标注它就可以无视块，直接选中对象.

鱼与熊掌

..遍历里面的对象.
  vla-item blks name

ZZXXQQ

2. (defuin c:tt ()
   
3. (if (and (setq s1 (nentsel "\n选择圆: "))
   
4.        (setq ent (entget(car s1)))
   
5.        (= (cdr(assoc 0 ent)) "CIRCLE"))
   
6.   (* (cdr(assoc 40 ent)) 2)
   
7. )
   
8. )

(defuin c:tt ()<br /> (if (and (setq s1 (nentsel "\n选择圆: "))<br />        (setq ent (entget(car s1)))<br />        (= (cdr(assoc 0 ent)) "CIRCLE"))<br />   (* (cdr(assoc 40 ent)) 2)<br /> )<br /> )

ymcui

谢谢:非常好的程序.

ymcui

ZZXXQQ 发表于 2015-4-24 18:57

再次请教：如何得出圆孔中心点?

ymcui

(osnap (cadr s1) "cen")
谢谢,已解决

zhangcan0515

留个脚印，学习了。刚好遇见这种情况