Hoi,Ze zijn echt hee

Submitted by Anonymous (not verified) on Fri, 06/09/2017 - 03:54

The code for creating a simple cube in Solidworks with VBA (macros)

Edit X and Y and Z values for customization

Private Sub CommandButton1_Click()

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Dim myModelView As Object

Set myModelView = Part.ActiveView

myModelView.FrameState = swWindowState_e.swWindowMaximized