|
经典图书 请问在VB对solidworks二次开发中在装配图的操作中,如果调用的是装配体时,如何进行配合的选择。在红色字体部分中
老是找不到所选择的面和中心线,怎么解决?谢谢
strFileName1 = App.Path + "" + "装配体1.SLDASM"
strFileName2 = App.Path + "" + "装配体2.SLDASM"
strFileName3 = App.Path + "" + "装配体3.SLDASM"
Set swApp = CreateObject("SldWorks.Application") '获得应用程序对象
Set nassembly = swApp.Newassembly()
TopName = nassembly.GetTitle()
Set Part = swApp.ActiveDoc
swApp.ActiveDoc.ActiveView.FrameWidth = 668
swApp.ActiveDoc.ActiveView.FrameHeight = 459
'插入用到的装配图到装配体中
Part.AddComponent strFileName1, 0, 0.05255433393781, 0.062710677845734
Part.AddComponent strFileName2, 0, 0, 0
Part.AddComponent strFileName3, 0, 0.05255433393781, -0.062710677845734
'进行面重合
[table=98%,#FF0000]boolstatus = Part.Extension.SelectByID2("基准面1@A轴2-1@装配体1-1@" + TopName, "PLANE", -0.002117641276116, -0.001288377420575, 0.03638769920806, False, 1, Nothing, 0)boolstatus = Part.Extension.SelectByID2("基准面2@Q轴1-1@装配体2-1@" + TopName, "PLANE", 0.001862709021901, -5.870625483596E-04, 0.00792456008644, True, 1, Nothing, 0)Set Feature = Part.AddMate2(0, 0, False, 0.001284339343211, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)Part.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2("基准面1@Q轴4-1@装配体2-1@" + TopName, "PLANE", 0.02100897146533, 0.02010239740637, 0.005080216841677, True, 1, Nothing, 0)boolstatus = Part.Extension.SelectByID2("基准面2@B轴2-1@装配体3-1@" + TopName, "PLANE", 0.003506811281113, 0.01069381722814, 0.02992193569601, True, 1, Nothing, 0)Set Feature = Part.AddMate2(0, 0, False, 0.025, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)Part.ClearSelection2 Trueboolstatus = Part.Extension.SelectByID2("基准轴1@A轴1-1@装配体1-1@" + TopName, "AXIS", 0.001862709021901, -5.870625483596E-04, 0.00792456008644, False, 1, Nothing, 0)boolstatus = Part.Extension.SelectByID2("基准轴1@Q轴1-1@装配体2-1@" + TopName, "AXIS", -0.002117641276116, -0.001288377420575, 0.03638769920806, True, 1, Nothing, 0)Set Feature = Part.AddMate2(0, 0, False, 0.001284339343211, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("基准轴1@Q轴1-1@装配体2-1@" + TopName, "AXIS", 0.003506811281113, 0.01069381722814, 0.02992193569601, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("基准轴1@B轴1-1@装配体3-1@" + TopName, "AXIS", 0.02100897146533, 0.02010239740637, 0.005080216841677, True, 1, Nothing, 0)
Set Feature = Part.AddMate2(0, 0, False, 0.025, 0, 0, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus)
Part.ClearSelection2 True
Part.ShowNamedView2 "*等轴测", 8
Part.ViewZoomtofit2 '全屏显示 |
|