[讨论]：把选中的物体的线型和颜色和线宽设为当前.怎么做到啊?

carrot1983

把选中的物体的线型和颜色和线宽设为当前.怎么做到啊。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:tcc()
   
5. (setq sel (entsel "\n选择置为当前图层的物件:"))
   
6. (setq na (car sel))
   
7. (setq tc_name (cdr (assoc '8 (entget na))))
   
8. (setq tc_ltype (cdr (assoc '6 (entget na))))
   
9. (setq tc_color (cdr (assoc '62 (entget na))))
   
10. (setvar "clayer" tc_name)
    
11. (setvar "celtype" tc_ltype)
    
12. (setvar "cecolor" tc_color)
    
13. (prin1)
    
14. )
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:tcc()<br /> (setq sel (entsel "\n选择置为当前图层的物件:"))<br /> (setq na (car sel))<br /> (setq tc_name (cdr (assoc '8 (entget na))))<br /> (setq tc_ltype (cdr (assoc '6 (entget na))))<br /> (setq tc_color (cdr (assoc '62 (entget na))))<br /> (setvar "clayer" tc_name)<br /> (setvar "celtype" tc_ltype)<br /> (setvar "cecolor" tc_color)<br /> (prin1)<br /> )<br />   [/FONT]<br />

我只会把选中的物体的图层,设为当前.可是线型和颜色却做不到。
哪位知道指导一二。。

phoenixdjq

要把群码前面的'去掉,也可以
我试了,总是有变量被拒绝
设置颜色的话,如果不是bylayer,byblock,可以用这个命令代替
(command "color"  tc_color)
其他两项也可以用命令调整,具体命令如下:
-color
-layer
-linetype

carrot1983

我也想过。
可是：
命令: (setq tc_name (cdr (assoc 8 (entget na)))) "0"

命令: (setq tc_ltype (cdr (assoc 6 (entget na)))) nil

命令: (setq tc_color (cdr (assoc 62 (entget na)))) nil
我选中了一个物件，没办法。。。 tc_ltype和tc_color都是nil
可是tc_name图层名称却可以得到。。
因为(entget na)里面没有6和62这两个值。这两个值只有在
(tblnext "layer" T)里面才有。6代表线型62代表颜色。。。。
楼上还是很感谢回答。

phoenixdjq

颜色如果是随层或随块的话，那就会返回nil
这个随层和随块还是不好控制的
一般情况下，图层是都能改的
因为图层不受随层和随块的影响

橄榄滋味

增加判断语句，如果为nil就是随层，后面怎么处理自己决定，要么重新设置，要么不设置。
需要特别注意的是，如果不是nil，颜色返回的是数字，你需要转换为字符串，然后才能用setvar函数。线型返回的是字符串。