文件名称:Macro8
下载
别用迅雷、360浏览器下载。
如迅雷强制弹出，可右键点击选“另存为”。
失败请重下，重下不扣分。
如迅雷强制弹出，可右键点击选“另存为”。
失败请重下，重下不扣分。
介绍说明－－下载内容均来自于网络，请自行研究使用
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("", "FACE", -6.98539847525126E-03, 9.44480755947552E-04, -6.21349168243057E-03, False, 0, Nothing, 0)
Part.OpenCompFile
Set Part = swApp.OpenDoc6("H:\金逸康自动化\苏州贝特尔精密机械\合同案件\3D设计图\SMC气缸\4.sldprt", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.fr a meLeft = 0
myModelView.fr a meTop = 22
Set myModelView = Part.ActiveView
myModelView.fr a meState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "4", False, longstatus
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
Set myModelView = Part.ActiveView
myModelView.fr a meState = swWindowState_e.swWindowMaximized
End Sub
-Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("", "FACE",-6.98539847525126E-03, 9.44480755947552E-04,-6.21349168243057E-03, False, 0, Nothing, 0)
Part.OpenCompFile
Set Part = swApp.OpenDoc6("H:\金逸康自动化\苏州贝特尔精密机械\合同案件\3D设计图\SMC气缸\4.sldprt", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.fr a meLeft = 0
myModelView.fr a meTop = 22
Set myModelView = Part.ActiveView
myModelView.fr a meState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "4", False, longstatus
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
Set myModelView = Part.ActiveView
myModelView.fr a meState = swWindowState_e.swWindowMaximized
End Sub
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("", "FACE", -6.98539847525126E-03, 9.44480755947552E-04, -6.21349168243057E-03, False, 0, Nothing, 0)
Part.OpenCompFile
Set Part = swApp.OpenDoc6("H:\金逸康自动化\苏州贝特尔精密机械\合同案件\3D设计图\SMC气缸\4.sldprt", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.fr a meLeft = 0
myModelView.fr a meTop = 22
Set myModelView = Part.ActiveView
myModelView.fr a meState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "4", False, longstatus
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
Set myModelView = Part.ActiveView
myModelView.fr a meState = swWindowState_e.swWindowMaximized
End Sub
-Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("", "FACE",-6.98539847525126E-03, 9.44480755947552E-04,-6.21349168243057E-03, False, 0, Nothing, 0)
Part.OpenCompFile
Set Part = swApp.OpenDoc6("H:\金逸康自动化\苏州贝特尔精密机械\合同案件\3D设计图\SMC气缸\4.sldprt", 1, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.fr a meLeft = 0
myModelView.fr a meTop = 22
Set myModelView = Part.ActiveView
myModelView.fr a meState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "4", False, longstatus
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
Set myModelView = Part.ActiveView
myModelView.fr a meState = swWindowState_e.swWindowMaximized
End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
Macro8.swp