Tutorial aprende a programar en Solidworks Vb.NET | Clase 2 | Macros solidworks
antonio2023-01-14T08:48:09+00:00Índice
ToggleTutorial paso a paso Clase nº2 "Aprende a programar en SolidWorks
Tutorial Macros Solidworks:
En este segundo video, de la serie de videos «Aprende a programar en SolidWorks», del curso gratuito online de SolidWorks, aprenderás a sacar toda la información de un documento activo usando la API de SolidWorks.
Abriremos un nuevo proyecto usando Visual Studio y seleccionaremos el tipo de proyecto de Windows form NET.Framework. Añadiremos un control de tipo textbox y un Botón tal y como se muestra en la siguiente imagen:
En la parte del código del formulario escribiremos las siguientes líneas de código:
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Public Class Form1
Dim swapp As SldWorks
Dim swmodel As ModelDoc2
Dim info As String = ""
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub B_Obtener_info_Click(sender As Object, e As EventArgs) Handles B_Obtener_info.Click
swapp = GetObject("", "SldWorks.Application.30")
swapp.Visible = True
If swapp Is Nothing Then
MsgBox("Error obteniendo SolidWorks")
Exit Sub
End If
swmodel = swapp.ActiveDoc
If swmodel Is Nothing Then
MsgBox("NO existe ningún documento abierto")
Exit Sub
End If
añadir_info("Información de archivo")
Dim fullname As String = swmodel.GetPathName
añadir_info(fullname)
añadir_info("Directorio: " & System.IO.Path.GetDirectoryName(fullname))
añadir_info("Nombre archivo: " & System.IO.Path.GetFileName(fullname))
añadir_info("Extensión: " & System.IO.Path.GetExtension(fullname))
añadir_info("Título: " & swmodel.GetTitle)
añadir_info("Tipo archivo:" & [Enum].GetName(GetType(swDocumentTypes_e), swmodel.GetType))
añadir_info("Modo Lectura: " & swmodel.IsOpenedReadOnly)
añadir_info("Vista Rápida: " & swmodel.IsOpenedViewOnly)
añadir_info("Ensamblaje aligerado: " & swmodel.LargeAssemblyMode)
añadir_info("Nombre Material: " & swmodel.MaterialUserName)
añadir_info("Id Material: " & swmodel.MaterialIdName)
añadir_info("Nombre configuraciones:")
Dim confignames() As String = swmodel.GetConfigurationNames
Dim configname As String
For Each configname In confignames
añadir_info(configname)
Next
añadir_info("Info Doc:")
Dim summarynames() As String = [Enum].GetNames(GetType(swSummInfoField_e))
Dim summaryname As String
For Each summaryname In summarynames
Dim sumid As Integer = CType([Enum].Parse(GetType(swSummInfoField_e), summaryname), Integer)
Dim sumvalor As String = swmodel.SummaryInfo(sumid)
añadir_info(summaryname & ": " & sumvalor)
Next
T_info.Text = info
End Sub
Sub añadir_info(ByVal texto As String)
info = info & texto & System.Environment.NewLine
End Sub
End Class
Todos los detalles y la explicación del código los podéis encontrar en el siguiente video:
Tutorial aprende a programar en Solidworks
La primera clase de esta serie de tutoriales para aprender macros en Solidworks la podéis encontrar en el siguiente video:
Os dejo un enlace sobre un artículo para aprender a grabar macros en SolidWorks:
Archivos descarga Macro Solidworks: Tutorial clase nº 2 "Aprende a Programar en SolidWorks"
Pulsa en el siguiente enlace para descargar los archivos de la macro de Solidworks mostrada en el video tutorial