求各位高手帮忙修改一下CAD原生镜像命令

ninja37

求各位高手帮忙修改一下CAD原生镜像命令我们厂里是机加工行业  经常要核对别人的零件是不是对称的  
经常要镜像一下 对比一下是不是对称
CAD原生命令 输入mi后要选择图元 指定一个2个点  并且要打开正交开关。非常麻烦。
现再希望高手们就稍微修改下原生命令  输入命令后 1自动打开正交开关 2选择要镜像的图元  3然后输入一个点   4选的图元根据这个点跟y轴 镜像 ，5自动删除图元否 。 （命令不  考虑图层颜色  文字是否镜像）  (原生命令基本不用动  由于本人lisp水平很差   大概知道好像是在输入第一个点 后可以输入一个轴的矢量什么的  估计是@y 或者是.y )
拜托各位了。

start4444

ninja37 发表于 2020-11-23 09:20
这位小兄弟 ，程序很好用    能不能稍微改进一下    数入镜像点后  不要问要不要删除原来的图N    直接默 ...

最后一步改为N就好了
(command "ortho" "on"  "MIRROR" (ssget) "" "non" (setq p (getpoint "\n选取镜像点：")) "non" (polar p (* 1.5 pi) 1) “n")

start4444

(command "ortho" "on"  "MIRROR" (ssget) "" "non" (setq p (getpoint "\n选取镜像点：")) "non" (polar p (* 1.5 pi) 1) pause)

ninja37

start4444 发表于 2020-11-22 22:40
(command "ortho" "on"  "MIRROR" (ssget) "" "non" (setq p (getpoint "\n选取镜像点：")) "non" (polar p ...

这位小兄弟 ，程序很好用    能不能稍微改进一下    数入镜像点后  不要问要不要删除原来的图N    直接默认N就好了   我们厂里一般不删除原来的图  两个图好做对比

ninja37

start4444 发表于 2020-11-23 10:22
最后一步改为N就好了
(command "ortho" "on"  "MIRROR" (ssget) "" "non" (setq p (getpoint "\n选取镜 ...

好的  已经改好了  谢谢了  还有一点小麻烦  原本移位自己可以修改一下  改成另外一个命令 绕X轴镜像  看了一下 脑瓜子跟不上啊  不会改  麻烦你告诉我一下怎么由Y轴 变成x轴，拜托了。

start4444

请不要在本站重复发布信息。这是什么操作

  (command "ortho" "on"  "MIRROR" (ssget) "" "non" (setq p (getpoint "\n选取镜像点：")) "non" (polar p 0 1) “n")

ninja37

start4444 发表于 2020-11-23 12:03
请不要在本站重复发布信息。这是什么操作

  (command "ortho" "on"  "MIRROR" (ssget) "" "non" ( ...

好的  试了很好用。谢谢了