caoyin大哥，救我呀，在用镜像命令过程中在这一步能加上一个功能吗？

yxp

你要加什么功能啊？

caoyin

(defun c:mi (/ PickMidpoint ss p1 p2)
  (defun PickMidpoint (/ p1 p2)
    (initget 1)
    (setq p1 (getpoint "\n中点的第一点:" ))
    (initget 1)
    (setq p2 (getpoint p1 "\n中点的第二点:" ))
    (mapcar '(lambda (x y) (/ (+ x y) 2.0)) p1 p2)
  )
  (if (and (setq ss (ssget))
           (or (setq p1 (getpoint "\n指定镜像线的第一点 <两点定位出中点>:" ))
               (setq p1 (PickMidpoint))
           )
           (or (setq p2 (getpoint p1 "\n指定镜像线的第二点 <两点定位出中点>:" ))
               (setq p2 (PickMidpoint))
           )
      )
    (command "_.mirror" ss "" p1 p2)
  )
  (princ)
)

oyxx1023

(if (and (setq ss (ssget))
改成

(if (and (setq ss (ssget))
 (sssetfirst ss ss)