大学物理4-零件装配.pptVIP

零件装配 零件装配 SW 二次开发VB讲座 一.各坐标系理解 零件装配 SW 二次开发VB讲座 * 零件坐标与装配坐标 二.零件的载入 零件装配 SW 二次开发VB讲座 装配体环境 swApp = CreateObject(SldWorks.Application) swModel = swApp.ActiveDoc AssemblyTitle = swModel.GetTitle strings = Split(AssemblyTitle, .) AssemblyName = strings(0) * 二.零件的载入 零件装配 SW 二次开发VB讲座 文件类型与打开零件 Midname=“D:\test\Test.SLDPRT” If Right(midname, 6) = SLDPRT Then sldiii = 1 Else If Right(midname, 6) = SLDASM Then sldiii = 2 End If End If tmpObj = swApp.OpenDoc6(midname, sldiii, 0, , 0, warnings) PartTitle = tmpObj.GetTitle() strings = Split(PartTitle, .) * 二.零件的载入 零件装配 SW 二次开发VB讲座 装配环境中的位置控制 swModel = swApp.ActivateDoc2(AssemblyTitle, False, 0) swModel.ClearSelection2(True) swApp.ActiveDoc.ActiveView.FrameState = 1 swAssy = swModel swcomponent = swAssy.AddComponent4(midname, , x, y, z) * 二.零件的载入 零件装配 SW 二次开发VB讲座 完成载入 tmpObj = swApp.ActivateDoc2(PartTitle, False, 0) tmpObj = Nothing swApp.CloseDoc(PartTitle) swAssy = Nothing swModel = Nothing swApp = Nothing * 三.零件的旋转 零件装配 SW 二次开发VB讲座 各轴向的设定 nPts(0) = 1 : nPts(1) = 0 : nPts(2) = 0 该组参数为定向X轴旋转 nPts(0) = 0 : nPts(1) = 1 : nPts(2) = 0 该组参数为定向Y轴旋转 nPts(0) = 0 : nPts(1) = 0 : nPts(2) = 1 该组参数为定向Z轴旋转 midangle = (angle * Math.PI) / 180 旋转角度 * 三.零件的旋转 零件装配 SW 二次开发VB讲座 程序说明 1 swDragOp = swAssy.GetDragOperator swSelMgr = swModel.SelectionManager swModel.Extension.SelectByID2 (insname, COMPONENT, 0, 0, 0, False, 0, Nothing, 0) swComp = swSelMgr.GetSelectedObjectsComp