Hi da ist es leider nicht. Aber ich habs gefunden es ist unter TextPlacement in NXOpen.Annotation....
Also:
Dim deftextpl As TextPlacement = TextPlacement.ManualArrowsIn
Dim dimPrefs As DimensionPreferences
dimPrefs = wP.Annotations.Preferences.GetDimensionPreferences()
'Vorsicht geht nur aufs WorkPart, nicht auf beliebigen Part!
Dim Textpl As TextPlacement = dimPrefs.TextPlacement
If Textpl <> deftextpl Then
dimPrefs.TextPlacement = deftextpl
wP.Annotations.Preferences.SetDimensionPreferences(dimPrefs)
End If
------------------
Gruß
Michael
have you tried turning it off and on again
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP