mit
Dim p1(0 To 2) As Double
p1(0) = 0
p1(1) = 0
p1(2) = 0
Set ret = ThisDrawing.Blocks("1").AddAttribute(2, acAttributeModeNormal, "prompt", p1, "tag", "value")
kannst du in der blockdefinition ein attribut hizufügen, um diese hizugefügte attribut , auch in den bereits vorhandenen blöcken einzufügen gibt es das expresstool ATTSYNC (das jedoch bei blöcken, die vorher kein attribut hatten probleme hat)
wie man das in vb noch machen kann, muss ich erst suchen
------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP