Welcome,
Guest
. Please
login
or
register
.
1 Hour
1 Day
1 Week
1 Month
Forever
Login with username, password and session length
News:
Home
Help
Login
Register
TheSwamp
»
Code Red
»
VB(A)
»
Topic:
Text to Attributes
« previous
next »
Print
Pages: [
1
] |
Go Down
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
Logged
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.
Logged
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
Logged
Print
Pages: [
1
] |
Go Up
« previous
next »
TheSwamp
»
Code Red
»
VB(A)
»
Topic:
Text to Attributes