Boite de dialogue chemin

[stephan35]

Bonjour,

 

Je cherche à modifier la boite de dialogue répertoire afin qu'elle me propose un répertoire par défaut sans inhiber le reste de l'arborescence ?

 

Code piqué chez patrick

 

(defun DirBox(Message Chemin Drapeau / rep sh)
; Valeur du Drapeau
; 0 = Valeur par défaut
; 1 = BIF_RETURNONLYFSDIRS = Seulement les fichiers système
; 2 = BIF_DONTGOBELOWDOMAIN = Interdit d'explorer en dehors du domaine
; 4 = BIF_STATUSTEXT = Inclure un secteur de statut. La fonction de rappel de service peut placer le texte de statut en envoyant des messages à la zone de dialogue. Ce drapeau n'est pas soutenu quand BIF_NEWDIALOGSTYLE est indiqué.
; 8 = BIF_RETURNFSANCESTORS = Seulement les sous Dossiers
; 16 = BIF_EDITBOX = Inclure une commande d'édition dans la zone de dialogue
; 32 = BIF_VALIDATE = Verifie si l'utilisateur dactylographie un nom inadmissible dans la boîte d'édition
; 512 = BIF_NONEWFOLDERBUTTON = Ne pas inclure le bouton Créer un nouveau dossier
; 4096 = BIF_BROWSEFORCOMPUTER = Autorise à parcourir le réseau
; 8192 = BIF_BROWSEFORPRINTER = Seulement le choix d'une imprimante
; 16384 = BIF_BROWSEINCLUDEFILES = Montre tout
; = BIF_BROWSEINCLUDEURLS = Montrer les raccourcis, Les drapeaux BIF_USENEWUI et de BIF_BROWSEINCLUDEFILES doivent également être placés
; = BIF_NEWDIALOGSTYLE = Employer la nouvelle interface utilisateur
; = BIF_NOTRANSLATETARGETS = Quand l'article choisi est un raccourci, renvoyer le PIDL du raccourci lui-même plutôt que sa cible.
; = BIF_SHAREABLE = Peut montrer les ressources en commun sur les systèmes à distance. Le drapeau de BIF_NEWDIALOGSTYLE doit également être placé.
; = BIF_UAHINT = Une fois combiné avec BIF_NEWDIALOGSTYLE, ajoute un conseil d'utilisation à la zone de dialogue au lieu de la boîte d'édition. BIF_EDITBOX dépasse ce drapeau.
; = BIF_USENEWUI = Employer la nouvelle interface utilisateur, y compris une boîte d'édition

(setq sh (vlax-create-object "Shell.Application"))
(if (setq rep (vlax-invoke sh 'browseforfolder 0 Message Drapeau Chemin))
(setq rep (vlax-get-property (vlax-get-property rep 'self) 'path))
(setq rep nil)
)
(vlax-release-object sh)
rep
) 

 

 

 

Merci :casstet:

[Patrick_35]

hé, hé ;)

J'ai eu exactement le même problème. Pas de solution pour l'instant sauf d'utiliser les outils des express tools

 

(acet-ui-pickdir "Message" "c:\\")

 

@+

[stephan35]

çà marche !

 

 

(acet-ui-pickdir "Message" "c:\\")

 

Super !

 

 

çà fonctionne à merveille , sauf qu'evidemment on dépende des express tools ....... :mad:

 

 

Merci ! :)

[ElpanovEvgeniy]

Une autre variante...

 

(defun BrowseFolder (/ ShlObj Folder FldObj OutVal)
 ;;
 ;; Originated by Tony Tanzillo Adsk Discussion.
 ;;
 (vl-load-com)
 (setq ShlObj (vla-getinterfaceobject (vlax-get-acad-object)
                                      "Shell.Application"
              )
       Folder (vlax-invoke-method ShlObj 'BrowseForFolder 0 "" 0)
 )
 (vlax-release-object ShlObj)
 (if Folder
   (progn (setq FldObj (vlax-get-property Folder 'Self)
                OutVal (vlax-get-property FldObj 'Path)
          )
          (vlax-release-object Folder)
          (vlax-release-object FldObj)
          OutVal
   )
 )
) 

[Patrick_35]

Hi,

It's the same thing as what is proposed a little higher

The problem is than if one uses (vlax-invoke-method ShlObj 'BrowseForFolder 0 "" 0 "C: /rep1/rep2"), one do not see all the tree structure

 

And i didn't find the solution :(

 

@+