I want to show the reference plane of component in the assembly

the fellow is my code :

Dim swComponent As SldWorks.Component2

Dim asename As String

Dim partname As String

Dim fileerror As Long

Dim filewarning As Long

Dim boolstatus As Boolean

Dim partmodel As SldWorks.IModelDocExtension

Dim topname As String

Sub main()

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    asename = swModel.GetTitle

    ' Get the selected entity (i.e., face, edge, vertex, or loop)

    ' and get the name of its component

    Set swSelectionMgr = swModel.SelectionManager

    Set swComponent = swSelectionMgr.GetSelectedObjectsComponent4(1, -1)

   Debug.Print swComponent.GetPathName

  If Not swComponent Is Nothing Then

        Set partmodel = swComponent.GetModelDoc2

               End If

    boolstatus = partmodel.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, True, 0, Nothing, 0)

    Debug.Print boolstatus

    partmodel.UnBlankRefGeom

End Sub

==========================

but it not work ,what's the problem is?