Classement

Salut Oui --> touche F3 @+

Re, Pourtant, AutoCAD fonctionne comme ça,... Si tes variables sont bien renseignées AutoCAD calcul lui même le coefficient de conversion d'un plan à l'autre,... (Marche aussi avec les blocs externes,...) Rappel =>

Bonjour, (defun GetFolders (path / folders) (if (member "." (setq folders (vl-directory-files path nil -1))) (cddr folders) folders ) ) (defun GetFiles (path pat / ) (vl-directory-files path pat 1) ;pat = "*.pdf" ) (defun CreateListePdf (path / lsFiles sFileName lsFolders sFolderName) (setq *lsPdfFiles* nil) (setq *lsPdfPath* nil) ; traite les fichiers du dossier racine (if (setq lsFiles (GetFiles path "*.pdf")) (foreach sFileName lsFiles (setq *lsPdfFiles* (append *lsPdfFiles* (list (strcase sFileName)))) (setq *lsPdfPath* (append *lsPdfPath* (list path))) ) ) ; Boucle sur les sous dossiers (if (setq lsFolders (GetFolders path)) (foreach sFolderName lsFolders (setq path2 (strcat path "\\" sFolderName)) (if (setq lsFiles (GetFiles path2 "*.pdf")) (foreach sFileName lsFiles (setq *lsPdfFiles* (append *lsPdfFiles* (list (strcase sFileName)))) (setq *lsPdfPath* (append *lsPdfPath* (list path2))) ) ) ) ) (princ (strcat "\n" (itoa (length *lsPdfFiles*)) " fichiers PDF trouvés")) (princ) ) La fonction GetFiles permet de récupérer la liste des fichiers contenu dans un dossier La fonction GetFolders permet de récupérer la liste des sous dossiers d'un dossier donné. La fonction CreateListePdf utilise les 2 fonctions précédentes pour rechercher tous les PDF contenus dans un dossier et ses sous-dossiers et créer 2 variables globales : *lsPdfFiles* qui contient la liste des PDF dans laquelle il faudra rechercher si ton texte existe *lsPdfPath* qui contient la liste des dossiers correspondant aux fichiers de la liste précédente. Tu peux essayer de voir du côté d'une fonction récursive pour balayer tout un dossier et ses sous-dossiers sur un niveau d'imbrication "infini". Olivier

Bonjour, Je créé des PT à partir d'une polyligne TN. Sur ces profils il y à des points au dessus du TN dont je doit annoter l'altitude. Jusqu’à maintenant je mesurais la distance de chaque point que j'additionnais à l'altitude du plan de comparaison. Cette démarche étant très longue, je souhaiterais savoir si vous connaissiez une méthode ou une macro qui pourrait m'aider à aller plus vite? Merci.