Placing block and moving Attribute field

I want to place a block on a drawing and move one of the attribute fields to
a different location each time I place the block.

Can the locations of the attributes be accessed and changed? If so, how?


Thanks for the help!

Edward

 

Hi Edward,
you could get a reference to the just inserted block reference - either
placing it by code or select it on screen
ex:
(just an overview - you need to dim variables and do error checking etc
obviously)
set oBlkRef = AddBlockRef 'or whatever routine does the insertion
'get the blocks attribute objects
vAtts = oBlkRef.GetAttributes
'for each one set it's location
For lIdx = 0 to Ubound(vAtts)
'get this attribute object
oAttRef = vAtts(lIdx)
'vPt = WhereYouWantThePoint
'is it InsertionPoint, TextAlignmentPoint, or Alignment or
TextInsertionPoint - or something like that
'whatever the property is called - i forget at the moment
'and you said "one of the attributes" so if you need to check the tag or
value then an if clause here
If oAttRef.TagString = TargetString ' or whatever qualification you need
to use
oAttRef.InsertionPoint = vPt'whatever point you want to put it at
end if
Next lIdx
etc
hth
Mark