Afficher le chemin du document actif.

[Arcasdk]

Bonjour mes gens,

 

je cherche à afficher dans la boite de dialogue, le chemin de mon document actif.

 

Il existe bien évidement la check-box dans les options pour l'afficher dans le titre de ma fenêtre mais mon chemin est tellement long que je vois pas tout.

 

J'ai donc décidé de me lancer dans le V-lisp et j'ai pondu un truc dans le genre qui ne fonctionne pas. Est ce que je chauffe ou pas du tout....?

 

(defun c:way (/)
 (vl-load-com)
 (setq lst (vl-filename-directory(vla-get-activedocument(vlax-get-acad-object))))
 )

 

Merci

[didier]

Coucou

 

ceci fonctionne :

 

(setq chemin (strcat (getvar "dwgprefix")(getvar "dwgname")))  

 

amicalement

[Patrick_35]

Salut

 

(vla-get-path (vla-get-activedocument (vlax-get-acad-object)))

Pour tout connaitre sur le document actif

(vlax-dump-object (vla-get-activedocument (vlax-get-acad-object)) T)

 

@+

[Arcasdk]

Ah cool merci.

 

Et en vlisp pour avoir le nom de fichier....?

[Tramber]

 (vla-get-Name(vla-get-activedocument (vlax-get-acad-object)))

Tout simplement

[Arcasdk]

Merci à tous

[(gile)]

Et en vlisp pour avoir le nom de fichier....?

 

Pourquoi absolument en vlisp ?

L'expression donnée par Didier est au moins aussi efficace...

 

_$ (benchmark '((vla-get-Name(vla-get-activedocument (vlax-get-acad-object))) (getvar 'dwgname)))
Benchmarking ...................Elapsed milliseconds / relative speed for 65536 iteration(s):

   (GETVAR (QUOTE DWGNAME)).....................1560 / 3.66 
   (vla-get-Name (vla-get-ActiveDocumen...).....5710 / 1.00