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

Arrow is Virtual dimension.

Hope Arrow is Active dimension.

Thanks.