[DWG Destroyer]

I've been doing a bit of match properties for text elements in drawings recently, and have found that the matchprop button is a real drag when attempting to synchronize text styles throughout a drawing. When matchprop is used to match multiple texts, they will all fling off in the direction the selected text is set at. I want to make it so that I can use match properties without matching the rotation. I’ve tried toggling the settings to no avail - I want everything else to be the same except geometry. Hope someone can help!!

[alanjt]

Originally Posted by DWG Destroyer

I've been doing a bit of match properties for text elements in drawings recently, and have found that the matchprop button is a real drag when attempting to synchronize text styles throughout a drawing. When matchprop is used to match multiple texts, they will all fling off in the direction the selected text is set at. I want to make it so that I can use match properties without matching the rotation. I’ve tried toggling the settings to no avail - I want everything else to be the same except geometry. Hope someone can help!!

Wow, I never use Match Properties, but I always assumed you could turn the rotation setting off. Sounds like you'll have to roll your own. What properties are you wanting to match?

[DWG Destroyer]

NEVER USE MATCH PROPERTIES?! I am shocked. I dread to think where I would be without it. Explaining everything I want it to do would most likely be very long winded when I can just say I need it to function exactly as the normal matchprop - aside from mimicking rotation. And you are right in saying that the settings can be adjusted, but when I do that it will not only ignore rotation but also ignore the text style/ size etc. which is definitely no good for me!

I intend to use it in conjunction with Lee Mac's "MacAlign" command, which creates a piece of text in perfect alignment with a selected object. After doing this it would be great to be able to quickly match the style of the newly created text to that of existing text.

[alanjt]

Originally Posted by DWG Destroyer

NEVER USE MATCH PROPERTIES?! I am shocked. I dread to think where I would be without it. Explaining everything I want it to do would most likely be very long winded when I can just say I need it to function exactly as the normal matchprop - aside from mimicking rotation. And you are right in saying that the settings can be adjusted, but when I do that it will not only ignore rotation but also ignore the text style/ size etc. which is definitely no good for me!
I intend to use it in conjunction with Lee Mac's "MacAlign" command, which creates a piece of text in perfect alignment with a selected object. After doing this it would be great to be able to quickly match the style of the newly created text to that of existing text.

True, but with text, the important matches LAYER, COLOR, STYLE, SIZE, ROTATION.


Generally I only want to match the layer, so all the add ons that come with Match Properties are unnecessary.

I wrote my own LayerPut.

Command: LP
Select object(s) to be changed:
Select objects: Specify opposite corner: 1 found

Select objects:

Select object on destination layer or [Current/Dialog/Type]:
1 object(s) moved to layer "CNTR", the current layer.

TEXT.jpg

[DWG Destroyer]

I can definitely see it's use, though sadly for me the matching of styles/ sizes etc are of sterling importance

[alanjt]

Try this, completely untested:

;;; Match Text/Mtext Style and Height of source Text/Mtext object
;;; Alan J. Thompson, 11.03.09
(defun c:MS (/ *error* #Obj #SS #Style #Size)

;;; error handler
  (defun *error* (#Message)
    (and *AcadDoc* (vla-endundomark *AcadDoc*))
    (and #Message
         (not (wcmatch (strcase #Message) "*BREAK*,*CANCEL*,*QUIT*"))
         (princ (strcat "\nError: " #Message))
    ) ;_ and
  ) ;_ defun

  (or *AcadDoc* (setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object))))
  (vla-startundomark *AcadDoc*)
  (cond
    ((and (setq #Obj (car (entsel "\nSelect source text object: ")))
          (vl-position (cdr (assoc 0 (entget #Obj))) '("MTEXT" "TEXT"))
          (setq #Obj (vlax-ename->vla-object #Obj))
          ;; (setq #Obj (AT:Entsel nil "\nSelect source text object: " '("V" (0 . "MTEXT,TEXT")) nil))
          (setq #SS (ssget "_:L" '((0 . "MTEXT,TEXT"))))
     ) ;_ and
     (setq #Style (vla-get-stylename #Obj)
           #Size  (vla-get-height #Obj)
     ) ;_ setq
     (vlax-for x (setq #SS (vla-get-activeselectionset *AcadDoc*))
       (vl-catch-all-apply 'vla-put-stylename (list x #Style))
       (vl-catch-all-apply 'vla-put-height (list x #Size))
     ) ;_ vlax-for
     (vl-catch-all-apply 'vla-delete (list #SS))
    )
  ) ;_ cond
  (*error* nil)
  (princ)
) ;_ defun

Updated and more robust version here: http://www.cadtutor.net/forum/showthread.php?t=41669

[DWG Destroyer]

Looks promising! Though something is causing the routine to error;

Command:
MS
Select source text object:
Select objects: 1 found
Select objects:
; error: ActiveX Server returned the error: unknown name: TextStyle
Command:
Command:
MS
Select source text object:
Select objects: 1 found
Select objects:
; error: ActiveX Server returned the error: unknown name: TextStyle
Command:


Text style? I am using RomanS, though any other style i try delivers the same result...

[JohnM]

I’m all for writing custom programs when necessary but in this case, wouldn’t it be just as easy to use the AutoCAD’s properties dialog with quick select?

[alanjt]

Originally Posted by DWG Destroyer

Looks promising! Though something is causing the routine to error;

Command:
MS
Select source text object:
Select objects: 1 found
Select objects:
; error: ActiveX Server returned the error: unknown name: TextStyle
Command:
Command:
MS
Select source text object:
Select objects: 1 found
Select objects:
; error: ActiveX Server returned the error: unknown name: TextStyle
Command:


Text style? I am using RomanS, though any other style i try delivers the same result...

Oops, fixed above.

[DWG Destroyer]

Originally Posted by JohnM

I’m all for writing custom programs when necessary but in this case, wouldn’t it be just as easy to use the AutoCAD’s properties dialog with quick select?

A valid argument, though marginally slower than the method i am hoping for. Especially if i am to be using it multiple times for single pieces of text here and there throughout the day! I know through the eyes of some it might look a little petty, but i do like making things happen with a single click