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

mokson · 发表于 2019-12-3 08:04

1. 有相关的Lisp工具可以同时拉伸图形以及填充图案吗？
2. 填充图案已经断开关联的情况下，如何重新关联图形？

以下是失去关联的填充图案，拉伸图形时无法被一起拉伸：

xj6019 · 发表于 2019-12-4 12:15

lxl217114 发表于 2019-12-4 11:42
填充的时候把关联那里勾上，二楼的动图可以注意一下有这个细节

你没明白楼主的意思，自己画当然可以，可是接到别人的图纸不是关联的呢，挨个删掉自己重新填一遍？？？这肯定是不现实的吧

cq4920 · 发表于 2020-3-7 19:37

(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 11:53

本帖最后由 xj6019 于 2019-12-5 12:05 编辑

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

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

uualice2020 · 发表于 2019-12-3 08:51

填充图案与图形一起做成动态块后拉伸

669423907 · 发表于 2019-12-3 09:35

填充本身是可以拉伸的

松树石头哥 · 发表于 2019-12-3 09:35

动态块怎么做？二楼

mokson · 发表于 2019-12-3 18:01

669423907 发表于 2019-12-3 09:35
填充本身是可以拉伸的

关联了我知道，问题是我打开别人的文件，全部填充是不关联的。

mokson · 发表于 2019-12-4 08:03

各位技术大牛，能写一个可以拉伸填充图案的 lisp 工具吗？以造福明经广大民众。

yoyoho · 发表于 2019-12-4 10:57

mokson 发表于 2019-12-4 08:03
各位技术大牛，能写一个可以拉伸填充图案的 lisp 工具吗？以造福明经广大民众。

_hatchgenerateboundary

xj6019 · 发表于 2019-12-4 11:13

说实话哦，其实我也想知道，或者什么方式让填充和边框重新关联

lxl217114 · 发表于 2019-12-4 11:42

xj6019 发表于 2019-12-4 11:13
说实话哦，其实我也想知道，或者什么方式让填充和边框重新关联

填充的时候把关联那里勾上，二楼的动图可以注意一下有这个细节

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

评分

本帖子中包含更多资源