[LISP程序]：怎样批量块消隐

ydf7332462

怎样批量块消隐
text能批量消隐

陌生人

http://www.xdcad.net/forum/showt ... amp;threadid=133209
http://www.xdcad.net/forum/showt ... amp;threadid=134245

ydf7332462

1> 指定的 thread 无效.
2> 是数字求和不是块

陌生人

干脆给你现写一个吧,等我找都可以重新写出来了:(

2. 
   
3. ;批量隐藏------------------------------------------------陌生人.2004.1
   
4. ;;测试: (x_hide (ssget '((0 . "INSERT"))))
   
5. (defun x_hide (ss)
   
6.   (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
   
7.   (vlax-for obj ssv (vla-put-Visible Obj :vlax-false))
   
8. )
   
9. ;批量消隐------------------------------------------------陌生人.2004.1
   
10. ;;测试: (x_show (ssget "x" '((0 . "INSERT"))))
    
11. (defun x_show (ss)
    
12.   (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
    
13.   (vlax-for obj ssv (vla-put-Visible Obj :vlax-true))
    
14. )
    

<br /> ;批量隐藏------------------------------------------------陌生人.2004.1<br /> ;;测试: (x_hide (ssget '((0 . "INSERT"))))<br /> (defun x_hide (ss)<br />   (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))<br />   (vlax-for obj ssv (vla-put-Visible Obj :vlax-false))<br /> )<br /> ;批量消隐------------------------------------------------陌生人.2004.1<br /> ;;测试: (x_show (ssget "x" '((0 . "INSERT"))))<br /> (defun x_show (ss)<br />   (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))<br />   (vlax-for obj ssv (vla-put-Visible Obj :vlax-true))<br /> )<br />

ydf7332462

怪我未说清，我是要：块挡去其它，而不是隐藏块本身

陌生人

晓东工具箱有个求实体外轮廓的，先用那个，再wipeout

ydf7332462

xd不支持r2004