谁可以帮忙写个镜像的命令?

linheyuanpcb

谁可以帮忙写个镜像的lisp程序？CAD自有的镜像命令，在镜像后会留下原物,我想要镜像后像旋转命令那样的效果，

就是说原物不要保留，谢谢＆＆＆＆有谁可以帮忙的...期待中............................

caoyin

有必要吗？

选择对象:
指定镜像线的第一点: 指定镜像线的第二点:
要删除源对象吗？[是(Y)/否(N)] <N>:

(if (and (setq ss (ssget))
         (setq p1 (getpoint "\n镜像线点1: "))
         (setq p2 (getpoint p1 "\n镜像线点2: "))
    )
  (command "_.mirror" ss "" p1 p2 "_yes")
)

linheyuanpcb

真sai..........呆嘶$$$原来有这个功能啊,请求板主删除此贴