如何拉伸填充图案,有相关的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
说实话哦,其实我也想知道,或者什么方式让填充和边框重新关联
填充的时候把关联那里勾上,二楼的动图可以注意一下有这个细节