[LISP程序]：使可见图层上的图元不可见

lsjjm

最初由 mr cool 发布
[B]2004里为什么不能用? [/B]

不会吧? 出现什么情况, 请说明. 2000i, 2005都没有问题.

陌生人

运行前执行(vl-load-com)

mr cool

1楼的用你的方法确实可以隐藏，可在隐藏后怎么使之可见呢？？？

lsjjm

15,18楼: 看我在6楼的答复2.

newer

mr cool 发表于 2004-5-10 19:09

下面代码使隐藏的实体可见

1. (defun c:show ()
   
2.   (if (setq ss (ssget "x"))
   
3.     (progn
   
4.       (vlax-for  item (vla-get-ActiveSelectionSet
   
5.            (vla-get-activedocument (vlax-get-acad-object))
   
6.          )
   
7.   (vla-put-Visible item :vlax-true)
   
8.       )
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:show ()<br />   (if (setq ss (ssget "x"))<br />     (progn<br />       (vlax-for  item (vla-get-ActiveSelectionSet<br />            (vla-get-activedocument (vlax-get-acad-object))<br />          )<br />   (vla-put-Visible item :vlax-true)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

yoyoho

感谢分享程序,学习了!!!!!