Hide Dimension with API.

The code follow

Sub main1()

  Set swApp = Application.SldWorks
  Set Part = swApp.ActiveDoc
  Set SelMgr = Part.SelectionManager
  boolstatus = Part.Extension.SelectByID2("D@FlangeSketch@HG20592-SectionPart@DDDD", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
  Part.HideDimension
End Sub

--------------------------

Target

Hide Dimension ---- How to display the hidel dimension.

Thanks.