<求助>按颜色显示/隐藏对象 总是出现致命错误

ㄘ丶转裑ㄧ灬

         加载下面这段代码没事，但是运行的时候总是致命错误退出，我用2008和10都试过了，都一样，不知道是哪里错了、、、

2.      ;YC1:隐藏选中的对象 ;YC2:隐藏同一颜色的对象 ;YC3:只显示选择颜色的对象 ;XS:显示所有隐藏的对象
   
3. (defun c:yc1 (/ ss ssn n)
   
4.   (princ "\n请选择需要隐藏的对象:")
   
5.   (setq ss (ssget))
   
6.   (command "undo" "be")
   
7.   (setvar "cmdecho" 0)
   
8.   (setq n 0)
   
9.   (while (< n (sslength ss))
   
10.     (setq ssn (ssname ss n))
    
11.     (setq ssn (entget ssn))
    
12.     (setq ssn (append ssn '((60 . 1))))
    
13.                                         ;(setq ssn (cons '(60 . 1) ssn))
    
14.     (entmod ssn)
    
15.     (setq n (1+ n))
    
16.   )
    
17.   (command "undo" "e")
    
18.   (princ)
    
19. )
    
20. (defun c:yc2 (/ ss ssn n cor m ss1 pd ssm)
    
21.   (princ "\n请选择需要隐藏的颜色:")
    
22.   (setq ss (nth 0 (entsel)))
    
23.   (command "undo" "be")
    
24.   (setvar "cmdecho" 0)
    
25.   (setq cor (assoc 62 (entget ss)))        ;颜色如果随层,按图层颜色
    
26.   (if (= cor nil)
    
27.     (progn (setq tc (cdr (assoc 8 (entget ss))))
    
28.            (setq tc (tblsearch "layer" tc))
    
29.            (setq cor (assoc 62 tc))
    
30.     )
    
31.   )
    
32. ;;;找出不是随层符合颜色的对象
    
33.   (setq ss (ssget "x" (list cor)))
    
34.   (if (/= ss nil)
    
35.     (progn (setq n 0)
    
36.            (while (< n (sslength ss))
    
37.              (setq ssn (ssname ss n))
    
38.              (setq ssn (entget ssn))
    
39.              (setq ssn (append ssn '((60 . 1))))
    
40.              (entmod ssn)
    
41.              (setq n (1+ n))
    
42.            )
    
43.     )
    
44.   )
    
45. ;;;找出随层符合颜色的对象
    
46.   (setq tc (tblnext "layer" "0"))
    
47.   (while (/= tc nil)
    
48.     (if        (equal cor (assoc 62 tc))
    
49.       (progn (setq ss1 (ssget "x" (list (cons 8 (cdr (assoc 2 tc))))))
    
50.              (if (/= ss1 nil)
    
51.                (progn (setq m 0)
    
52.                       (while (< m (sslength ss1))
    
53.                         (setq ssm (entget (ssname ss1 m)))
    
54.                         (setq pd (assoc 62 ssm))
    
55.                         (if (= pd nil)
    
56.                           (progn (setq ssm (append ssm '((60 . 1)))) ;
    
57.                                  (setq ssm (cons '(60 . 1) ssm))
    
58.                                  (entmod ssm)
    
59.                           )
    
60.                         )
    
61.                         (setq m (1+ m))
    
62.                       )
    
63.                )
    
64.              )
    
65.       )
    
66.     )
    
67.     (setq tc (tblnext "layer"))
    
68.   )
    
69.   (command "undo" "e")
    
70.   (princ)
    
71. )
    
72. (defun c:yc3 (/ corss ssn cor ss corl n tc)
    
73.   (princ "\n请选择不隐藏颜色:")
    
74.   (setq ss (ssget))
    
75.   (command "undo" "be")
    
76.   (setvar "cmdecho" 0)
    
77.   (setq corss (list))
    
78.   (setq n 0)
    
79.   (while (< n (sslength ss))                ;找出不关闭的颜色
    
80.     (setq ssn (ssname ss n))
    
81.     (setq cor (assoc 62 (entget ssn)))        ;不随层
    
82.     (if        (= cor nil)                        ;随层
    
83.       (progn (setq tc (cdr (assoc 8 (entget ssn))))
    
84.              (setq tc (tblsearch "layer" tc))
    
85.              (setq cor (assoc 62 tc))
    
86.       )
    
87.     )
    
88.     (setq cor (cdr cor))                ;得到颜色
    
89.     (setq corl (list cor))
    
90.     (if        (= nil (assoc cor corss))
    
91.       (setq corss (cons corl corss))
    
92.     )
    
93.     (setq n (1+ n))
    
94.   )
    
95.   (princ "\n不隐藏颜色:")
    
96.   (princ corss)
    
97.   (setq ss (ssget "x" '()))
    
98.   (setq n 0)
    
99.   (while (< n (sslength ss))
    
100.     (setq ssn (ssname ss n))
     
101.     (setq cor (assoc 62 (entget ssn)))
     
102.     (if        (= cor nil)
     
103.       (progn (setq tc (cdr (assoc 8 (entget ssn))))
     
104.              (setq tc (tblsearch "layer" tc))
     
105.              (setq cor (assoc 62 tc))
     
106.       )
     
107.     )
     
108.     (setq cor (cdr cor))                ;得到颜色
     
109.     (if        (= nil (assoc cor corss))        ;如果不在表内隐藏
     
110.       (progn (setq ssn (entget ssn))
     
111.              (setq ssn (append ssn '((60 . 1))))
     
112.              (entmod ssn)
     
113.       )
     
114.     )
     
115.     (setq n (1+ n))
     
116.   )
     
117.   (command "undo" "e")
     
118.   (princ)
     
119. )
     
120. (defun c:xs (/ ss ssn n)
     
121.   (setq ss (ssget "x" (list (cons 60 1))))
     
122.   (command "undo" "be")
     
123.   (setvar "cmdecho" 0)
     
124.   (setq n 0)
     
125.   (while (< n (sslength ss))
     
126.     (setq ssn (ssname ss n))
     
127.     (setq ssn (entget ssn))
     
128.     (setq ssn (subst (cons 60 0) (assoc 60 ssn) ssn))
     
129.     (entmod ssn)
     
130.     (setq n (1+ n))
     
131.   )
     
132.   (command "undo" "e")
     
133. )

     ;YC1:隐藏选中的对象 ;YC2:隐藏同一颜色的对象 ;YC3:只显示选择颜色的对象 ;XS:显示所有隐藏的对象<br /> (defun c:yc1 (/ ss ssn n)<br />   (princ "\n请选择需要隐藏的对象:")<br />   (setq ss (ssget))<br />   (command "undo" "be")<br />   (setvar "cmdecho" 0)<br />   (setq n 0)<br />   (while (< n (sslength ss))<br />     (setq ssn (ssname ss n))<br />     (setq ssn (entget ssn))<br />     (setq ssn (append ssn '((60 . 1))))<br />                                         ;(setq ssn (cons '(60 . 1) ssn))<br />     (entmod ssn)<br />     (setq n (1+ n))<br />   )<br />   (command "undo" "e")<br />   (princ)<br /> )<br /> (defun c:yc2 (/ ss ssn n cor m ss1 pd ssm)<br />   (princ "\n请选择需要隐藏的颜色:")<br />   (setq ss (nth 0 (entsel)))<br />   (command "undo" "be")<br />   (setvar "cmdecho" 0)<br />   (setq cor (assoc 62 (entget ss)))        ;颜色如果随层,按图层颜色<br />   (if (= cor nil)<br />     (progn (setq tc (cdr (assoc 8 (entget ss))))<br />            (setq tc (tblsearch "layer" tc))<br />            (setq cor (assoc 62 tc))<br />     )<br />   )<br /> ;;;找出不是随层符合颜色的对象<br />   (setq ss (ssget "x" (list cor)))<br />   (if (/= ss nil)<br />     (progn (setq n 0)<br />            (while (< n (sslength ss))<br />              (setq ssn (ssname ss n))<br />              (setq ssn (entget ssn))<br />              (setq ssn (append ssn '((60 . 1))))<br />              (entmod ssn)<br />              (setq n (1+ n))<br />            )<br />     )<br />   )<br /> ;;;找出随层符合颜色的对象<br />   (setq tc (tblnext "layer" "0"))<br />   (while (/= tc nil)<br />     (if        (equal cor (assoc 62 tc))<br />       (progn (setq ss1 (ssget "x" (list (cons 8 (cdr (assoc 2 tc))))))<br />              (if (/= ss1 nil)<br />                (progn (setq m 0)<br />                       (while (< m (sslength ss1))<br />                         (setq ssm (entget (ssname ss1 m)))<br />                         (setq pd (assoc 62 ssm))<br />                         (if (= pd nil)<br />                           (progn (setq ssm (append ssm '((60 . 1)))) ;<br />                                  (setq ssm (cons '(60 . 1) ssm))<br />                                  (entmod ssm)<br />                           )<br />                         )<br />                         (setq m (1+ m))<br />                       )<br />                )<br />              )<br />       )<br />     )<br />     (setq tc (tblnext "layer"))<br />   )<br />   (command "undo" "e")<br />   (princ)<br /> )<br /> (defun c:yc3 (/ corss ssn cor ss corl n tc)<br />   (princ "\n请选择不隐藏颜色:")<br />   (setq ss (ssget))<br />   (command "undo" "be")<br />   (setvar "cmdecho" 0)<br />   (setq corss (list))<br />   (setq n 0)<br />   (while (< n (sslength ss))                ;找出不关闭的颜色<br />     (setq ssn (ssname ss n))<br />     (setq cor (assoc 62 (entget ssn)))        ;不随层<br />     (if        (= cor nil)                        ;随层<br />       (progn (setq tc (cdr (assoc 8 (entget ssn))))<br />              (setq tc (tblsearch "layer" tc))<br />              (setq cor (assoc 62 tc))<br />       )<br />     )<br />     (setq cor (cdr cor))                ;得到颜色<br />     (setq corl (list cor))<br />     (if        (= nil (assoc cor corss))<br />       (setq corss (cons corl corss))<br />     )<br />     (setq n (1+ n))<br />   )<br />   (princ "\n不隐藏颜色:")<br />   (princ corss)<br />   (setq ss (ssget "x" '()))<br />   (setq n 0)<br />   (while (< n (sslength ss))<br />     (setq ssn (ssname ss n))<br />     (setq cor (assoc 62 (entget ssn)))<br />     (if        (= cor nil)<br />       (progn (setq tc (cdr (assoc 8 (entget ssn))))<br />              (setq tc (tblsearch "layer" tc))<br />              (setq cor (assoc 62 tc))<br />       )<br />     )<br />     (setq cor (cdr cor))                ;得到颜色<br />     (if        (= nil (assoc cor corss))        ;如果不在表内隐藏<br />       (progn (setq ssn (entget ssn))<br />              (setq ssn (append ssn '((60 . 1))))<br />              (entmod ssn)<br />       )<br />     )<br />     (setq n (1+ n))<br />   )<br />   (command "undo" "e")<br />   (princ)<br /> )<br /> (defun c:xs (/ ss ssn n)<br />   (setq ss (ssget "x" (list (cons 60 1))))<br />   (command "undo" "be")<br />   (setvar "cmdecho" 0)<br />   (setq n 0)<br />   (while (< n (sslength ss))<br />     (setq ssn (ssname ss n))<br />     (setq ssn (entget ssn))<br />     (setq ssn (subst (cons 60 0) (assoc 60 ssn) ssn))<br />     (entmod ssn)<br />     (setq n (1+ n))<br />   )<br />   (command "undo" "e")<br /> )

fengshi0519

用着很好啊

vlisp2012

用着确实很好，没发现啥问题。

ucuc2003

测试一切OK啊

林立

隐藏选择颜色时（yc2），会有部分隐藏不掉，其他正常使用，实用