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

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

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

太好了谢谢
页: [1]
查看完整版本: 镜像并重复帮助。。。