如何拉伸填充图案，有相关的Lisp工具吗？
1. 有相关的Lisp工具可以同时拉伸图形以及填充图案吗？2. 填充图案已经断开关联的情况下，如何重新关联图形？
以下是失去关联的填充图案，拉伸图形时无法被一起拉伸：
lxl217114 发表于 2019-12-4 11:42
填充的时候把关联那里勾上，二楼的动图可以注意一下有这个细节
你没明白楼主的意思，自己画当然可以，可是接到别人的图纸不是关联的呢，挨个删掉自己重新填一遍？？？这肯定是不现实的吧 (defun C:sw (/ pt1 pt2 sg i s1)
(princ "\n请选择拉伸对象（填充有边界会再次生成边界）：")
(setq PT1 (getpoint "\n选择对象:"))
(setq PT2 (getcorner PT1 " >>>第二点:"))
;；(setq ent (entlast))
(setq sg (ssget "c" PT1 PT2 '((0 . "HATCH")) ) i -1);过滤对象只选填充图案
(while (setq s1 (ssname sg (setq i (1+ i))));批量生成填充边界
(command "-hatchedit" s1 "b" "p" "y")
)
(command".STRETCH" (ssget "c" PT1 PT2) "" pause pause);拉伸选择对象，可以修改只拉伸填充图案
;(COMMAND "_.erase"(last_ent ent) "");本打算删除最后的边界图元，可惜不成功！
(princ)
)
本帖最后由 xj6019 于 2019-12-5 12:05 编辑
love1030312 发表于 2019-12-5 11:03
全选填充 再关联一次边界就能拉伸了 最后在把关联生成多余图层删掉 完事
这个自己瞎弄了个这么个玩意只能单个填充管用 2个以上就百搭了 谁知道怎么搞 可以加上批量处理
本人不会写代码 纯属命令瞎凑见笑见笑！！现在的边界是建立在当前图层上最好是能创建在指定图层上，本人不会
(defun c:HJ()(command"hatchedit" "b" "p" "y" "regen")
(princ)
)
填充图案与图形一起做成动态块后拉伸 填充本身是可以拉伸的 动态块怎么做？二楼 669423907 发表于 2019-12-3 09:35
填充本身是可以拉伸的
关联了我知道，问题是我打开别人的文件，全部填充是不关联的。 各位技术大牛，能写一个可以拉伸填充图案的 lisp 工具吗？以造福明经广大民众。 mokson 发表于 2019-12-4 08:03
各位技术大牛，能写一个可以拉伸填充图案的 lisp 工具吗？以造福明经广大民众。
_hatchgenerateboundary 说实话哦，其实我也想知道，或者什么方式让填充和边框重新关联 xj6019 发表于 2019-12-4 11:13
说实话哦，其实我也想知道，或者什么方式让填充和边框重新关联
填充的时候把关联那里勾上，二楼的动图可以注意一下有这个细节