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