请大师帮助下..

h┽射手

比如：我的1图层默认的是白色，但是该图层上的实体被手动改层了红色，我想通过一个lsp文件实现自动转换，让图面上的实体是属于哪个层，就跟那个层设定的颜色一样。自己也有试着编，但是怎么都实现不了，请求帮助！！先谢谢大家:)

牢固

(command "chprop" (ssget “x” '((8 . "图层名称"))) "" "c" "bylayer" "")

h┽射手

牢固 发表于 2013-6-26 09:49
(command "chprop" (ssget “x” '((8 . "图层名称"))) "" "c" "bylayer" "")

...提示，错误太多.:L

GTJ116600

全部实体，随层转换
(command "chprop" (ssget "x") "" "c" "bylayer" "")

牢固

h┽射手 发表于 2013-6-26 10:04
...提示，错误太多.

将图层名称自行修改成需要修改的图层名称！
给的代码只是示例代码，最起码你要看懂了先吧！

GTJ116600

2. 
   
3. <P>;;;;;调整实体随层 by gtj116600</P>
   
4. <P>;;;;需要调整那个图层实体的颜色，就选那个图层的一个实体
   
5. (defun c:tt()
   
6.         (setq Vcmdecho (getvar "cmdecho"))
   
7.         (setvar "cmdecho" 0)
   
8.         (while (setq ent (car (entsel "\n选择要调整颜色的一个实体")))              
   
9.                (setq layn (cdr (assoc 8 (entget ent))))
   
10.                (setq ss (ssget "x" (list (cons 8 layn))))
    
11.                (command "chprop" ss "" "c" "bylayer" "")
    
12.         )      
    
13.         (setvar "cmdecho" Vcmdecho)
    
14.         (princ)
    
15. )</P>

<br /> <P>;;;;;调整实体随层 by gtj116600</P><br /> <P>;;;;需要调整那个图层实体的颜色，就选那个图层的一个实体<br /> (defun c:tt()<br />         (setq Vcmdecho (getvar "cmdecho"))<br />         (setvar "cmdecho" 0)<br />         (while (setq ent (car (entsel "\n选择要调整颜色的一个实体")))              <br />                (setq layn (cdr (assoc 8 (entget ent))))<br />                (setq ss (ssget "x" (list (cons 8 layn))))<br />                (command "chprop" ss "" "c" "bylayer" "")<br />         )      <br />         (setvar "cmdecho" Vcmdecho)<br />         (princ)<br /> )</P>