Author Topic: Text to Attributes  (Read 3270 times)

0 Members and 1 Guest are viewing this topic.

ML

  • Guest
Text to Attributes
« 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

Rob_Kish

  • Guest
Text to Attributes
« Reply #1 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.

ML

  • Guest
Text to Attributes
« Reply #2 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