Récupérer propriétés d'une pièce, Solidworks fermé
Bonjour à tous,
Je sais que je ne me trouve pas dans le forum idéal pour ce genre de question mais si jamais quelqu'un saurait m'aider, je lui en serait très reconnaissant !
Je travaille avec SolidWorks 2013 et ePDM.
J'aurais besoin de récupérer l'information "INDICE" d'une pièce avec un Solidworks fermé.
La routine serait appelée directement avec un clic droit sur une pièce enregistrée dans le coffre d'ePDM.
J'ai réussi à récupérer cette information avec un solidworks ouvert grâce à l'objet "ActiveDoc", mais je pense que c'est complètement différent avec un SW fermé.
J'imagine qu'il faut appeler un objet qui ouvre le document souhaité, de plus, j'aimerais que cela se passe en mode "Silence".
j'ai actuellement ce code:
Code:
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 |
Avez vous des idées ? Merci d'avance :)
