Hello such, I have a lisp that makes a mirror (copy and change without justification) to text or mtext with leader the problem is that I can not perform the mirror with a copy attached dwg
(defun c:MTD (/ ssosmode ss pt1 pt2 ename)
(setvar "cmdecho" 0)
(setvar "orthomode" 1)
(setq ssosmode (getvar "osmode"))
(setq ss (ssget "_:L"(list (cons 0 "MTEXT,TEXT,LEADER"))))
(setq pt1 (getpoint "\n>> Especifique punto: "))
(setvar "osmode" 0)
(setq pt2 (getpoint pt1 "\n>> Especifique siguiente punto: "))
(grdraw pt1 pt2 150 4)
(vl-cmdf "._mirror" ss "" pt1 pt2 "_y")
(setq x 0)
(setq ename4 (ssname ss x))
(cond ((= (cdr (assoc 0 (entget ename4))) "MTEXT") (vl-cmdf "justifytext" "p" "" "TR" ""))
((= (cdr (assoc 0 (entget ename4))) "TEXT") (vl-cmdf "_justifytext" "p" "" "BR" "")))
(setq i 0)
(while (setq ename (ssname ss i))
(if (= (cdr (assoc 0 (entget ename))) "TEXT")
(progn (ssdel ename ss)
(setq i (1- i))))
(if (= (cdr (assoc 0 (entget ename))) "MTEXT")
(progn (ssdel ename ss)
(setq i (1- i))))
(setq i (1+ i)))
(command "_mirror3d" ss "" "xy" "" "y")
(setvar "osmode" ssosmode)
(setvar "cmdecho" 1)
(princ))