ich habe zwar kein ADT (bin auch froh drüber) aber ca.
[...]
For Each ent In ThisDrawing.ModelSpace
If ent.EntityName = "AcDbBlockReference" Then
BlockObjAttributes = ent.GetAttributes
If ent.Name = "AecMVBlockRef" Then
BlockObjAttributes = ent.GetAttributes
[...]
BlockObjAttributes(0).TextString = WERT_0
BlockObjAttributes(1).TextString = WERT_2
usw. usw. besser schleife drauf
[...]
was die "auflisten" Tätigkeit angeht habe ich keine Ahnung was du genau willst.
------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?" Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP