Classement

Thème foncé, Ruban et palettes noirs. Un chapeau, noir, un costume, noir, une paire de lunettes, noires. Puis mon frère vient me chercher dans une voiture de flic, le jour de ma sortie de prison ...

Bonjour, Il me reste 55s sur la minute que tu réclame ... je te les offres 🙂

Bonjour, Une simplification du code pour toi. (vl-load-com) (defun c:mult-info_po2CSV ( / js file_name cle f_open key_sep str_sep oldim lst_id lst_length lst_surf lst_closed lst_centroid lst_layer lst_width n) (princ "\nSélectionner les polylignes optimisées.") (while (null (setq js (ssget '((0 . "LWPOLYLINE"))))) (princ "\nSélection vide, ou ce ne sont pas des LWPOLYLINE!") ) ;pour déterminer la précision des décimales que tu veux inscrire dans le fichier (command "_.ddunits" (while (not (zerop (getvar "cmdactive"))) (command pause) ) ) (setq file_name (getfiled "Nom du fichier a créer ?: " (strcat (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 3)) "csv") "csv" 37)) (if (null file_name) (exit)) (if (findfile file_name) (progn (prompt "\nFichier éxiste déjà!") (initget "Ajoute Remplace annUler _Add Replace Undo") (setq cle (getkword "\nDonnées dans fichier? [Ajouter/Remplacer/annUler] <R>: ") ) (cond ((eq cle "Add") (setq cle "a") ) ((or (eq cle "Replace") (eq cle ())) (setq cle "w") ) (T (exit)) ) (setq f_open (open file_name cle)) ) (setq f_open (open file_name "w")) ) (initget "Espace Virgule Point-virgule Tabulation _SPace Comma SEmicolon Tabulation") (setq key_sep (getkword "\nSéparateur [Espace/Virgule/Point-virgule/Tabulation]? <Point-virgule>: ")) (cond ((eq key_sep "SPpace") (setq str_sep " ")) ((eq key_sep "Comma") (setq str_sep ",")) ((eq key_sep "Tabulation") (setq str_sep "\t")) (T (setq str_sep ";")) ) (setq oldim (getvar "dimzin")) ; pour écrire tous les zéro, même ceux qui se révèlent inutiles. (setvar "dimzin" 0) (setq lst_id '() lst_length '() lst_surf '() lst_closed '() lst_centroid '() lst_layer '() lst_width '() ) (repeat (setq n (sslength js)) (setq ename (ssname js (setq n (1- n))) obj (vlax-ename->vla-object ename) lst_id (cons (strcat "'" (vlax-get obj 'Handle)) lst_id) lst_length (cons (vlax-get obj 'Length) lst_length) lst_surf (cons (vlax-get obj 'Area) lst_surf) lst_closed (cons (vlax-get obj 'Closed) lst_closed) lst_centroid (cons (osnap (vlax-curve-getStartPoint obj) "gcen") lst_centroid) lst_layer (cons (vlax-get obj 'Layer) lst_layer) lst_width (cons (vlax-get obj 'ConstantWidth) lst_width) ) ) (foreach n (reverse (mapcar 'list (append (mapcar '(lambda (x) (strcat x str_sep)) lst_id) (list (strcat "Handle" str_sep))) (append (mapcar '(lambda (x) (strcat (rtos x) str_sep)) lst_length) (list (strcat "Longueur" str_sep))) (append (mapcar '(lambda (x) (strcat (rtos x) str_sep)) lst_surf) (list (strcat "Surface" str_sep))) (append (mapcar '(lambda (x) (strcat (itoa x) str_sep)) lst_closed) (list (strcat "Fermée" str_sep))) (append (mapcar '(lambda (x) (strcat (if x (rtos x) "") str_sep)) (mapcar 'car lst_centroid)) (list (strcat "X Centroïd" str_sep))) (append (mapcar '(lambda (x) (strcat (if x (rtos x) "") str_sep)) (mapcar 'cadr lst_centroid)) (list (strcat "Y Centroïd" str_sep))) (append (mapcar '(lambda (x) (strcat x str_sep)) lst_layer) (list (strcat "Calque" str_sep))) (append (mapcar '(lambda (x) (strcat (rtos x) str_sep)) lst_width) (list (strcat "Largeur" str_sep))) ) ) (write-line (apply 'strcat n) f_open) ) (close f_open) (setvar "dimzin" oldim) (prin1) )

Hello @Maxx29 et @Guillaume Berson Telechargement : grosfi.ch/VX4cnB9kkzy Le fichier sera DISPO 14 jours au telechargement ... Voici un ancien Support de Cours (440 pages) AutoCAD 2018 French par INFRATECH CE Support etait DISPO et FREE au telechargement il y a qq annees ... Je pense que 90% de ce Support s applique a un AutoCAD CIVIL 202X moderne !? Qu en pensent nos Maitres @Guillaume Berson et @Vincent Fredon ? Bon WE, Bye, lecrabe

Autre information également, de nombreux tutoriels sont disponibles dans l'aide de Civil 3D (accessible via la touche F1 ou bien en ligne via ce lien) avec de très nombreux fichiers exemples et démonstrations de manipulation.

Bonjour @Maxx29, en terme de chaine Youtube, je peux vous conseiller la chaine Infrastructure France d'Autodesk ainsi que le contenu de Jeff Bartels (en anglais). Il ne s'agit toutefois pas de formations mais plutôt de tutoriels. Pour une formation complète, je vous conseille Autodesk Civil 3D Essential par Eric Chappell disponible sur LinkedIn Learning.

Salut , ce qu'a dit lovecraft en tout petit lisp : (defun c:l2p () (setvar "peditaccept" 1) (vl-cmdf "_.pedit" "_m" (ssget) "" ) (command)(setvar "peditaccept" 0) (princ)) Autrement, j'ai un lisp fait pour changer l'épaisseur des polylignes et donc également , en les transformant , de ligne , cercle et arc et on peut toujours mettre épaisseur 0..