如何拉伸填充图案，有相关的Lisp工具吗？

吉木攻橙湿

特性里面改成关联

qmqyqj

留个位置，等待大神

love1030312

xj6019 发表于 2019-12-4 12:15
你没明白楼主的意思，自己画当然可以，可是接到别人的图纸不是关联的呢，挨个删掉自己重新填一遍？？？这 ...

全选填充 再关联一次边界  就能拉伸了   最后在把关联生成多余图层删掉   完事

xj6019

love1030312 发表于 2019-12-5 11:03
全选填充 再关联一次边界  就能拉伸了   最后在把关联生成多余图层删掉   完事

这个自己瞎弄了个这么个玩意  只能单个填充管用   2个以上就百搭了   谁知道怎么搞 可以加上批量处理
本人不会写代码 纯属命令瞎凑  见笑见笑！！  现在的边界是建立在当前图层上  最好是能创建在指定图层上，本人不会
(defun c:HJ()(command"hatchedit" "b" "p" "y" "regen")
(princ)
)

KO你

这个可以实现，但只能选一个填充和边界
(defun c:hq1 () (command"-hatchedit"(ssget)"as""s"))

mokson

KO你 发表于 2019-12-11 20:52
这个可以实现，但只能选一个填充和边界
(defun c:hq1 () (command"-hatchedit"(ssget)"as""s"))

达到如期效果。非常感谢

mokson

如果能直接拉伸图案，是多么牛B的技术呀。
可惜目前不能做得到。

KO你

mokson 发表于 2019-12-12 11:16
如果能直接拉伸图案，是多么牛B的技术呀。
可惜目前不能做得到。

应该可以做到，把填充生成界线再拉伸，或把填充关联界线再拉伸

nochao

这个功能确实很有必要，经常会遇到这种情况。

cq4920

可以重新生成多个新的边界（这些边界线应该可以被集体选中），拉伸完成后，再删除边些界线！回头试试！