Tutorial aprende a programar en Solidworks Vb.NET | Clase 2 | Macros solidworks

Macros en SolidWorks

Tutorial aprende a programar en Solidworks Vb.NET | Clase 2 | Macros 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:

macros en solidworks aprende a programar en solidworks Tutorial macros solidworks api

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:

Ver el video

Os dejo un enlace sobre un artículo para aprender a grabar macros en SolidWorks:

Ver el artículo

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

Share this post