更改图层颜色

dj0737 · 发表于 2013-8-18 00:10:24

原来图层对象不是随层的，我现在需要把该图层对象改为白色，求高手帮忙！！因为文件有上千个，我有程序运行LSP，现在需要的是将改图层对象改为白色的lsp,谢谢！

xiaobaixiaobu · 发表于 2013-8-21 22:24:24

(defun c:tt()
(setvar "cmdecho" 0)
      (setq lay(cdr (assoc 8 (entget (car (entsel "\n 请选择要改变颜色的层:"))))))
      ;(setq ss (ssget))
      ;(if ss (progn
      (setq colour (getstring "\n颜色号<1-255>:"))
   (command "-layer" "c" colour lay ""))
   (setvar "cmdecho" 1)
(princ)

程序可以实现改变指定层的颜色，希望对你有帮助！

清风明月名字 · 发表于 2013-8-26 19:55:04

谢谢楼主分享，辛苦了！

somefuture · 发表于 2014-2-24 11:50:47

哈哈楼主的提问，更谢谢高手的解答了。

yiqisese · 发表于 2014-11-25 20:19:17

要的就是这个谢谢

账号		自动登录	找回密码
密码			注册

更改图层颜色

评分