HideDimension→Code
Sub main()
Set swApp = Application.SldWorks
Dim SwDraw As SldWorks.DrawingDoc, SwPart As SldWorks.ModelDoc2
Set SwDraw = swApp.ActiveDoc
Dim SwSelMgr As SldWorks.SelectionMgr
Set SwSelMgr = SwDraw.SelectionManager
Dim oDim As SldWorks.Dimension
tmp = SwDraw.Extension.SelectByID2("D2@Sketch1@Part1@Drawing View2", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
Set oDim = SwSelMgr.GetSelectedObject2(1)
With oDim
Debug.Print .Name, .FullName
End With
SwDraw.HideDimension
End Sub
******************************
Now Hope show the hide dimension,the code is
Sub main1()
Set swApp = Application.SldWorks
Dim SwDraw As SldWorks.DrawingDoc, SwPart As SldWorks.ModelDoc2
Set SwDraw = swApp.ActiveDoc
Dim SwSelMgr As SldWorks.SelectionMgr
Set SwSelMgr = SwDraw.SelectionManager
Dim oDim As SldWorks.Dimension
With SwDraw
tmp = .Extension.SelectByID2("D2@Sketch1@Part1@Drawing View2", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
End With
'SwDraw.EditRebuild
SwDraw.HideShowDimensions
End Sub
Sub main3()
Set swApp = Application.SldWorks
Dim SwDraw As SldWorks.DrawingDoc, SwPart As SldWorks.ModelDoc2
Set SwDraw = swApp.ActiveDoc
Dim SwSelMgr As SldWorks.SelectionMgr
Set SwSelMgr = SwDraw.SelectionManager
Dim oDim As SldWorks.Dimension
With SwDraw
tmp = .Extension.SelectByID2("D2@Sketch1@Part1@Drawing View2", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
End With
'SwDraw.EditRebuild
SwDraw.HideShowDimensions
tmp = SwDraw.Extension.SelectByID2("D2@Sketch1@Part1@Drawing View2", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
Set oDim = SwSelMgr.GetSelectedObject2(1)
Debug.Print
Debug.Print
'SwDraw.SetPickMode
SwDraw.ClearSelection2 True
End Sub
Hope Arrow is Active dimension.
Thanks.
SolidworksApi macros