下面LISP如何修改能选中块内的对象

江南十笑

下面代码能隐藏显示S-DZQM图层上的实体，但是当S-DZQM图层上实体在块内，就无法隐藏和显示了 ，该如何修改？

2. ;[隐藏物体]
   
3. (defun c:111 (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay lay-tn)
   
4.   (setq AcadObject (vlax-get-acad-object)
   
5.     AcadDocument (vla-get-ActiveDocument AcadObject)
   
6.     LayersObj (vla-get-layers AcadDocument)
   
7.   );end setq
   
8.   (princ "\n请选择需要隐藏的物体" )
   
9.   
   
10.   
    
11.   (if (setq ss (ssget "x" (list (cons 8 "S-DZQM"))))
    
12.     (progn
    
13.       (setq n (sslength ss))
    
14.       (setq i (- n 1))
    
15.       (repeat n
    
16.         (setq ent (ssname ss i)
    
17.           ob (vlax-ename->vla-object ent)
    
18.           lay (vla-get-layer ob)
    
19.           vlay (vla-item LayersObj lay)
    
20.         );end setq
    
21.         (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true);如果图层锁定
    
22.           (vla-put-lock vlay :vlax-false);先解锁图层
    
23.         );end if
    
24.         (vla-put-visible ob :vlax-false)
    
25.         (if (= lay-tn :vlax-true)
    
26.           (vla-put-lock vlay :vlax-true);再锁定图层，恢复图层状态
    
27.         );end if
    
28.         (setq i (1- i))
    
29.       );end repeat
    
30.       (princ "\n已隐藏选择物体" )
    
31.   ));end if
    
32.   (princ)
    
33. )
    
34. 
    
35. ;[恢复隐藏]
    
36. (defun c:222 (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay lay-tn)
    
37.   (setq AcadObject (vlax-get-acad-object)
    
38.     AcadDocument (vla-get-ActiveDocument AcadObject)
    
39.     LayersObj (vla-get-layers AcadDocument)
    
40.   );end setq
    
41.   (if (setq ss (ssget "x" (list (cons 8 "S-DZQM"))))
    
42.     (progn
    
43.       (setq n (sslength ss))
    
44.       (setq i (- n 1))
    
45.       (repeat n
    
46.         (setq ent (ssname ss i)
    
47.           ob (vlax-ename->vla-object ent)
    
48.           lay (vla-get-layer ob)
    
49.           vlay (vla-item LayersObj lay)
    
50.         );end setq
    
51.         (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true)
    
52.           (vla-put-lock vlay :vlax-false)
    
53.         );end if
    
54.         (vla-put-visible ob :vlax-true)
    
55.         (if (= lay-tn :vlax-true)
    
56.           (vla-put-lock vlay :vlax-true)
    
57.         );end if
    
58.         (setq i (1- i))
    
59.       );end repeat
    
60.       (princ "\n已显示隐藏物体" )
    
61.     );end progn
    
62.     (princ "\n本图无隐藏物体" )
    
63.   );end if
    
64.   ;(vla-regen AcadDocument AcAllViewPorts) 图形较大有时需要重生成才显示 可把这句加上
    
65.   (princ)
    
66. )
    

;[隐藏物体]<br /> (defun c:111 (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay lay-tn)<br />   (setq AcadObject (vlax-get-acad-object)<br />     AcadDocument (vla-get-ActiveDocument AcadObject)<br />     LayersObj (vla-get-layers AcadDocument)<br />   );end setq<br />   (princ "\n请选择需要隐藏的物体" )<br />   <br />   <br />   (if (setq ss (ssget "x" (list (cons 8 "S-DZQM"))))<br />     (progn<br />       (setq n (sslength ss))<br />       (setq i (- n 1))<br />       (repeat n<br />         (setq ent (ssname ss i)<br />           ob (vlax-ename->vla-object ent)<br />           lay (vla-get-layer ob)<br />           vlay (vla-item LayersObj lay)<br />         );end setq<br />         (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true);如果图层锁定<br />           (vla-put-lock vlay :vlax-false);先解锁图层<br />         );end if<br />         (vla-put-visible ob :vlax-false)<br />         (if (= lay-tn :vlax-true)<br />           (vla-put-lock vlay :vlax-true);再锁定图层，恢复图层状态<br />         );end if<br />         (setq i (1- i))<br />       );end repeat<br />       (princ "\n已隐藏选择物体" )<br />   ));end if<br />   (princ)<br /> )<br /> <br /> ;[恢复隐藏]<br /> (defun c:222 (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay lay-tn)<br />   (setq AcadObject (vlax-get-acad-object)<br />     AcadDocument (vla-get-ActiveDocument AcadObject)<br />     LayersObj (vla-get-layers AcadDocument)<br />   );end setq<br />   (if (setq ss (ssget "x" (list (cons 8 "S-DZQM"))))<br />     (progn<br />       (setq n (sslength ss))<br />       (setq i (- n 1))<br />       (repeat n<br />         (setq ent (ssname ss i)<br />           ob (vlax-ename->vla-object ent)<br />           lay (vla-get-layer ob)<br />           vlay (vla-item LayersObj lay)<br />         );end setq<br />         (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true)<br />           (vla-put-lock vlay :vlax-false)<br />         );end if<br />         (vla-put-visible ob :vlax-true)<br />         (if (= lay-tn :vlax-true)<br />           (vla-put-lock vlay :vlax-true)<br />         );end if<br />         (setq i (1- i))<br />       );end repeat<br />       (princ "\n已显示隐藏物体" )<br />     );end progn<br />     (princ "\n本图无隐藏物体" )<br />   );end if<br />   ;(vla-regen AcadDocument AcAllViewPorts) 图形较大有时需要重生成才显示 可把这句加上<br />   (princ)<br /> )<br />

江南十笑

原代码是阿甘兄弟的代码 感谢

panliang9

这个需求还是很有意义的，帮楼主顶一下！

江南十笑

panliang9 发表于 2020-3-12 08:49
这个需求还是很有意义的，帮楼主顶一下！

谢谢                                       

江南十笑

哎 再顶一下