Habe mit folgendem Code mit VB eine automatisierte Blockerstellung geschrieben. Mein Problem:
1. Der Einfügepunkt des Attributes liegt entgegen dem Code irgendwo auf der Zeichnung (also nicht da, wo ich ihn eigentlich mit getpoint festgelegt habe) und
2. obwohl ich die Anweisung acAttributeModeInvisible gegeben habe ist das Attribut sichtbar.
Was habe ich denn falsch gemacht?????
Public insertionPnt As Variant
Dim InsPoint(2) As Double
Dim attributeObj As Object
GetInsPoint = ThisDrawing.Utility.GetPoint(, "Block-Einfügepunkt wählen: ")
For g = LBound(GetInsPoint) To UBound(GetInsPoint)
InsPoint(g) = GetInsPoint(g)
Next g
insertionPnt = InsPoint
Set attributeObj = nBlock.AddAttribute(1#, acAttributeModeInvisible, "Objektnummer", insertionPnt, "T_Objekt_NR", "")
Danke im voraus für jede Hilfe!!!
Ralf
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP