AMIBEN
Messages postés28Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention19 novembre 2008
-
Modifié le 16 sept. 2021 à 09:13
Holidw
Messages postés1Date d'inscriptionjeudi 16 septembre 2021StatutMembreDernière intervention16 septembre 2021
-
16 sept. 2021 à 07:56
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
Ami ben
A voir également:
Vba solidworks
Solidworks vba - Meilleures réponses
Vba recuperer le nom du fichier actif - Meilleures réponses
AMIBEN
Messages postés28Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention19 novembre 2008 Modifié le 16 sept. 2021 à 09:13
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
Ami ben
Holidw
Messages postés1Date d'inscriptionjeudi 16 septembre 2021StatutMembreDernière intervention16 septembre 2021 16 sept. 2021 à 07:56
Bonjour Amiben
Je suis en ce moment entrain d’essayer d’appliquer ta macro sur solidwork 2020 :) je suis novice en code et rencontre quelques difficultés notamment plusieurs messages d’erreurs.
Mon but est d’avoir une macro qui des l’ouverture du fichier une 1er fois affichera des ou une fenêtre avec les propriétés à remplir.
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 Modifié le 16 sept. 2021 à 09:15
Salut,
Si tu travailles Bien en VB6, il faut TOUT DE SUITE changer le nom de tes varailes, VB6 ne supporte pas les - dans les noms de variables.
Peu être cela résoudra t il ton problème.
N'oublies pas non plus de typer au maximum tes variables.
Essaies donc ceci.
Dim appsolid, dessolid As Object
Dim txt As String
Set appsolid = GetObject(, "SldWorks.Application")
Set dessolid = appsolid.ActiveDoc
txt = dessolid.GetPathName(), ----
AMIBEN
Messages postés28Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention19 novembre 2008 29 sept. 2008 à 20:07
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é.
16 sept. 2021 à 07:56
Je suis en ce moment entrain d’essayer d’appliquer ta macro sur solidwork 2020 :) je suis novice en code et rencontre quelques difficultés notamment plusieurs messages d’erreurs.
Mon but est d’avoir une macro qui des l’ouverture du fichier une 1er fois affichera des ou une fenêtre avec les propriétés à remplir.
Voilà
A plaisir de te lire
Holidw