[Résolu] Petit soucis de chemin

[DenisHen]

Bonjour à tous.

 

Voilà, j'ai, en VBA bien sur, une ligne qui insert un DWG avec son nom complet (chemin + nom).

 

Mais AutoCAD me répond qu'il ne trouve pas le fichier ou "Nom de bloc incorrect.", voir "*Incorrect*" selon le nom de fichier.

 

Voici la commande qui me pose problème :

  AutoCAD.ActiveDocument.SendCommand ("-inserer" & vbCr & "C:\DH_Cadastre\CC\08\08001_CC50.dwg" & vbCr & "0,0,0" & vbCr & vbCr & vbCr & vbCr)

Sachant que j'ai déjà essayé : "C://DH_Cadastre//CC//08//08001_CC50.dwg".

 

Si quelqu'un a une réponse, une solution, une astuce... Je suis preneur...

[Patrick_35]

Salut

 

Soit tu utilises \\ ou /, mais pas l'inverse.

Sinon, tu peux utiliser la méthode InsertBlock.

 

@+

[DenisHen]

Salut Patrick_35, et merci de m'aider.

 

J'ai essayé "\\" et "/", aucun ne fonctionne avec le "SendCommand".

 

J'ai tenté aussi "InsertBlock", mais j'ai une erreur 438 d'Excel : "Propriété ou méthode non gérée par cette objet" :

    Dim insertPnt(0 To 2) As Double
   insertPnt(0) = 0: insertPnt(1) = 0: insertPnt(2) = 0
   Dim blockRefObj As AcadBlockReference
   Set blockRefObj = AutoCAD.ActiveDocument.InsertBlock(insertPnt, "C:/DH_Cadastre/CC/08/08001_CC50.dwg")

J'ai peut-être oublié de préciser que mon VBA est dans un fichier Excel...

[Patrick_35]

Ne maitrisant pas vba, difficile de te répondre.

Néanmoins, tu as un exemple dans le lien que j'ai donné et je me pose la question si tu as fait le lien avec Autocad du style :

Set objAcad = CreateObject("autocad.application")

 

@+

[DenisHen]

Je ne maîtrise pas vraiment VBA non plu.

 

Mais j'ai fais ça :

  Set AutoCAD = GetObject(, "AutoCAD.Application")

[Patrick_35]

Cela suppose qu'Autocad doit-être ouvert.

 

Sinon, après une recherche rapide.

Ou encore ici et là.

 

@+

[DenisHen]

Merci Patrick_35 de ton aide...

 

J'avais déjà trouvé tes liens, sauf le principal, celui de "developpez.net".

 

C'est résolu maintenant...

 

Encore merci... ;)