Erstellen Sie einen Cube in Solidworks VBA - Solidworks Automation

Submitted by Anonymous (not verified) on Wed, 05/24/2017 - 05:19

Der Code zum Erstellen eines einfachen Cubes in Solidworks mit VBA (Makros)

Bearbeiten Sie die X- und Y- und Z-Werte für die Anpassung

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

Tags