---

Hallo,

wenn ich einem Block Bemaßung mit "AddDimRotated" hinzufüge (ACAD 2000), dann kann man die Bemaßung nicht sehen, bzw. nur zwei Pfeile an einer falschen Stelle. Wird der Block aufgelöst, dann ist alles so wie im beigefügten Quellcode vorgegeben. Ein ähnliches Problem habe ich mit "AddAttribute" (mode = acAttributeModeInvisible). Wird der Block aufgelöst, dann erscheint an dem Einfügepunkt: "Attribute Tag". Woran liegt das?
Unter ACAD 2002 ist es so, dass die Bemaßung als Block ohne Formatierung angezeigt wird, nach der Auflösung aber wieder stimmt. Die "Attribute Tags" sieht man im aufgelösten Zustand auch hier.

Vielen Dank für jede Hilfe!
Gruß
Dirk

Private objHDim As AcadDimRotated

...
Set objHDim = blockObj.AddDimRotated(sPkt, zPkt, sPkt, Tau)
objHDim.TextHeight = "1"
objHDim.UnitsFormat = acDimLDecimal
objHDim.SuppressTrailingZeros = False
objHDim.Arrowhead1Type = acArrowNone
objHDim.Arrowhead2Type = acArrowNone
objHDim.ExtLine1Suppress = True
objHDim.ExtLine2Suppress = True
objHDim.DimLine1Suppress = True
objHDim.DimLine2Suppress = True
objHDim.Layer = "Layer_Name"
...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP