Can I change Mtext or Dtext into a Defined Attribute?

[magwea]

Is there a simple way of doing this out there. Normally its easy enough to just retype, but sometimes, (eg with regards to the justification, height, style, location) its not so easy. Anyone help me out.

[uddfl]

Try this LISP routine. Hope it helps.

;Tip1791:  TXT2ATTDEF.LSP  TEXT TO ATTRIBUTES              (c)2002, Sanjay Kulkarni 
 
(defun C:TXT2ATTDEF (PCMDECHO TXT1 IFTXT TXT1VAL TXT1IP TXT1HT TXT1ROT APRMPT PAFLAGS) 
  (setq PCMDECHO (getvar "CMDECHO")) 
  (setvar "CMDECHO" 0) 
  (setq TXT1 (entget (car (entsel "\nSelect Text : ")))) 
  (setq IFTXT (cdr (assoc 0 TXT1))) 
  (while (/= IFTXT "TEXT") 
    (setq 
      TXT1 
       (entget 
         (car 
           (entsel 
             (strcat 
               "\nSelection Error !! You selected " 
               IFTXT 
               "! \nPlease Select Text : " 
             ) ;_ end of strcat 
           ) ;_ end of entsel 
         ) ;_ end of car 
       ) ;_ end of entget 
    ) ;_ end of setq 
    (setq IFTXT (cdr (assoc 0 TXT1))) 
  ) ;_ end of while 
  (setq TXT1VAL (cdr (assoc 1 TXT1))) 
  (setq TXT1IP (cdr (assoc 10 TXT1))) 
  (setq TXT1HT (cdr (assoc 40 TXT1))) 
  (setq TXT1ROT (cdr (assoc 50 TXT1))) 
  (setq APRMPT (getstring T "\nAttribute prompt : ")) 
  (entdel (cdar TXT1)) 
  (setq PAFLAGS (getvar "AFLAGS")) 
  (setvar "AFLAGS" 0) 
  (command "attdef" 
    "" 
    TXT1VAL 
    APRMPT 
    TXT1VAL 
    TXT1IP 
    TXT1HT 
    (/ (* TXT1ROT 180) (/ 22.0 7.0)) 
  ) ;_ end of command 
  (setvar "AFLAGS" PAFLAGS) 
  (setvar "CMDECHO" PCMDECHO) 
  (princ) 
) ;defun txt2attdef

Source: http://cadtips.cadalyst.com/attribut...ext-attributes

[magwea]

Thanks uddfl, sorry for not replying sooner, i'll give the lisp a go -never needed to use them before-, although, i'm kind of surprised that there isn't a tool build into Ac to do this already.

[emhigginson]

This seems handy, but I get an error "TXT2ATTDEF ; error: too few arguments" when I give it a run. I take it neither one of you did?

I've been trying it on a Mtext with multiple fields, so maybe the fields are messing it up...

[uddfl]

I get an error "TXT2ATTDEF ; error: too few arguments" when I give it a run.

I've been trying it on a Mtext with multiple fields

It only works with one-line TEXT, not MTEXT.

[NAILER20]

Help I am fianaly sorting out my block libary I have fuse holder blocks that have attributes associated with them docked on a tool pallett. My question is: can attributes be defined as Mtext so that justification can be applied ? the various names of the fuse holder varies in length and often the justification is way off when I fill in the attributes
thanks all

[rkent]

Help I am fianaly sorting out my block libary I have fuse holder blocks that have attributes associated with them docked on a tool pallett. My question is: can attributes be defined as Mtext so that justification can be applied ? the various names of the fuse holder varies in length and often the justification is way off when I fill in the attributes
thanks all

Attributes can be assigned any of the text justifications. And in 2009 and 2010 you can specify multiple lines.

[NAILER20]

thanks rkent I spent some time and arrived at the same conclusion,
since I posted my help.
My company has no plans to upgrade to 2009/2010
so I'll have to keep shoving sqare pegs into round holes
but thank you again

[Ryder76]

NAILER20

Try BATTMAN you can select a block and globally change the properties of the attributes. Don't forget to sync the block.