"MIRRTEXT" sistem degiskeni degerini 0 yaparsaniz nesnelere mirror islemi uyguladiginizda yazilariniz etkilenmez. Fakat bu yazilar blok icerisindeyse ve mirror islemini blok nesnesine uygularsaniz yazilarinizda etkilenir ve bunun cozumu yoktur.
(defun c:qw (/ dc ss z m i)
(vl-load-com)
(if (setq dc (vla-get-ActiveDocument
(vlax-get-acad-object))
ss (ssget ":L" '((0 . "Insert"))))
(progn (vla-StartUndomark dc)
(repeat (setq z (sslength ss))
(setq z (1- z)
m (vlax-ename->vla-object
(ssname ss z))
i (vlax-get m 'InsertionPoint))
(vlax-invoke m 'Mirror i (polar i
(+ (vla-get-Rotation m) (/ pi 2.)) 1.))
(vla-Delete m)
) (vla-EndUndomark dc)
)
) (prin1)
)
