所有图元颜色改为8

无厘崖 · 发表于 2022-7-19 11:53:00

将图纸中所有图元颜色改为8，新手刚开始学写lsp，用的command ，见笑了！
(defun c:ysxg(/ ss oldos)
      (setq ss (ssget "x"))
      (SETQ oldos (GETVAR "OSMODE"))
      (SETVAR "OSMODE" 0)
      (command "change" ss "" "p" "c" "8" "");;颜色度8
      (SETVAR "OSMODE" oldos)
      (prompt "\n已将所有图元颜色设置为颜色8")
)

tigcat · 发表于 2022-7-19 12:17:00

支持一下，😃，这个改不了图块噢

czb203 · 发表于 2022-7-19 15:39:00

大佬支持一下，牛叉～

henu19 · 发表于 2022-7-20 13:01:00

(SETQ oldos (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETVAR "OSMODE" oldos)
这些操作没有必要的吧

荣sir · 发表于 2022-7-27 17:36:00

只是把外表颜色改了，图块内部颜色没变化哟

荣sir · 发表于 2022-7-27 17:49:00

可以这样
(COMMAND "LAYER" "U" "*" "S" "0" "") ;解锁所有图层
(COMMAND "LAYER" "C" "8" "*" "") ;所有图层8号色
(COMMAND "setbylayer" "all" "" "Y" "Y" "") ;图元特性随层
所有内容就都8号色了

所有图元颜色改为8

发表回复

精选推荐