cjjh8301 发表于 2020-4-3 15:05:23

求一键修改填充样式程序

本帖最后由 cjjh8301 于 2020-4-3 15:07 编辑

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

start4444 发表于 2020-4-3 15:05:24

改为实体填充"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 发表于 2020-4-3 16:22:30

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

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

cjjh8301 发表于 2020-4-3 16:29:42

本帖最后由 cjjh8301 于 2020-4-3 16:33 编辑

start4444 发表于 2020-4-3 15:05
改为实体填充"SOLID"，归到 “指定图层名” 层
(defun c:tt5 (/ en i ss)
(setq      ss (ssget '((0 . "HATCH ...
好了，可以了！！！！
页: [1]
查看完整版本: 求一键修改填充样式程序