guibout

Boujour à tous, Je suis à la recherche d'une feuille Excel pour effectuer le dimensionnement de séparateur à hydrocarbures afin de déterminer si possible la taille nominale, la taille du débourbeur et la taille du By-pass.. Merci

Salut MNT Merci pour ta proposition Voici mon courriel : aguibout@abscis.fr Cordialement

Bonjour, Quelqu'un pourrait-il me donner le rayon de giration extérieur hors tout d'un semi-remorque (le plus long possible normalement 16.50m suivant le code de la route) ? Cela me permettrait sur nos projets de dessiner un cercle représentant la place nécessaire pour faire un demi-tour. Merci Cordialement Wallas

Bonjour, J'ai fait un essai et voici le résultat dans la ligne de commande de AUTOCAD Connexion avec Excel 2003 Erreur : Erreur Automation. Aucune description n'a été entrée. AUTOCAD 2005 Excel 2003 Excel s'est bien ouvert sur un tableau vierge. Je n'ai pas sur le PC les fichiers excel8.olb, excel9.olb et excel10.olb. Cela est-il un problème ? Merci de m'indiquer comment je peux corriger le lisp. Cordialement Wallas

Bonjour Un grand merci à Patrick_35 pour son travail Je vais essayer dès aujourd'hui ce lisp. Encore Merci. Dernière chose, si je peux me permettre, il serait intéressant que Patrick_35 metre à disposition, si ce n'est déjà fait ce lisp sur les téléchargements. Si tu veux, je peux le faire en ton nom. Cordialement Wallas

Bonjour, Pour te répondre, Patrick_35, à terme je souhaite récupérer dans un fichier excel vierge les propriétés de mes 900 fichiers Excel de la façon suivante : Colonne A : Chemin Colonne B : Nom du répertoire Colonne C : Taille du fichier Colonne D : Date de création Colonne E : Date de dernier enregistrement Colonne F : Noms des XREF dans la même cellule avec un séparateur entre chaque Xref Colonne G : Noms de Présentations dans la même cellule avec un séparateur entre chaque Présentations Par contre, lors d'essais, apparement, j'ai vu apparaitre des dates de créations bizarres du style 1982. Apres recherche, j'ai un fichier avec les propriétés suivantes : Propriétés/Général Auteur : 24/02/2006 - 09h26m01s Modification : 05/01/05 - 09h50m40s et Propriétés/Statistiques Crée le 2 janvier 1982 01h00m00s ça, c'est pour l'anecdote car je ne vasi me mettre à chercher pourquoi nous avons ce genre d'erreur dasn les stats de nos fichiers. Merci Patrick_35 de ton aide Cordialement Wallas

Bonjour à tous et à Patrick_35 Je viens de l'essayer. Je n'ai pas sur mon poste autocad 2005 mais uniquement 2004LT. Je dois donc attendre la disponibilité du poste de mon collègue. Sinon, cela fonctionne de façon impeccable. Par contre, je cherche à savoir si les données sont enregistrées dans un fichier mais apparement non. Je vais essayer de programmer cela en mettant une ligne par fichier et un point virgule entre chaque donnée de façon à pouvoir le reprendre dans un fichier excel (via peut être du CSV). Pour info, j'ai eu une petite erreur sur un fichier nommé NOMFICHIER_Recover. J'ai supprimé le fichier et je vais refaire un essai. Merci beaucoup. Si jamais cela est simple pour toi de ramener ton LISP aux dispositions ci-dessus, je suis preneur évidement. Je vais de tout façon repartir sur ton excellent travail. Bonne journée Wallas

Bonjour Pour information, voici le code LISP que j'ai fait : (defun c:dateagu () (setvar "cmdecho" 0) (princ "\nTraitement en cours...") (setq f (open (strcat (getvar "dwgprefix")(getvar "dwgname") ".ctl") "w")) (princ "Fichier dessin: " f) (princ "\n" f) (princ (getvar "dwgname") f) (princ "\n" f) (princ "Taille :" f) (princ "\n" f) (princ (vl-file-size (strcat (getvar "dwgprefix")(getvar "dwgname"))) f) (princ "\n" f) (princ "Date de création : " f) (princ "\n" f) (princ (menucmd "M=$(edtime,$(getvar,TDCREATE), DD/MO/YY - HH:MM:SS)")f) (princ "\n" f) (princ "Date du dernier enregistrement : " f) (princ "\n" f) (princ (menucmd "M=$(edtime,$(getvar,tdupdate), DD/MO/YY - HH:MM:SS)")f) (princ "\n" f) (princ "Temps passé :" f) (princ "\n" f) (princ (menucmd "M=$(edtime,$(getvar,tdindwg), HH:MM)")f) (princ "\n" f) (princ "Présentations :" f) (princ "\n" f) (princ (layoutlist) f) (close f) (princ "\nFin du traitement.") (princ (strcat "\nLe fichier d'information se nomme: " (getvar "dwgname") ".CTL")) (princ) (princ "\n==> DATEAGU") (princ) ) Et voici le contenu du fichier (.ctl) construit par le LISP : Fichier dessin: Relevé du 9-03-06.dwg Taille : 1723126 Date de création : 24/10/05 - 14:57:35 Date du dernier enregistrement : 16/03/06 - 10:33:13 Temps passé : 07:57 Présentations : (Layout1 Présentation1 Présentation2 Présentation3) Maintenant, je cherche à faire le traitement automatique par Excel. Je vois que ce n'est pas aussi simple que je ne le pensais. Merci à vous pour cette étape en tout cas. Cordialement Wallas

Bonjour, J'ai environ 900 fichiers concernant un projet. On me demande de faire le listing de ce projet en ayant pour chaque fichier la date de création, la date de dernière modification, le nom des présentations et le temps passé (enregistré par Autocad). Pour cela, j'ai suivi les conseils donnés sur ce forum : 1 - utiliser un listeur de répertoire type PCCATALOG 2 - mettre cette liste sous EXCEL 3 - réaliser un LISP sous AUTOCAD me permettant d'extraire les données recherchées 4 - lancer depuis EXCEL un traitement pour chaque fichier a) ouverture du fichier par AUTOCAD b) execution du lisp c) fermeture du fichier AUTOCAD cela crée à chaque fichier .dwg un fichier qui porte le meme nom avec une extension supplémentaire .ctl dans le meme répertoire que le fichier .dwg 5 - lancer depuis EXCEL un traitement pour chaque fichier crée afin de traiter le contenu et de l'intégrer dans le tableau excel Pour information, voici le code LISP que j'ai fait : (defun c:dateagu () (setvar "cmdecho" 0) (princ "\nTraitement en cours...") (setq f (open (strcat (getvar "dwgprefix")(getvar "dwgname") ".ctl") "w")) (princ "Fichier dessin: " f) (princ "\n" f) (princ (getvar "dwgname") f) (princ "\n" f) (princ "Taille :" f) (princ "\n" f) (princ (vl-file-size (strcat (getvar "dwgprefix")(getvar "dwgname"))) f) (princ "\n" f) (princ "Date de création : " f) (princ "\n" f) (princ (menucmd "M=$(edtime,$(getvar,TDCREATE), DD/MO/YY - HH:MM:SS)")f) (princ "\n" f) (princ "Date du dernier enregistrement : " f) (princ "\n" f) (princ (menucmd "M=$(edtime,$(getvar,tdupdate), DD/MO/YY - HH:MM:SS)")f) (princ "\n" f) (princ "Temps passé :" f) (princ "\n" f) (princ (menucmd "M=$(edtime,$(getvar,tdindwg), HH:MM)")f) (princ "\n" f) (princ "Présentations :" f) (princ "\n" f) (princ (layoutlist) f) (close f) (princ "\nFin du traitement.") (princ (strcat "\nLe fichier d'information se nomme: " (getvar "dwgname") ".CTL")) (princ) (princ "\n==> DATEAGU") (princ) ) Et voici le contenu du fichier (.ctl) construit par le LISP : Fichier dessin: Relevé du 9-03-06.dwg Taille : 1723126 Date de création : 24/10/05 - 14:57:35 Date du dernier enregistrement : 16/03/06 - 10:33:13 Temps passé : 07:57 Présentations : (Layout1 Présentation1 Présentation2 Présentation3) Merci de toute l'aide que vous pourriez m'apporter pour faire avancer tout ou partie de ce projet. Si par ailleurs, vous avez d'autres solutions, je veux bien en être informé afin d'en explorer les pistes. Cordialement Wallas

Bonjour, Apreès de multiples essais, je suis enfin arrivé à faire un lisp correct. Par contre, ce que je croyais facile sous excel, l'ai finalement pas si simple. Je reviens vers vous LUDWING, pour savoir comment faire un script sous excel qui à chaque ligne du tableau excel contenant le CHEMIN et le NOM d'un fichier DWG, lance l'ouverture du fichier DWG, puis la commande du LISP, et enfin la fermeture du fichier DWG. Merci

Bonjour J'ai étudié vos réponses. Je maitrise suffisamment Excel pour faire de la gestion dedans. Par contre, je débute en LISP Voici le code que j'ai fait à l'aide d'exemples [surligneur] (defun c:dateagu () (setvar "cmdecho" 0) (princ "\nTraitement en cours...") (setq f (open (strcat (getvar "dwgname") ".ctl") "w")) (princ "Fichier dessin: " f) (princ (getvar "dwgname") f) (princ "\n" f) (princ "Taille : " f) (princ (getvar "vl-file-size") f) (princ "\n" f) (princ "Date de création : " f) (princ (getvar "TDCREATE") f) (princ "\n" f) (princ "Date du dernier enregistrement : " f) (princ (getvar "TDUPDATE") f) (princ "\n" f) (princ "Temps passé :" f) (princ (getvar "tdindwg") f) (princ "\n" f) (princ "Présentations :" f) (princ (getvar "layoutlist") f) (princ "\n" f) (close f) (princ "\nFin du traitement.") (princ (strcat "\nLe fichier d'information se nomme: " (getvar "dwgname") ".CTL")) (princ) (princ "\n==> DATEAGU") (princ) ) [/surligneur] et voici le résultat [surligneur]Fichier dessin: Relevé du 9-03-06.dwg Taille : nil Date de création : 2.45367e+006 Date du dernier enregistrement : 2.4538e+006 Temps passé :0.173179 Présentations :nil [/surligneur] Pourriez-vous m'aider sur les formats de dates ? et sur les extraits des présentations ? et éventuellement sur les tailles de fichiers avec la commandes vf-file-size ? Merci Cordialement

Pour faire au message précédent, je souhaiterai aussi récupérer le nom des présentations si possible Merci Cordialement

Bonjour à tous, J'ai un dossier avec environ 1000 fichiers DWG. Je souhaite en obtenir un listing comprenant : - le nom du fichier - la taille du fichier - la date de création - la date de dernière ouverture - le temps passé (temps d'ouverture du fichier) - éventuellement d'autres éléments s'ils y en a (comme les fichiers en XREFS) Merci de m'indiquer la démarche à suivre ou une application permettant de faire se travail. Cordialement

Bonjour Dilack Je suis aussi intéressé par ces fichiers xls d'hydraulique. Pourrais-tu me les filer au mail suivant : aguibout@abscis.fr Merci d'avance. Cordialement