ymcui 发表于 2015-4-24 16:22:57

如何取得块内圆孔直径

如何取得块内圆孔直径            

ymcui 发表于 2015-4-24 16:28:52

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

鱼与熊掌 发表于 2015-4-24 17:46:37

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

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

本帖最后由 ZZXXQQ 于 2015-4-24 18:58 编辑

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

ymcui 发表于 2015-4-27 10:05:29

谢谢:非常好的程序.

ymcui 发表于 2015-4-27 10:23:29

ZZXXQQ 发表于 2015-4-24 18:57 static/image/common/back.gif


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

ymcui 发表于 2015-4-27 16:10:22

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

zhangcan0515 发表于 2020-10-28 20:33:33

留个脚印，学习了。刚好遇见这种情况
页: [1]
查看完整版本: 如何取得块内圆孔直径