Recuperer le nom d'un fichier solidworks en vb [Résolu]
AMIBEN28
Messages postés mercredi 2 juin 2004Date d'inscription
19 novembre 2008
Dernière intervention
-
28 sept. 2008 à 20:33 - Dernière réponse : AMIBEN28
Messages postés mercredi 2 juin 2004Date d'inscription
19 novembre 2008
Dernière intervention
- 30 sept. 2008 à 21:03
Bonjour.
Voila mon probleme:
Je souhaite simplement recuperer le nom d'un fichier deja ouvert a partir de solidworks, en utilisant vb6.
j'ai donc essayer le code suivant:
Dim app-solid, des-soli As Object
Dim txt
Set app-solid = GetObject(, "SldWorks.Application")
Set des-solid = app-solid.ActiveDoc
txt =des-solid.GetPathName()
Label1.Caption = txt
le type de librairie solidworks est bien référencé (dans "Projet\reference")
mais rien ne fonctionne.
Si quelqu'un pouvais essayer de me depanner, ce serait sympas.
D'avance merci
AMIBEN28
Messages postés mercredi 2 juin 2004Date d'inscription
19 novembre 2008
Dernière intervention -30 sept. 2008 à 21:03
3
Merci
Je te remercie pour ton aide, car j'ai reussi avec le code suivant:
Dim SwApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim selObj As Object
Set SwApp = CreateObject("SldWorks.Application")
Set Part = SwApp.ActiveDoc
If Part Is Nothing Then X = MsgBox("pas de piece active !", vbCritical): Exit Sub
frm1.Label1.Caption = Part.GetPathName & Chr(13) & Mid(Part.GetPathName, InStrRev(Part.GetPathName, "") + 1)
frm1.txt_att_valeur.Text = Part.CustomInfo2("", frm1.txt_nom_att.Text)
En effet j'ai changer "GetObject" par CreateObject, ce qui me permet de recuperer le nom du fichier ouvert.
Encore merci pour l'aide
AMIBEN28
Messages postés mercredi 2 juin 2004Date d'inscription
19 novembre 2008
Dernière intervention -29 sept. 2008 à 20:07
0
Merci
Bonjour, et merci pour ton aide.
J'ai repris le code que tu as fourni, mais il y a le message d'erreur suivant: Erreur 429, le composant activeX ne peut creer l'objet, sur la ligne "Set appsolid = GetObject(, "SldWorks.Application")".
alors le type de librairie solidworks est bien référencé.
a aidé 101 internautes ce mois-ci