AnsweredAssumed Answered

how to show the reference plane in the assembly

Question asked by Lin Jinxue on Jan 29, 2017
Latest reply on Jan 31, 2017 by Lin Jinxue

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




End Sub


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