Hallo
Du musst die Zentrierung des Maßes deaktivieren.
Da ich es beim Radius in den Einstellungen noch nicht gefunden habe, benutze ich immer folgendes Macro.
Es schaltet das Maß zwischen zentriert und nicht zentriert um.
Also Macro einmal ausführen - dann Maß verschieben.
Option Explicit
Sub main()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDispDim As SldWorks.DisplayDimension
Dim bRet As Boolean
Set swApp = CreateObject("SldWorks.Application")
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
If swSelMgr.GetSelectedObjectType(1) = swSelDIMENSIONS Then
Set swDispDim = swSelMgr.GetSelectedObject5(1)
If swDispDim.CenterText Then
swDispDim.CenterText = False
Else
swDispDim.CenterText = True
End If
End If
swModel.GraphicsRedraw2
End Sub
Gruß Winni
PS: Maß muss vor dem Ausführen des Macros aktiviert sein.
[Diese Nachricht wurde von Winni-two am 17. Jul. 2014 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP