求一键修改填充样式程序

cjjh8301

常用的填充样式就那几种，求一个小程序，能一个命令修改选择集中的填充样式，并把填充归到指定的图层，一个命令对应一种填充，任选一个填充写一个，其他我自己改下填充名就好了！

start4444

改为实体填充"SOLID"，归到 “指定图层名” 层
(defun c:tt5 (/ en i ss)
(setq        ss (ssget '((0 . "HATCH"))))
(setq i -1)
        (while (setq en (ssname ss (setq i (1+ i))))
        (command "hatchedit" en "p" "SOLID" )       
        );while
        (command "change" ss "" "p" "la" "指定图层名" "")
(princ)                       
)

cjjh8301

start4444 发表于 2020-4-3 15:05
改为实体填充"SOLID"，归到 “指定图层名” 层
(defun c:tt5 (/ en i ss)
(setq        ss (ssget '((0 . "HATCH ...

完美，再次感谢热心兄弟！

cjjh8301

start4444 发表于 2020-4-3 15:05
改为实体填充"SOLID"，归到 “指定图层名” 层
(defun c:tt5 (/ en i ss)
(setq        ss (ssget '((0 . "HATCH ...

好了，可以了！！！！