|
经典图书 Private Sub Command1_Click()
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6("E:零件图4-11被动轮轴.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc2("04-11被动轮轴", False, longstatus)
Set Part = swApp.OpenDoc6("E:零件图4-10轴挡.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.ActivateDoc2("04-10轴挡", False, longstatus)
Set Part = swApp.NewDocument("C:Program FilesSolidWorksdatatemplates装配体.asmdot", 0, 0#, 0#)
Set Part = swApp.ActivateDoc2("装配体1", False, longstatus)
Part.AddComponent "E:零件图4-11被动轮轴.SLDPRT", 0, 0, 0
Part.AddComponent "E:零件图4-10轴挡.SLDPRT", 0.1, 0, 0
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.0125, 0.05, 0.008, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1, 0.0055, 0, True, 1, Nothing, 0)
Set Feature = Part.addmate2(1, 1, False, 0.001, 0, 0, 0.001, 0.001, 0.001, 0.5, 0.5, 0.5, longstatus, False)
Set swmatefeat = swassy.addmate2(1, 0, False, 0, 0, 0, 0, 0, 0, 0, 0, nerrors)
Part.ClearSelection2 True |
|