- Category:
- Other systems
- Tags:
-
- File Size:
- 6kb
- Update:
- 2014-04-22
- Downloads:
- 0 Times
- Uploaded by:
- S
Description: 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.FrameLeft = 0
myModelView.FrameTop = 22
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "4", False, longstatus
Set Part = swApp.ActiveDoc
Part.ClearSelection2 True
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
End Sub
To Search:
File list (Check if you may need any files):
Macro8.swp
Download