[求助]：请帮忙看一下这个改图层颜色错在哪里？

baihc798

;颜色
(DEFUN C:ys ( / )
(setq pnam (ssget))
(COMMAND "-layer" "S" pnam "" "c" "8" "")
    (PRINC)
)

程序是：把选择对像的图层颜色改成8号颜色。
老是运行不了，改来改去也不对，运行命令里“输入要置为的当前图层或（选择对像）：”这回车选择对像LSP 到底要怎么写呢？请高手帮忙一下吧。本人对lsp了解十分有限。

xyp1964

别用无关的layer命令。

2. [FONT=courier new];;颜色
   
3. (DEFUN C:ys (/ pnam)
   
4.   (if (setq pnam (ssget))
   
5.     (COMMAND "chprop" pnam "" "c" "8" "")
   
6.   )
   
7.   (PRINC)
   
8. )[/FONT]

[FONT=courier new];;颜色 <br /> (DEFUN C:ys (/ pnam)<br />   (if (setq pnam (ssget))<br />     (COMMAND "chprop" pnam "" "c" "8" "")<br />   )<br />   (PRINC)<br /> )[/FONT]

baihc798

感谢斑竹，可是你这个只改了对象的颜色，我想改的是图层的颜色呀。

xyp1964

最初由 baihc798 发布
[B]感谢斑竹，可是你这个只改了对象的颜色，我想改的是图层的颜色呀。 [/B]

偶理解错了。

2. [FONT=courier new];;修改层颜色
   
3. (DEFUN C:ys (/ pnam)
   
4.   (setq la0 (getvar "CLAYER"))
   
5.   (if (setq pnam (ssget))
   
6.     (progn
   
7.       (setq i -1)
   
8.       (while (setq s1 (ssname pnam (setq i (1+ i))))
   
9.         (setq la (cdr (assoc 8 (entget s1))))
   
10.         (COMMAND "layer" "s" la "c" "8" "" "")
    
11.       )
    
12.     )
    
13.   )
    
14.   (setvar "CLAYER" la0)
    
15.   (PRINC)
    
16. )[/FONT]

[FONT=courier new];;修改层颜色 <br /> (DEFUN C:ys (/ pnam)<br />   (setq la0 (getvar "CLAYER"))<br />   (if (setq pnam (ssget))<br />     (progn<br />       (setq i -1)<br />       (while (setq s1 (ssname pnam (setq i (1+ i))))<br />         (setq la (cdr (assoc 8 (entget s1))))<br />         (COMMAND "layer" "s" la "c" "8" "" "")<br />       )<br />     )<br />   )<br />   (setvar "CLAYER" la0)<br />   (PRINC)<br /> )[/FONT]

baihc798

太感谢了。

hq03

我是一們新進會員,能不能不需通過你們所需貨幣查看!
能修改敬此為謝!!