社区 › AutoCAD工具插件 › 求大神编一lsp，把图层的颜色变成图层内对象的颜色，不是随图层的颜色

cashin 发表于 2014-9-1 20:47:09

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

图里所有对象都是随图层的颜色，一旦改到其他图层就变颜色，我不希望它换其他图层变颜色，而又需要换图层，就是我希望换到其他图层里还是原来的颜色，就是说把之前的图层的颜色变成该对象的颜色，因为颜色过多，所以手动变颜色状态太麻烦了，这种情况很多！      所以求大神编一lsp搭救！！拜托了

q3_2006 发表于 2014-9-1 21:05:27

(defun c:tt ( / col e el i lay ss)
(setq ss (ssget "x"))
(repeat (setq i (sslength ss))
    (setq e (ssname ss (setq i (1- i)))
          el (entget e)
          lay (cdr (assoc 8 el))
          col (cdr (assoc 62 (entget (tblobjname "layer" lay))))
          el (entmod (append el (list (cons 62 col))))
    )
)
)

cashin 发表于 2014-9-1 21:36:43

q3_2006 发表于 2014-9-1 21:05 static/image/common/back.gif


大神威武！好人一生平安，谢谢！成功使用！

cashin 发表于 2014-9-8 17:22:55

q3_2006 发表于 2014-9-1 21:05 static/image/common/back.gif


大神，又出现了点问题，可以帮忙解答一下吗？

q3_2006 发表于 2014-9-8 19:32:56

(defun c:tt ( / col e el i ss)
(setq ss (ssget "x"))
(repeat (setq i (sslength ss))
    (setq e (ssname ss (setq i (1- i)))
          el (entget e)
      )
      (if (not (assoc 62 el))
              (setq col (cdr (assoc 62 (entget (tblobjname "layer" (cdr (assoc 8 el))))))
              el (entmod (append el (list (cons 62 col)))))
      )
    )
)

cashin 发表于 2014-9-13 22:02:35

q3_2006 发表于 2014-9-8 19:32 static/image/common/back.gif


谢谢....~~~~~~~~~~~

逍遥无声 发表于 2020-6-17 18:23:06

dasha321 发表于 2020-9-9 23:19:10

我咋用不了呢，求解释，谢谢

查看完整版本: 求大神编一lsp，把图层的颜色变成图层内对象的颜色，不是随图层的颜色