TheSwamp

Code Red => VB(A) => Topic started by: ML on November 04, 2004, 07:48:27 PM

Title: Text to Attributes
Post by: ML on November 04, 2004, 07:48:27 PM

Would anyone happen to have a module that would convert plain text to a Block Attribute?

Once it is an attribute, I can tweak it form there

Thank you

Mark

Title: Text to Attributes
Post by: Rob_Kish on December 30, 2004, 08:53:47 PM

There is no Replace; the process would be

• get the text object, gather property information from the text object
• create a block object; e.g. Set YourNewBlock = Blocks.Add(ins point, YourNewBlockName)
  
• create an attribute definition object; e.g. Set oAttObj = YourNewBlock.AddAttribute(Height, Mode, Prompt, InsertionPoint, Tag, Value)
  
• create a new BlockRef object of your new block[/list:u]Caution. Imagine the new block is (or is like) a new drawing. It has it's own WCS originating at the insertion point. For now, I'd suggest use (0,0,0) for new block insertion point and for AttRef insertion point as default alignment is Left. If text and Attribute are Center or Right aligned see the AutoCad ActiveX and VBA Reference, topic=Alignment Property. Then insert the new block at the coordinates of the old text entity ... oh, and delete text entity.

Title: Text to Attributes
Post by: ML on December 31, 2004, 07:06:02 AM

Cool,

Thanks again Rob!
I have gotten most of what I needed attributed doe but I will copy come back to your post and try it once i get some time.

Mark