Vba & Attsync
I am currently writing a VBA routine to update our drawing blanks to incorporate the latest corporate identity. I have managed to get the basic border to update but I am left with needing to move the ATTRIBUTEs. When doing this individually I use the ATTSYNC command but this isn't an available VBA call. Is there a way to call it?In LISP I would use the (command "ATTSYNC"... format but I have never had to do this in VBA. answer found!
ThisDrawing.SendCommand "ATTSYNC" & vbCr & "n" & vbCr & "ics-rockwell-a1-a" & vbCr
had I not asked I'm sure I wouldn't have found it though. Try using Attribute Object, with his methods and properties.
E.G.:
attribute.move point1, point2
where attribute is the attribute you want to move, move (obviously) y the metod move, point1 and point2 are points from where you want to move the attribute to...
Sorry by my english thank you but in this case ATTSYNC is more appropriate.
I have a block with attributes defined in the current drawing. I also have a newer drawing block with the same named attributes but they are in a different position. I don't (need to) know the new position of the attributes as they are defined in the new block. The ATTSYNC command moves all the attributes to their new location without extra code.
页:
[1]