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

所有图元颜色改为8

将图纸中所有图元颜色改为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号色了
页: [1]
查看完整版本: 所有图元颜色改为8