+ Reply to Thread
Page 2 of 2 FirstFirst 1 2
Results 11 to 12 of 12
  1. #11
    Senior Member nod684's Avatar
    Computer Details
    nod684's Computer Details
    Operating System:
    Windows 7 Home
    Discipline
    Architectural
    Using
    AutoCAD 2010
    Join Date
    Jul 2012
    Location
    Singapore
    Posts
    229

    Default

    Registered forum members do not see this ad.

    if the issue is that you want the Mtext Boundaries flushed with your Mtext width you can use this lisp

    i don't remember where i got it from but i've been using it for a long time now

    Code:
    ; Lisp routine for resizing mtext boundaries - where each mtext selected will have its grips flush with the text.
    ;
    (defun c:FX (/ sset en el ymt nmt mtwidth mtcont)
     (setq sset (ai_aselect))
     (if (null sset) 
      (progn
      (princ "\nNo objects selected.")
      (exit)
      )
     )
     (setq COUNT 0)
     (setq ymt 0)
     (setq nmt 0)
     (if (/= sset nil)(setq EN (ssname sset COUNT))(setq EN nil))
     (WHILE (/= EN nil)
      (setq mtcont nil)
      (setq nel nil)
      (setq EL (entget EN))
      (if (= (cdr (assoc 0 EL)) "MTEXT")
    ;-------------------------------remove extra spaces-----------------------------
       (progn
        (setq mtwidth (* (cdr (assoc 42 el))1.015))
        (setq mtheight (cdr (assoc 43 el)))
        (setq EL (subst (cons 41 mtwidth) (assoc 41 EL) EL))
        (setq EL (subst (cons 46 mtheight) (assoc 46 EL) EL))
        (if (= (cdr (assoc 90 EL)) 2)
         (setq el (vl-remove (assoc 90 EL) EL))
        )
        (entmod EL)
        (entupd en)
        (setq el (entget en '("ACAD")))
        (if (/= (assoc -3 el) nil)
         (progn
          (setq oheight (assoc 1040 (cdadr (assoc -3 el))))
          (setq nheight (cons 1040 (cdr (assoc 43 el))))
          (setq n-3 (list (cons -3 (list (subst nheight oheight (cadr (assoc -3 el)))))))
          (setq el (vl-remove (assoc -3 el) el))
          (setq el (append el n-3))
         )
        )
        (entdel (cdr (assoc -1 el)))
        (entmake el)
    ;--------------------------------------------------------------------------------
        (setq COUNT (1+ COUNT))
        (setq EN (SSNAME sset COUNT))
        (setq ymt (1+ ymt))
       )
       (progn
        (setq COUNT (1+ COUNT))
        (setq EN (SSNAME sset COUNT))
        (setq nmt (1+ nmt))
       )
      )
     )
     (prompt (strcat "\n" (itoa ymt) " Mtext object(s) were resized, and " (itoa nmt) " object(s) were not Mtext."))
     (princ)
    )
    "Memories fade but the scars still linger...."

  2. #12
    Forum Deity rkent's Avatar
    Computer Details
    rkent's Computer Details
    Operating System:
    WIN7 PRO 64bit
    Computer:
    Dell Precision T7500
    CPU:
    Xeon Dual Core E5503 2.0Ghz
    RAM:
    6GB DDR3 ECC SDRAM, 1333MHz, 6x1GB
    Graphics:
    nVidia Quadro 3800
    Primary Storage:
    300Gb, 10K rpm
    Monitor:
    Dell 24" FS (2x)
    Discipline
    Mechanical
    rkent's Discipline Details
    Occupation
    Facilities Design - Semi-conductor manufacturing
    Discipline
    Mechanical
    Details
    Designer: Process Piping, P&ID's, Machine Part Design, Planning / General Arrangement. Facilities Management. Drafting: Electrical, Controls, Architectural.
    Using
    Mechanical 2014
    Join Date
    Nov 2007
    Location
    Lat:35, Long:-106, Elev: 5164'
    Posts
    3,371

    Default

    Registered forum members do not see this ad.

    You are zoomed out too far so the program is enlarging the editing window so you can still read it. Zoom in much closer and try again.
    "You are entitled to your own opinion but you are not entitled to your own facts." Daniel Patrick Moynihan

Similar Threads

  1. Multiline Text
    By Majfett in forum AutoCAD 2D Drafting, Object Properties & Interface
    Replies: 9
    Last Post: 24th Feb 2010, 06:27 pm
  2. Single Line text to Multiline Text, possible?
    By Fire_col in forum AutoCAD Beginners' Area
    Replies: 5
    Last Post: 23rd Feb 2010, 02:50 pm
  3. Replies: 5
    Last Post: 9th Feb 2010, 01:37 am
  4. change from single line text to multiline text
    By zarzar in forum AutoCAD 2D Drafting, Object Properties & Interface
    Replies: 2
    Last Post: 20th Oct 2009, 11:12 am
  5. whats going on with my text??
    By nulty in forum AutoCAD Drawing Management & Output
    Replies: 1
    Last Post: 2nd Feb 2004, 05:38 pm

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts