[建议]：这个帖子有灌水嫌疑，但请斑竹原谅，不得已啊

chenhang1203

请问这个问题这么多天了，是否无法解决？斑竹能否给个答复？
http://www.xdcad.net/forum/showthread.php?threadid=94807
一个小小建议：我觉的论坛上有许多帖子类似我这样的没有回复，我觉得我要是斑竹，一定会告诉它这个问题暂时无法解决，请耐心等待，或者尽可能把帖子置顶，看看有没高手会解决，由于论坛里自己不能置顶自己的帖子，别人胡乱灌水说不会，又可能被斑竹扣分，最后有问题的帖子就象这样沉下去，很伤别人的心，呜呜。。。

eachy

最初由 chenhang1203 发布
[B]请问这个问题这么多天了，是否无法解决？斑竹能否给个答复？
http://www.xdcad.net/forum/showthread.php?threadid=94807
一个小小建议：我觉的论坛上有许多帖子类似我这样的没有回复，我觉得我要是斑?.. [/B]

2. 
   
3. (defun c:test (/ ss oldpick)
   
4.   (command ".undo" "begin")
   
5.   (setq oldpick (getvar "pickstyle"))
   
6.   (setvar "pickstyle" 0)
   
7.   (setq ss (ssget '((0 . "wipeout"))))
   
8.   (vl-cmdf ".erase" ss "")
   
9.   (setvar "pickstyle" oldpick)
   
10.   (command ".undo" "end")
    
11.   (princ)
    
12. )
    

<br /> (defun c:test (/ ss oldpick)<br />   (command ".undo" "begin")<br />   (setq oldpick (getvar "pickstyle"))<br />   (setvar "pickstyle" 0)<br />   (setq ss (ssget '((0 . "wipeout"))))<br />   (vl-cmdf ".erase" ss "")<br />   (setvar "pickstyle" oldpick)<br />   (command ".undo" "end")<br />   (princ)<br /> )<br />

chenhang1203

谢谢，但是斑竹：
输入命令时需要选择物体，应选取什么才对呢，我选块或者直线都提示被滤去了，请问这个程序有问题吗？能解决取消遮挡的问题吗？

eachy

最初由 chenhang1203 发布
[B]谢谢，但是斑竹：
输入命令时需要选择物体，应选取什么才对呢，我选块或者直线都提示被滤去了，请问这个程序有问题吗？能解决取消遮挡的问题吗？ [/B]

你是要删除遮盖，还是整个遮盖的“实体”。

chenhang1203

恢复到没有遮盖的状态，图元都在，没有删除，让原来被挡在图块后的线重新变的看得见，就好象没用过遮盖命令时那样。

eachy

对啊，上面的程序就是这个功能，选择的时候用 C 窗口选，或者由右上到左下选择。

chenhang1203

那你帮我看看这个图，怎样让插入图块S后，不再把后面的直线遮住，让被遮住的直线露出来

eachy

最初由 chenhang1203 发布
[B]那你帮我看看这个图，怎样让插入图块S后，不再把后面的直线遮住，让被遮住的直线露出来 [/B]

这个遮盖是在块定义内部，上面的程序是无法删除对，但打散的遮盖块、遮盖与实体是编组形式存在或者单独的遮盖用上面的程序删除。

2. 
   
3. ;;去除块定义内的Wipeout，CAD2004下测试通过
   
4. (defun c:test (/ e doc obj)
   
5.   (setq e (entsel "\n选择去除遮盖的图块: "))
   
6.   (if e
   
7.     (progn
   
8.       (setq
   
9.         doc (vlax-get-property (vlax-get-acad-object) 'ActiveDocument)
   
10.       )
    
11.       (vla-startundomark doc)
    
12.       (setq obj (vlax-ename->vla-object (car e)))
    
13.       (if (= (vla-get-objectname obj) "AcDbBlockReference")
    
14.         (progn
    
15.           (vlax-for ent        (vla-item (vla-get-blocks doc)
    
16.                                   (vla-get-name obj)
    
17. 
    
18.                         )
    
19.             (if        (= (vla-get-objectname ent) "AcDbWipeout")
    
20.               (vla-delete ent)
    
21.             )
    
22.           )
    
23.           (vla-regen doc acActiveViewport)
    
24.         )
    
25.       )
    
26.       (vla-endundomark doc)
    
27.       (princ)
    
28.     )
    
29.   )
    
30.   (princ)
    
31. )

<br /> ;;去除块定义内的Wipeout，CAD2004下测试通过<br /> (defun c:test (/ e doc obj)<br />   (setq e (entsel "\n选择去除遮盖的图块: "))<br />   (if e<br />     (progn<br />       (setq<br />         doc (vlax-get-property (vlax-get-acad-object) 'ActiveDocument)<br />       )<br />       (vla-startundomark doc)<br />       (setq obj (vlax-ename->vla-object (car e)))<br />       (if (= (vla-get-objectname obj) "AcDbBlockReference")<br />         (progn<br />           (vlax-for ent        (vla-item (vla-get-blocks doc)<br />                                   (vla-get-name obj)<br /> <br />                         )<br />             (if        (= (vla-get-objectname ent) "AcDbWipeout")<br />               (vla-delete ent)<br />             )<br />           )<br />           (vla-regen doc acActiveViewport)<br />         )<br />       )<br />       (vla-endundomark doc)<br />       (princ)<br />     )<br />   )<br />   (princ)<br /> )

chenhang1203

这次对了，谢谢斑竹，建议加到小东工具箱里去