***********************

Follow Code key Point

Set SwDim = .Parameter(Ss)

My question

  How to Hide dimension → SwDim → Hide Dimension

Thanks.

************************

Sub ll1()

  Dim Arr(7)

    Arr(0) = "PipeTHK@FlangeSketch@ee.Part"

    'Arr(1) = "D@FlangeSketch@ee.Part"

    Arr(2) = "Fd@FlangeSketch@ee.Part"

    Arr(3) = "A1AB@FlangeSketch@ee.Part"

    Arr(4) = "NAB@FlangeSketch@ee.Part"

    Arr(5) = "L@CutHoleSketch@ee.Part"

    'Arr(6) = "K@CutHoleSketch@ee.Part"

    Arr(7) = "D1@Alfa基准面@ee.Part"

    ''

  Dim ii, jj

  Dim SwApp As SldWorks.SldWorks, SwDraw As DrawingDoc, SwModel As ModelDoc2

  Set SwApp = Application.SldWorks

  Set SwDraw = SwApp.ActiveDoc

  Dim vSheets, SwSheet As Sheet, SwView As View, SwDim As Dimension

  Dim Ss

  With SwDraw

    vSheets = .GetSheetNames

    For ii = 0 To 0 'UBound(vSheets)

      .ActivateSheet vSheets(ii)

      Set SwSheet = .GetCurrentSheet

      For jj = 0 To UBound(Arr)

        If Not IsEmpty(Arr(jj)) Then

          Set SwDim = .Parameter(Arr(jj))

          Debug.Print jj, "Need Hide → ", SwDim.FullName

        End If

      Next jj

    Next ii

  End With

End Sub

***********************

Result is

0            Need Hide →  PipeTHK@FlangeSketch@ee.Part

2            Need Hide →  Fd@FlangeSketch@ee.Part

3            Need Hide →  A1AB@FlangeSketch@ee.Part

4            Need Hide →  NAB@FlangeSketch@ee.Part

5            Need Hide →  L@CutHoleSketch@ee.Part

7            Need Hide →  D1@Alfa基准面@ee.Part