I've created a macro to toggle the "dimension names" on andoff which works except that I want it to update teh grpahics area.I have to rotate or pan the model view for it to show or unshow thedimension names. I've tried a "Redraw" but that doesn't work.
Any ideas?
Here's the code"
Dim swApp As Object
Dim swModel As Object
Dim bRet As Boolean
Dim bDimName As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
bDimName = swApp.GetUserPreferenceToggle(swShowDimensionNames)
If bDimName = False Then
bRet = swApp.SetUserPreferenceToggle(swShowDimensionNames, True)
Else
bRet = swApp.SetUserPreferenceToggle(swShowDimensionNames, False)
End If
End SubSolidworksApi macros
Any ideas?
Here's the code"
Dim swApp As Object
Dim swModel As Object
Dim bRet As Boolean
Dim bDimName As Boolean
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
bDimName = swApp.GetUserPreferenceToggle(swShowDimensionNames)
If bDimName = False Then
bRet = swApp.SetUserPreferenceToggle(swShowDimensionNames, True)
Else
bRet = swApp.SetUserPreferenceToggle(swShowDimensionNames, False)
End If
End SubSolidworksApi macros