明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2898|回复: 7

求大神编一lsp,把图层的颜色变成图层内对象的颜色,不是随图层的颜色

[复制链接]
发表于 2014-9-1 20:47:09 | 显示全部楼层 |阅读模式
图里所有对象都是随图层的颜色,一旦改到其他图层就变颜色,我不希望它换其他图层变颜色,而又需要换图层,就是我希望换到其他图层里还是原来的颜色,就是说把之前的图层的颜色变成该对象的颜色,因为颜色过多,所以手动变颜色状态太麻烦了,这种情况很多!      所以求大神编一lsp搭救!!拜托了
发表于 2014-9-1 21:05:27 | 显示全部楼层
  1. (defun c:tt ( / col e el i lay ss)
  2.   (setq ss (ssget "x"))
  3.   (repeat (setq i (sslength ss))
  4.     (setq e (ssname ss (setq i (1- i)))
  5.           el (entget e)
  6.           lay (cdr (assoc 8 el))
  7.           col (cdr (assoc 62 (entget (tblobjname "layer" lay))))
  8.           el (entmod (append el (list (cons 62 col))))
  9.     )
  10.   )
  11. )
 楼主| 发表于 2014-9-1 21:36:43 | 显示全部楼层
q3_2006 发表于 2014-9-1 21:05

大神威武!好人一生平安,谢谢!成功使用!
 楼主| 发表于 2014-9-8 17:22:55 | 显示全部楼层
q3_2006 发表于 2014-9-1 21:05

大神,又出现了点问题,可以帮忙解答一下吗?
发表于 2014-9-8 19:32:56 | 显示全部楼层
  1. (defun c:tt ( / col e el i ss)
  2.   (setq ss (ssget "x"))
  3.   (repeat (setq i (sslength ss))
  4.     (setq e (ssname ss (setq i (1- i)))
  5.           el (entget e)
  6.       )
  7.       (if (not (assoc 62 el))
  8.               (setq col (cdr (assoc 62 (entget (tblobjname "layer" (cdr (assoc 8 el))))))
  9.               el (entmod (append el (list (cons 62 col)))))
  10.       )
  11.     )
  12.   )
 楼主| 发表于 2014-9-13 22:02:35 | 显示全部楼层
q3_2006 发表于 2014-9-8 19:32

谢谢....~~~~~~~~~~~
发表于 2020-9-9 23:19:10 | 显示全部楼层
我咋用不了呢,求解释,谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-25 13:30 , Processed in 0.163442 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表