所有图元颜色改为8

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

将图纸中所有图元颜色改为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

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

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

大佬支持一下，牛叉～

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

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

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

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

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

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

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