Question

solidworks二次开发API

谁知道下面这些代码的具体意思我只知道一部分但是不能全部理解。
Public SubSelectComponentFaceByName(CompName As String, FaceName As String)
Dim swApp As Object
Dim AssyDoc As Object
Dim SelMgr As Object
Dim Comp As Object
Dim Body As Object
Dim Face As Object
Dim CurFaceName As String
Const swSelCOMPONENTS = 20’defultvalue
Set swApp =CreateObject("SldWorks.Application")
' Get active Assemblydocument
Set AssyDoc = swApp.ActiveDoc()
Set SelMgr = AssyDoc.SelectionManager()’activateit
AssyDoc.SelectByID CompName, "COMPONENT", 0, 0, 0 请问此处的compname 是哪里来的？
Set Comp =SelMgr.GetSelectedObject3(1) 括号中 的1是index，但是这个是怎么确定的？

If (SelMgr.GetSelectedObjectType2(1)<> swSelCOMPONENTS) Then
’swselecttype_e
swApp.SendMsgToUser"Please Select an Assembly Component."
Exit Sub
End If
Set Body = Comp.GetBody()' Get the Component Body
If (Body Is Nothing) Then
swApp.SendMsgToUser"Component Body Unavailable."
swApp.SendMsgToUser"Make sure not lightweight or suppressed"
Exit Sub
End If
Set Face = Body.GetFirstFace‘get the fistface of the component,then strat thetraverse
' Traverse thru all bodyfaces
Do While Not Face Is Nothing‘condition is that
' Call ModelDoc.GetEntityName to get the name of travesed faces
CurFaceName = AssyDoc.GetEntityName(Face)

If (CurFaceName = FaceName)Then
Face.Select (0) 'Select the face
Exit Do
End If
Debug.Print CurFaceName
Set Face = Face.GetNextFace
Loop
' Subsequent code might select a second face, edge,or feature, and then mate the two items using AssemblyDoc::AddMate.
End Sub

Answer 1

compname来自于第一行（）里面，它定义为字符串，AssyDoc.SelectByID CompName, "COMPONENT", 0, 0, 0此处调用了SelectByID（）函数，此处的compname是代表SelectByID函数中的，要选择对象名称，compname还可以是“基面1”，”左视图““line1”等。compname是自己定义的，第一行给出，方便调用。
Set Comp =SelMgr.GetSelectedObject3(1)中的1是索引号，此处调用了GetSelectedObject3()函数，里面是1的话，表示你选择了函数里面的第一个选择项，里面是几要看这个函数定义了几个选择项，你要选择第几项。满意请加分哦