清风明月名字 发表于 2014-2-4 12:50:28

求选中块参照A的外轮廓线内的图元（相交的不选中,A也呈选中状态）

本帖最后由 清风明月名字 于 2014-2-4 13:06 编辑

求选中块参照A的外轮廓线内的图元（相交的不选中,A也呈选中状态）。


外轮廓线可以简化为一个矩形，无须复杂化。

q3_2006 发表于 2014-2-5 06:20:30

(defun c:tt ()
        (setq e (car (entsel "\n选择块参照:"))
                box (acet-geom-extents e)
                ss (ssget "w" (car box) (cadr box))
                )
                (command "erase" ss "")
)

q3_2006 发表于 2014-2-5 06:21:13

这个问题超简单....安装ET工具就能做到.....用了ET函数...

q3_2006 发表于 2014-2-5 22:01:03

(defun c:tt ( / box e ll ss ur)
(vl-load-com)
      (setq e (car (entsel "\n选择块参照:")))
      (vla-getboundingbox (vlax-ename->vla-object e) 'll 'ur)
      (setq box (mapcar 'vlax-safearray->list (list ll ur))
                ss (ssget "w" (car box) (cadr box))
                )
                (command "erase" ss "")
)

CAD小帮手 发表于 2014-9-5 12:33:36


自贡黄明儒 发表于 2014-9-5 15:56:03

如果你的块外是封闭的，还是好办的
1 先画一个比块外形大一点的矩形
2 在块与矩形之间，用bpoy
3 去除产生的多段中，面积大的好个
页: [1]
查看完整版本: 求选中块参照A的外轮廓线内的图元（相交的不选中,A也呈选中状态）