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

要的就是这个谢谢
页: [1]
查看完整版本: 更改图层颜色