BiF_FileRead

N°	Fonction	Catégorie	Version
BIF 02	BiF_FileRead	Gestion de Fichiers	1.0 - Janvier 2007

But	Vérifie si un fichier existe et s'il est lisible.
Prototype	(BiF_FileRead Fichier)
Argument	Fichier - Le nom du fichier à vérifier - chaîne -
Retours	Le nom du fichier complet avec le chemin ou nil - chaîne -
Var. globales	Néant
Description	Vérifie si un fichier existe et s'il est lisible (ouvrable en lecture) Si oui, retourne le chemin complet.
Notes	Fonction surtout utile pour le travail en réseau où les fichiers peuvent ne pas être autorisés en lecture par certains utilisateurs, ou à certains moments.
Exemples	Commande: (BiF_FileRead "acad.pgp") retourne "D:\\ACADR2000\\COMMON\\SUPPORT\\ACAD.PGP" Commande: (BiF_FileRead "acad.tgp") retourne nil

    1-   (defun FileRead (*File1 / File2 File3)

    2-      (if (setq File2 (Findfile *File1))

    3-          (if (setq File3 (open File2 "r"))
    4-              (close File3)
    5-              (setq File2 nil)
    6-          )
    7-      )
    8-      File2
    9-   )

Ligne 2 :  Si le fichier est trouvé, retourne dans File2 le nom complet,
Ligne 3 :		Si ce fichier est ouvrable en lecture,
Ligne 4 :			 -  referme le,
Ligne 5 :			 -  sinon,  déclare  File2 nil
Ligne 8 :  Retourne le résultat de File2  (nom complet  ou nil) 

Findfile : recherche dans le chemin accessible par AutoCAD si le fichier existe.
S'il est trouvé, retourne le nom avec le chemin complet.
Open : ouvre un fichier, ici en lecture.
Close : referme un fichier.