Inventor 2014 API 新功能 (10) 根据球面中心点创建工作点

这是2014 产品也提供的新功能，即能够根据选取的球面（无论是全球面，半球面或任意部分球面）的中心创建工作点。这在以前，用户只能获知球心坐标，手动输入。

API 提供了对应的方法: WorkPoints.AddBySphereCenterPoint 。用法很简单。

Public Sub createWPBySphere()

 Dim partDoc As PartDocument
    Set partDoc = ThisApplication.ActiveDocument
    
    Dim partDef As PartComponentDefinition
    Set partDef = partDoc.ComponentDefinition
    
    '假定某球面已选择好
    Call partDef.WorkPoints.AddBySphereCenterPoint(partDoc.SelectSet(1))
    
End Sub