（求助）solidwords二次开发 零件中直接在指定位置处插入另一零件

taojianming6

  我想在某一零件文件中直接插入另一零件到指定位置处（如30，-30，-10），可一直没找到可行的操作，还请大虾指点啊。如果知道怎么在solidworks中怎样直接通过类似输入坐标点之类的方法直接实现在（30，-30，-10）处 插入另一零件的也请指点指点啊。我编代码如下：
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myFeature As Object
Set myFeature = Part.InsertPart2("F:\二次开发与API\刀具.SLDPRT", 1041)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("<刀具>-<旋转1>", "SOLIDBODY", 0, 0, 0, False, 1, Nothing, 0)
Set myFeature = Part.FeatureManager.InsertMoveCopyBody2(0.03, -0.03, -0.01, 0, 0, 0, 0, 0, 0, 0, False, 1)
boolstatus = Part.Extension.SelectByID2("凸台-拉伸1", "SOLIDBODY", 0, 0, 0, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("<刀具>-<旋转1>", "SOLIDBODY", 0, 0, 0, True, 2, Nothing, 0)
Set myFeature = Part.FeatureManager.InsertCombineFeature(15902, Nothing, Nothing)
End Sub

     还请做过这方面研究的高手指点一下啊。我上面的代码实现的是先把零件插入到原点，然后再移到（30，-30，-10）处，可是我要做的动画不允许这样，只允许直接插入的时候就是在（30，-30，-10）处，不能有中间平移的过程，不知道应该怎样修改代码，还请高手指点。