(defun fnspecchio (/ sel nuovasel pt1 pt2 c))
(princ "\nspecchio: ")
(setq の sel (ssget))))
(setq pt1 (getpoint "\nprimo point per Mirror: "))
(setq pt2 (getpoint pt1 "\nsecond point per Mirror: "))
(setq c 0)
(Sectqニュース)
(repeat (sslength の sel))
(setq n (ssname sel c)) )
(コマンド "_mirror" n" pt1 pt2 "_n")
(setq のニュース (ssadd (entlast) のニュース))
(setq c (1+ c)) )
)
ニュース
)