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

清风明月名字

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


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

q3_2006

2. (defun c:tt ()
   
3.         (setq e (car (entsel "\n选择块参照:"))
   
4.                 box (acet-geom-extents e)
   
5.                 ss (ssget "w" (car box) (cadr box))
   
6.                 )
   
7.                 (command "erase" ss "")
   
8. )

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

q3_2006

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

q3_2006

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

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

CAD小帮手

自贡黄明儒

如果你的块外是封闭的，还是好办的
1 先画一个比块外形大一点的矩形
2 在块与矩形之间，用bpoy
3 去除产生的多段中，面积大的好个