[VB.net] Extraction référence Solidworks

vos questions concernant les API SolidWorks

[VB.net] Extraction référence Solidworks

Messagepar mallarddam » Mar 03 Mar 2015, 11:03

Je souhaiterait pouvoir recupere a partir d'un fichier type ASM ou DRW les reference qu'il ont

Exemple:

Le Fichier "mise en plan 1.SLDDRW" Fait reference à l'assemblage "assemblage1.SLDASM"

Le Fichier "assemblage1.SLDASM" Fait reference a la piece "Piece1.SLDPRT"

Je souhaiterait recupere les valeur "assemblage1.SLDASM" et "Piece1.SLDPRT" en automatique

Je ne sait pas si je suis comprehensible :/
Fichiers joints
REF.png
REF.png (62.61 Kio) Vu 531 fois
mallarddam
Ewok SolidWorks
 
Messages: 15
Inscription: Jeu 15 Jan 2015, 13:38

Re: [VB.net] Extraction référence Solidworks

Messagepar MarcS » Mer 04 Mar 2015, 16:29

Voici un début de code
Public swApp As SldWorks
Dim Sw_Ass As AssemblyDoc
Dim Sw_Model As ModelDoc2
Dim Sw_Comps() As Object
Dim Sw_Comp As Component2
Dim Child_Name As String
Dim vChild As Object

Sw_Model = swApp.ActiveDoc
If Sw_Model.GetType <> 2 Then '2 pour "swDocASSEMBLY"
Sw_Model = Nothing
swApp = Nothing
MsgBox("Vous devez avoir un assemblage d'ouvert pour executer ce programme.")
Exit Sub
End If

Sw_Ass = Sw_Model
Sw_Comps = Sw_Ass.GetComponents(True)
Dim vChild As Object
For I = 0 To UBound(Sw_Comps)
Sw_Comp = Sw_Comps(I)
vChild = Sw_Comp.GetChildren
MsgBox(Sw_Comp.GetPathName)
If (UBound(vChild)) > 0 Then
'ouvrir les sous assemblage et vérifier ses enfants
Open_Child(vChild, Sw_Comp.GetPathName)
End If
Next I

Si je te donne un poisson tu pourras manger Aujourd’hui
mais si je t’apprend a pêcher tu pourras manger toute ta vie !!!
Salut !

Marc S.
Avatar de l’utilisateur
MarcS
Chevalier Jedi SolidWorks
 
Messages: 311
Inscription: Mar 06 Jan 2009, 20:10
Localisation: Quebec, Quebec SolidWorks 2017 SP 1.0 & SolidWorks 2014 SP 2.0


Retourner vers Questions générales sur les API

 


  • Articles en relation
    Réponses
    Vus
    Dernier message

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité

banniere