Recuperer le nom d'un fichier solidworks en vb [Résolu]

Question

Posez votre question Signaler Répondre au sujet

Recuperer le nom d'un fichier solidworks en vb [Résolu]

AMIBEN 28 Messages postés mercredi 2 juin 2004Date d'inscription 19 novembre 2008 Dernière intervention - 28 sept. 2008 à 20:33 - Dernière réponse : AMIBEN 28 Messages postés mercredi 2 juin 2004Date d'inscription 19 novembre 2008 Dernière intervention

- 30 sept. 2008 à 21:03

Visual Basic 6 Posez votre question Signaler Répondre au sujet

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

Afficher la suite

Recuperer le nom d'un fichier solidworks en vb
Récupérer le nom d'un fichier à partir de son path (Résolu) » Forum - C
Recuperer le nom d un fichier sans son extension dans un textbox (Résolu) » Forum - C# / .NET
Recuperer le nom d'un fichier dans une String contenant un chemin (Résolu) » Forum - Java
Recuperer le nom d'un fichier image dans une imagelist (Résolu) » Forum - VB.NET
Recuperer le nom d'un fichier (Résolu) » Forum - Visual Basic

4 réponses

Répondre au sujet

Signaler Commenter la réponse de jrivet

jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 29 sept. 2008 à 08:31

0

Utile

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(), ----
[../code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée

Signaler Commenter la réponse de AMIBEN

AMIBEN 28 Messages postés mercredi 2 juin 2004Date d'inscription 19 novembre 2008 Dernière intervention - 29 sept. 2008 à 20:07

0

Utile

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é.

Ami ben

Signaler Commenter la réponse de jrivet

jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 30 sept. 2008 à 07:53

0

Utile

Re,
Est ce que la DLL est libre au téléchargement?
Si oui dit moi ou la trouver.

@+: Ju£i€n
Pensez: Réponse acceptée

Accepted Answer

+3

Utile

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

Cette réponse vous a-t-elle aidé ? Oui Non

Recuperer le nom d'un fichier solidworks en vb [Résolu]

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !