« Reply #32 on: January 30, 2007, 12:09:11 PM »
Hi
Try this
(defun FileBox(/ cdl f)
;OFN_READONLY &H1 1 La case 'Lecture seule' est cochée à la création de la fenêtre.
;OFN_OVERWRITEPROMPT &H2 2 Afficher un message de confirmation d'écrasement de fichier si celui-ci existe déjà.
;OFN_HIDEREADONLY &H4 4 Case à cocher 'Lecture seule' invisible.
;OFN_NOCHANGEDIR &H8 8 Conserve le répertoire d'origine à la fermeture de la fenêtre.
;OFN_SHOWHELP &H10 16 Afficher le bouton 'Aide' dans la boîte de dialogue.
;OFN_NOVALIDATE &H100 256 Ne vérifie pas la validité de la saisie (validité du nom de fichier).
;OFN_ALLOWMULTISELECT &H200 512 Autoriser la sélection multiple de fichiers.
;OFN_EXTENSIONDIFFERENT &H400 1024 Indique que l'utilisateur a choisi une extension différente de celle par défaut.
;OFN_PATHMUSTEXIST &H800 2048 Les chemins et fichiers saisis doivent exister.
;OFN_FILEMUSTEXIST &H1000 4096 Seuls des fichiers existants peuvent être saisis.
;OFN_CREATEPROMPT &H2000 8192 Afficher une fenêtre de confirmation de création de fichier.
;OFN_SHAREAWARE &H4000 16384 Ignorer les erreurs de partage réseau.
;OFN_NOREADONLYRETURN &H8000 32768 Ne sélectionne pas la case à cocher 'Lecture seule'.
;OFN_NOTESTFILECREATE &H10000 65536 Le fichier ne sera pas créé avant la fermeture de la fenêtre.
;OFN_NONETWORKBUTTON &H20000 131072 Cache (désactive) le bouton 'Réseau'.
;OFN_NOLONGNAMES &H40000 262144 Utilise les noms courts de fichier (sans effet dans le cas des fenêtres du type 'Explorer').
;OFN_EXPLORER &H80000 524288 Donne un style 'Explorer' à la boîte de dialogue (par défaut).
; Qui ne fonctionne apparement pas sous XP
;OFN_LONGNAMES &H200000 2097152 Gestion des noms longs pour les boîtes de dialogue n'ayant pas le style 'Explorer'.
;OFN_NODEREFERENCELINKS &H100000 1048576 La boîte de dialogue prendra le nom et le chemin du raccourci sélectionné.
(setq cdl (vlax-create-object "userAccounts.CommonDialog"))
(vlax-put-property cdl 'filter (vlax-make-variant "Fichiers dessins (*.dwg)| *.dwg |Fichiers DXF (*.dwf) |Tous les fichiers (*.*)|*.*"))
(vlax-put-property cdl 'filterindex 1)
(vlax-put-property cdl 'flags (+ 4 8 512 2048 4096 131072 2097152))
(vlax-put-property cdl 'initialdir (getvar "dwgprefix"))
(if (eq (vlax-invoke cdl 'showopen) -1)
(setq f (vlax-get-property cdl 'filename))
(setq f nil)
)
(vlax-release-object cdl)
f
)
ps : sorry for the language. It's in french
@+
<edit: Fixed Code tags>
Works for me here. Using windows xp and autocad 2007....but the dialog box is in french.
Gary
« Last Edit: January 30, 2007, 12:11:21 PM by Gary Fowler »
Logged
Why is there never enough time to do it right, but always enough time to do it over?
BricsCAD 2020x64 Windows 10x64