Código fuente de Solidworksvb
Subcomando privado 1_Click()
Atenuar swApp como objeto
Atenuar parte como objeto
Atenuar boolstatus como booleano
Atenuar Las aristas largas son lo mismo, las aristas largas son las mismas
Conectarse a solidworks
set swApp = CreateObject(" SLD works. Application")
swApp. Visible(verdadero)
Acción novedosa
Establecer parte = swApp. newPart()
SetPart = swApp. ActiveDoc
Simplemente cambie la definición anterior por un título acorde a esto.