mirror of
https://forge.apps.education.fr/blender-edutech/blender-edutech-modeles-3d.git
synced 2024-01-27 08:24:03 +01:00
30 lines
962 B
Plaintext
Executable File
30 lines
962 B
Plaintext
Executable File
' ******************************************************************************
|
|
' swxJRNL.swj - journal recorded on 02/16/21 by Claude
|
|
' *****************************************************************************
|
|
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.OpenDoc6("C:\Users\Utilisateur\Documents\Download grabcad\Composants\603 cap on pad.SLDPRT", 1, 0, "", longstatus, longwarnings)
|
|
swApp.ActivateDoc2 "603 cap on pad.SLDPRT", False, longstatus
|
|
Set Part = swApp.ActiveDoc
|
|
Set Part = swApp.ActiveDoc
|
|
Dim myModelView As Object
|
|
Set myModelView = Part.ActiveView
|
|
myModelView.FrameLeft = 0
|
|
myModelView.FrameTop = 21
|
|
Set myModelView = Part.ActiveView
|
|
myModelView.FrameWidth = 1605
|
|
myModelView.FrameHeight = 867
|
|
Set Part = Nothing
|
|
swApp.CloseDoc "603 cap on pad.SLDPRT"
|
|
swApp.ExitApp
|
|
End Sub
|