镜像并重复帮助。。。

leonucadomi · 发表于 2022-7-20 21:41:43

大家好：

我想改进一下这个动作，你能帮我吗？
这很简单

我试图选择一些对象来制作镜像并删除它们
但我搜索了一次选定的对象和对称轴的两个点
使用enter键，您将在原始对象及其镜像之间切换
我做的这个例程可以做到这一点，但当我需要看到它时，它不会显示轴

（定义C：| f（/ss pt1 pt2）
（setq ss（ssget））
（setq pt1（getpoint））
（setq pt2（getpoint））
（grdraw pt1 pt2-1 1）
（重复100次
（setq gira（getreal“\n镜像：”）
（if（等于gira nil）（setq gira 1））
（如果（=gira 1）
（命令“_mirror”ss“pt1 pt2”y”）
（命令“_regenall”）
)
);重复
（普林斯）
)

mhupp · 发表于 2022-7-20 22:15:47

copy

(setq pt2 (getpoint))
change
(setq pt2 (getpoint p1))

leonucadomi · 发表于 2022-7-20 22:46:05

太好了谢谢

[编程交流] 镜像并重复帮助。。。

发表回复

精选推荐