-
Qui est en ligne 2 membres, 0 anonyme, 57 invités (Afficher la liste complète)
AutoCAD Civil
Logiciel d'ingénierie civile de la société Autodesk.
319 sujets dans ce forum
-
- 2 réponses
- 4,7 k vues
-
- 10 réponses
- 6 k vues
-
- 0 réponse
- 4 k vues
-
- 5 réponses
- 5,6 k vues
-
- 2 réponses
- 4,7 k vues
-
- 3 réponses
- 5,8 k vues
-
- 0 réponse
- 3,7 k vues
-
- 0 réponse
- 3,6 k vues
-
- 0 réponse
- 3,2 k vues
-
- 2 réponses
- 4,8 k vues
-
- 4 réponses
- 5,2 k vues
-
- 1 réponse
- 3,5 k vues
-
- 4 réponses
- 4 k vues
-
- 10 réponses
- 5,6 k vues
-
- 17 réponses
- 5 k vues
-
- 5 réponses
- 3,3 k vues
-
- 1 réponse
- 2,6 k vues
-
- 4 réponses
- 3,9 k vues
-
- 1 réponse
- 2,8 k vues
-
- 5 réponses
- 4 k vues
-
- 1 réponse
- 2,8 k vues
-
- 0 réponse
- 2,6 k vues
-
- 3 réponses
- 2,9 k vues
-
- 0 réponse
- 2,2 k vues
-
- 0 réponse
- 2,6 k vues
-
Statistiques des forums
-
Total des sujets48,7 k
-
Total des messages295,3 k
-
-
Sujets
-
-
Messages
-
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) ) -
Par Déméter_33 · Posté(e)
Bonjour, Aidé d'un code trouvé sur ce même site, je tente de l'adapter à mon besoin. Le but de ce lisp est de fabriquer un fichier.csv contenant des informations de longueurs et de surface et de positionnement (centroïde) de polylignes fermées et non fermées dans un fichier, avec d'autres informations sur ces objets (calque, ID). Sauf que je rencontre un problème lors de la transformation d'un objet VLA en région VLA (je ne sais même pas trop si c'est bien comme ca que ca marche...) Le message d'erreur dans la console est le suivant: ; erreur: type d'argument incorrect: VLA-OBJECT nil Je m'en remet à vos suggestions. mult-info_po2CSV.lsp -
Coucou. J'ai revu ce matin quelqu'un qui devrait correspondre ami... c'était dans le miroir. Ah, j'enrage devant l'addition des ans. Amitiés -
Bonjour, Suite à l'accroissement de la charge de travail, je suis à la recherche d'un PROJETEUR VRD en GUYANE, voire d'un FREELANCE pour missions ponctuelles. N'hésitez pas à me contacter par MP pour en discuter. -
Par thierry.garré · Posté(e)
Bonjour, Pourriez vous , s'il vous plait prendre une minute pour répondre a cette question Merci d'avance
-
-
Sujets
-
