直接修改图元的'(60 . 1)和(vlax-put-property obj 'Visible 0)的区别？

libo2000

直接修改图元的'(60 . 1)和(vlax-put-property obj 'Visible 0)都能达到让图元隐藏的效果，
但是用vlax-put-property修改的图元，再(ssget point filter)点选的时候还是能选中该图元；
而直接修改'(60 . 1)的图元，再(ssget point filter)点选的时候无法选中该图元。
利用这个属性，可以很好的控制ssget点选目标。
大家都知道，用lisp直接修改天正图元很容易崩溃，而vlax-put-property修改却很正常。所以，这两者的差别就出来了。
想请教小，如何让(vlax-put-property obj 'Visible 0)的图元，ssget点选的时候无法选中它，即过滤掉他----无法用(not '(60 . 1))来过滤掉，虽然(entget)显示其‘（60 . 1）存在。
原代码如下：

1. (defun ssget_point (p0 filter_list)
   
2.     (setq ss (ssget p0)
   
3.                hides (ssadd)
   
4.              (setq NotHD (list '(-4 . "")))
   
5.     )
   
6.     (while ss
   
7.         (setq et (ssname ss 0))
   
8.         (if (ssget p0 filter_list)
   
9.            (progn
   
10.                 (ssadd et result)
    
11.                 (setq ss nil)
    
12.             ) ;endprogn
    
13.             (progn
    
14.                 (if (not (assoc 60 (entget et)))
    
15.                    (progn
    
16.                         (ssadd et hides)
    
17.                         (HideEnt et)
    
18.                     ) ;endprogn
    
19.                 )
    
20.                 (setq ss (ssget p0 NotHD))
    
21.             ) ;endelse
    
22.         );endif
    
23.     ); endwhile
    
24.     (setq i 0)
    
25.     (while (setq et (ssname Hides i))
    
26.         (setq i (1+ i))
    
27.         (ShowEnt et)
    
28.     ) ; endwhile
    
29. );endfun
    
30. (defun HideEnt (et)
    
31.     (#change et 60 1)
    
32.     ;(chengs_PutTch et 'Visible 0)    ;ssget pt的时候还是能搜索到
    
33. )
    
34. 
    
35. (defun ShowEnt (et)
    
36.     (#change et 60 0)
    
37.     ;(chengs_PutTch et 'Visible -1)    ;ssget pt的时候还是能搜索到
    
38. )
    
39. (defun #change (ename assoc_num newdate)
    
40.             (setq edate (assoc assoc_num elist))
    
41.             (setq update (cons assoc_num newdate))
    
42.             (if edate
    
43.                 (setq elist (subst
    
44.                                             update
    
45.                                             edate
    
46.                                             elist
    
47.                                         )
    
48.                 )
    
49.                 (setq elist (append
    
50.                                             elist
    
51.                                             (list update)
    
52.                                         )
    
53.                 )
    
54.             )
    
55.             (entmod elist)
    
56. )
    

(defun ssget_point (p0 filter_list)<br />     (setq ss (ssget p0) <br />                hides (ssadd) <br />              (setq NotHD (list '(-4 . "")))<br />     )<br />     (while ss<br />         (setq et (ssname ss 0))<br />         (if (ssget p0 filter_list)<br />            (progn<br />                 (ssadd et result)<br />                 (setq ss nil)<br />             ) ;endprogn<br />             (progn<br />                 (if (not (assoc 60 (entget et))) <br />                    (progn<br />                         (ssadd et hides)<br />                         (HideEnt et)<br />                     ) ;endprogn<br />                 )<br />                 (setq ss (ssget p0 NotHD))<br />             ) ;endelse<br />         );endif<br />     ); endwhile<br />     (setq i 0)<br />     (while (setq et (ssname Hides i))<br />         (setq i (1+ i))<br />         (ShowEnt et)<br />     ) ; endwhile<br /> );endfun<br /> (defun HideEnt (et)<br />     (#change et 60 1)<br />     ;(chengs_PutTch et 'Visible 0)    ;ssget pt的时候还是能搜索到<br /> )<br /> <br /> (defun ShowEnt (et)<br />     (#change et 60 0)<br />     ;(chengs_PutTch et 'Visible -1)    ;ssget pt的时候还是能搜索到<br /> )<br /> (defun #change (ename assoc_num newdate)<br />             (setq edate (assoc assoc_num elist))<br />             (setq update (cons assoc_num newdate))<br />             (if edate<br />                 (setq elist (subst<br />                                             update<br />                                             edate<br />                                             elist<br />                                         )<br />                 )<br />                 (setq elist (append<br />                                             elist<br />                                             (list update)<br />                                         )<br />                 )<br />             )<br />             (entmod elist)<br /> )<br />

cheng5276

楼主分析的透彻！赞一个

wuzheng80425

楼主历害啊，高手