[求助]：高手帮我完善下这个小程序 谢谢!

eobser

(defun c:by (/ ssl oce )   
   (setq oce (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq ssl (ssget "x" '((-4 . "<>") (62 . 256))))  
   (command "change" ssl "" "P" "C" "bylayer" "")     
   (setvar "cmdecho" oce)
   (princ)
)

;程序可以实现功能(把所有图元颜色改为随层)
但当再次执行时会有错误提示
是不是ssl不包含任何对象的原因?
请教什么语句来处理?

zxq0220

[php]
defun c:by (/ ssl oce )
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (setq ssl (ssget "x" '((-4 . "<>") (62 . 256))))
  (command "change" ssl "" "P" "C" "bylayer" "")
)
(setvar "cmdecho" oce)
(princ)
)
[/php]

zhengbinlover

(setq ssl (ssget "x" '((-4 . "<>") (62 . 256))))
不懂，请解释一下好吗？
特别是后面的列表，有何意义

zxq0220

最初由 zhengbinlover 发布
[B](setq ssl (ssget "x" '((-4 . "<>") (62 . 256))))
不懂，请解释一下好吗？
特别是后面的列表，有何意义 [/B]

256-->图元线型随图层
(-4 . "<>")-->不等于
结果是取得所有有线型的图元。

eobser

谢谢 楼上的朋友

marcoyuwen

1楼楼主的程序中(command "change" ssl "" "P" "C" "bylayer" "")改为(if ssl (command "change" ssl "" "P" "C" "bylayer" ""))

taner

2. 
   
3. (defun c:ccb (/ ss i elist)
   
4.   (setq i -1)
   
5.   (repeat (sslength (setq ss (ssget  '((-4 . "<>") (62 . 256)))) )
   
6. 
   
7.     (entmod
   
8.       (subst
   
9.         '(62 . 256)
   
10.         (assoc 62 (setq elist (entget (ssname ss (setq i (1+ i))))))
    
11.         elist
    
12.       )
    
13.     )
    
14.   )
    
15.   (princ)
    
16. )
    

<br /> (defun c:ccb (/ ss i elist)<br />   (setq i -1)<br />   (repeat (sslength (setq ss (ssget  '((-4 . "<>") (62 . 256)))) )<br /> <br />     (entmod<br />       (subst<br />         '(62 . 256)<br />         (assoc 62 (setq elist (entget (ssname ss (setq i (1+ i))))))<br />         elist<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />