Keigo

Oui c'est ce que je voulais savoir quand je disais Merci pour vos réponses, je vais aller voir du coté de l'exportation mais je ne me souvient pas avoir le choix dans le choix des arrondis. Bonne journée et bonnes fêtes à tous.

Bonjour, Merci pour l'info, mais n'y à t'il pas moyen que cela apparaisse dans le panneau de propriété ? Et de pouvoir sélectionner plusieurs polylignes d'un coup (J'en ai plus de 3700 à modifier)? C'est une données que je voudrais exporter (en SHP) pour alimenter un SIG.

En fait mon fichier se compose uniquement de polylignes fermées. Chacune a une élévation (arrondis à 2 chiffres après la virgule). En revanche j'aimerai sur l'aire soit arrondis au m² près. Exemple: http://www.zimagez.com/avatar/sanstitre1231f776b3d1d67532e7ec25156ca5cb0.jpg Élévation:94.95 Aire: 10.61 Dans les propriété de la polyligne, j'aimerai avoir 11 à la place de 10.61 mais garder 94.95 dans mon élévation.

Bonjour, En vue d’un SIG, j’aurais aimé pouvoir arrondir différemment suivant les champs. Par exemple, l’élévation d’une polyligne doit être arrondie à deux chiffres après la virgule. En revanche l’air doit être arrondi au m² près. Dans « Contrôle des unités » c’est l’un ou l’autre. Est-ce possible d’avoir plusieurs choix ? Je vous remercie par avance.

Bonjour, En regardant de plus près le document de (gile) j'ai trouvé d’où venait l'erreur. J'avais tous simplement oublié de rappeler la commande "type de ligne". Merci pour l'aide.

Bonjour, @(gile): Merci pour la réponse et le tuto qui à l'air très intéressant, je regarderai plus en détail dans la semaine. Pour Visual Lisp, oui je l'utilise régulièrement. Quand je fais la manip, après avoir fait: CTRL+F9, je n'ai rien en surbrillance mais un pavé qui s’affiche avec ":ERROR-BREAK type d’argument incorrect : stringp nil" Après plusieurs essai, je pense savoir de quelle partie du LISP vient l'erreur (Dans la partie "SETQ JS2") mais pas d’où exactement. @DenisH: Bien vu, je n'avais jamais fait attention.

Bonjour, Je me suis lancé (du moins j’essaye) quand j’ai un peu de temps, dans la programmation sur Autocad. J’ai créé des programmes me permettant de travailler sur des sections cadastrales, par défaut au 1/1000ème. Je travaille en ce moment sur un LISP me permettant de changer, suivant l’échelle que je veux, mes hauteurs de textes, largeurs et échelles de polyligne. J’ai un souci et je n’arrive pas à trouver la source du problème. Voici le message d’erreur. Et le lisp en question (Dans cet exemple passer du 1/1000ème au 1/500ème) ;;**********************************ECHCAD.LSP************************************;; ;; "_UNDO" = (GETCNAME "ANNULER") (DEFUN IGC_ERREUR ( MSGXX / ) (PRINC MSGXX) (COMMAND "_UNDO" "F") (COMMAND "_UNDO" 1) (SETQ *ERROR* ANC_ERR) (SETVAR "CMDECHO" 1) (PRINC) ) ;;***********************************************************************************************************************;; (DEFUN C:ECH500 ( / JS1 JS2 JS3 COMPT OBJ HLD STYTXT TYPLI ECHLI NVECHLI NVEP EPLI1 EPLI2 ANC_ERR) (SETVAR "CMDECHO" 0) (COMMAND "_UNDO" "D") (SETQ ANC_ERR *ERROR* *ERROR* IGC_ERREUR ) (SETQ JS1 (SSGET "X" (LIST (CONS 0 "TEXT") (CONS 8 "CADASTRE-TXT") ) ) ) (PRINC (STRCAT "\N" (ITOA (SSLENGTH JS1)) " ENTITE(S) SELECTIONNE(S).")) (TERPRI) (SETQ COMPT 0) (WHILE (SETQ ENT (SSNAME JS1 COMPT)) (SETQ OBJ (ENTGET ENT) STYTXT (CDR (ASSOC 7 OBJ)) HTXT (CDR (ASSOC 40 OBJ)) ) (COND ( (WCMATCH STYTXT "PARCELLE") (SETQ HLD 0.9) (SETQ OBJ (SUBST (CONS 40 HLD) (ASSOC 40 OBJ) OBJ)) ) ) (COND ( (WCMATCH STYTXT "POLICE") (SETQ HLD 0.7) (SETQ OBJ (SUBST (CONS 40 HLD) (ASSOC 40 OBJ) OBJ)) ) ) (COND ( (WCMATCH STYTXT "SENTECAD") (SETQ HLD 1.4) (SETQ OBJ (SUBST (CONS 40 HLD) (ASSOC 40 OBJ) OBJ)) ) ) (COND ( (WCMATCH STYTXT "RUECAD") (SETQ HLD 1.50) (SETQ OBJ (SUBST (CONS 40 HLD) (ASSOC 40 OBJ) OBJ)) ) ) (COND ( (WCMATCH STYTXT "LIEUX-DITS") (SETQ HLD 2.0) (SETQ OBJ (SUBST (CONS 40 HLD) (ASSOC 40 OBJ) OBJ)) ) ) (COND ( (WCMATCH STYTXT "SECTION") (SETQ HLD 3.0) (SETQ OBJ (SUBST (CONS 40 HLD) (ASSOC 40 OBJ) OBJ)) ) ) (COND ( (WCMATCH STYTXT "COMMUNE") (SETQ HLD 4.0) (SETQ OBJ (SUBST (CONS 40 HLD) (ASSOC 40 OBJ) OBJ)) ) ) (ENTMOD OBJ) (SETQ COMPT (1+ COMPT)) ) (SETQ JS2 (SSGET "X" (LIST (CONS 6 "SECTION,LIEUX-DIT,COMMUNE1000") (CONS 8 "CADASTRE") ) ) ) (IF JS2 (PROGN (PRINC (STRCAT "\N" (ITOA (SSLENGTH JS2)) " ENTITE(S) SELECTIONNE(S).")) (TERPRI) (SETQ COMPT 0) (WHILE (SETQ ENT (SSNAME JS2 COMPT)) (SETQ OBJ (ENTGET ENT) NVEP (CDR (ASSOC 43 OBJ)) ) (COND ( (WCMATCH TYPELIGN "LIEUX-DIT") (SETQ NVEP 0.4) (SETQ OBJ (SUBST (CONS 43 NVEP) (ASSOC 43 OBJ) OBJ)) ) ) (COND ( (WCMATCH TYPELIGN "SECTION") (SETQ NVEP 0.3) (SETQ OBJ (SUBST (CONS 43 NVEP) (ASSOC 43 OBJ) OBJ)) ) ) (COND ( (WCMATCH TYPELIGN "COMMUNE1000") (SETQ NVEP 0.4) (SETQ OBJ (SUBST (CONS 43 NVEP) (ASSOC 43 OBJ) OBJ)) ) ) (ENTMOD OBJ) (SETQ COMPT (1+ COMPT)) ) ) ) (SETQ JS3 (SSGET "X" (LIST (CONS 0 "LINE,POLYLINE,LWPOLYLINE") (CONS 8 "CADASTRE") ) ) ) (IF JS3 (PROGN (COMMAND "CHANGER" JS3 "" "PR" "EC" "0.5" "" ) ) ) (COMMAND "_UNDO" "F") (SETQ *ERROR* ANC_ERR) (SETVAR "CMDECHO" 1) (PRINC) ) Je suis preneur de toutes informations pouvant résoudre le problème. Merci d'avance.