SolidWorks机械工程师网——最大的SolidWorks学习平台

标题: （求助）solidwords二次开发零件中直接在指定位置处插入另一零件 [打印本页]

作者: 林影 时间: 2013-9-2 21:16
标题: （求助）solidwords二次开发零件中直接在指定位置处插入另一零件
我想在某一零件文件中直接插入另一零件到指定位置处（如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("-", "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("-", "SOLIDBODY", 0, 0, 0, True, 2, Nothing, 0)
Set myFeature = Part.FeatureManager.InsertCombineFeature(15902, Nothing, Nothing)
End Sub
还请做过这方面研究的高手指点一下啊。我上面的代码实现的是先把零件插入到原点，然后再移到（30，-30，-10）处，可是我要做的动画不允许这样，只允许直接插入的时候就是在（30，-30，-10）处，不能有中间平移的过程，不知道应该怎样修改代码，还请高手指点。

欢迎光临 SolidWorks机械工程师网——最大的SolidWorks学习平台 (https://www.swbbsc.com/)