Topic: Mirror to Text, Mtext and Leader

[amc.dicsac]

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

Code: [Select]

(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))

[ChrisCarlson]

Wasn't the need for this removed with the system variable "MIRRTEXT"?

https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-Core/files/GUID-D55D2D18-B26E-4525-B5E4-03A2A07FB5F6-htm.html

[amc.dicsac]

I do not think the solution is that because if you open the file and run the attached eh changing this lisp

Code: [Select]

(vl-cmdf "._mirror" ss "" pt1 pt2 "_y")
to this

Code: [Select]

(vl-cmdf "._mirror" ss "" pt1 pt2 "_N")
You will understand that it has nothing to do MIRRTEXT Variable 

[ChrisCarlson]

I'm confused, mirrored the text and lines over the red dashed line. All properties remained constant eg; justify middle left on the yellow MTEXT/TEXT and bottom left on hello. Are you wanting to make a bottom left justify mirror to a bottom right?

[ChrisCarlson]

Also I suggest you clean up your annotation scales. You have an obscene amount, not including duplicates, triplicates, and quadruplicates.

[amc.dicsac]

I enclose a video for you to realize what I try to do.