1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| Imports SolidWorks.Interop
Imports SolidWorks.Interop.swconst
Imports System
Imports System.IO
Public Class Form1
Dim swApp As sldworks.SldWorks
Dim swDoc As sldworks.ModelDoc2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim value As String = Nothing
Dim SW As StreamWriter
Dim PathFile = "C:\Users\tony.guyot\Desktop\ERP\getIndice.map"
' Connexion à SolidWorks
swApp = CreateObject("SldWorks.Application.21") ' 21 = version 2013
'swApp = GetObject(, "SldWorks.Application")
swDoc = swApp.ActiveDoc
Dim swCustomPM As sldworks.CustomPropertyManager = swDoc.Extension.CustomPropertyManager("")
value = (swCustomPM.Get("INDICE"))
MsgBox(value)
SW = File.AppendText(PathFile)
SW.WriteLine("Indice: " + value)
SW.Flush()
SW.Close()
Me.Close()
End Sub
End Class |
Partager