[求助]：如何先选择后编辑，高手帮忙改

MJJ3468

如题，各位路过的大师帮忙改下。
;-------复制+旋转----------
(defun c:67 (/ os pt1 pt2 ss n m s1 s2 s3)
(setvar "cmdecho" 0)
(command "undo" "be")
(princ "\n请选择要旋转复制的目标:")
(if (or (setq s1 (ssgetfirst)) (setq s1 (ssget)))
(progn)
)
(setq pt1 (getpoint "\n请指定基点"))
(setq pt2 (getpoint "\n请指定目标点"))
(setq m 0)
(setq ss (ssadd))
(setq n (sslength s1))
(repeat n
(setq s2 (ssname s1 m))
(command "copy" s2 "" pt1 pt2)
(setq s3 (entlast))
(setq ss (ssadd s3 ss))
(setq m (+ 1 m))
)
(command "rotate" ss "" pt2 pause)
)
(setvar "cmdecho" 1)
(command "undo" "e")
(princ)

斑竹大大，帮忙啊！

LADESIGNER

(if (null(setq s1 (ssget "i"))
(setq s1(ssget))
)

MJJ3468

最初由 LADESIGNER 发布
[B](if (null(setq s1 (ssget "i"))
(setq s1(ssget))
) [/B]

谢谢楼上的，你的帖子我已拜读过，你得出的经验让我，已经解决问题哦。