Comment purger les nouveaux fichiers Cadastre 2018

[philous2]

Bonjour tout le monde,

 

Au boulot j'ai un soucis, on est actuellement sur certaines opérations de regénérer les nouveaux cadastres version 2018(mise à jour) commune par commune.

Pour commencer c'est un peu une galère au début car on est obligé d'assembler toutes les sections de chaque commune pour en faire un seul fichier par commune.

Ensuite nous on essaie de purger suivant un gabarit, comme couleur unique (en général 251), et limiter les nombre de calques. Au niveau des textes c'est un peu le bordel, car on a plusieurs fois(2/3) le même nom de voie "par exemple", etc....

Comment faire en plus simple ce travail de purge, réduire le nombre d'écriture en double voir triple, essayer de limiter les calques en déplaçant certaines entités (hachures bâti par exemple) vers le calque bâti, etc...

Existe-t-il un lisp qui puisse faire ce travail fastidieux et long en plus rapide et simple.

Voilà ma question du jour, en espérant avoir été assez explicite.

En espérant avoir une idée, du comment faire plus méthodiquement et en plus simple.

D'avance merci de vos éventuelles lumières très éclairées.

Phil

[vincentp010]

Salut,

 

Déjà tu pars de quels fichiers, au format DXF ou EDIGEO ?

Si tu as MAP il y a la commande "Netoyage de dessin" qui permet déjà de supprimer les entités en double.

[philous2]

Salut,

 

Déjà tu pars de quels fichiers, au format DXF ou EDIGEO ?

Si tu as MAP il y a la commande "Netoyage de dessin" qui permet déjà de supprimer les entités en double.

 

Salut,

 

Je suis sur Autocad Map 2012 et j'ai des fichiers dxf.

Je viens de regarder un peu le menu Map et la commande que tu m'as indiqué. N'allant pas très souvent dans ces menus Map en détail, je ne connaissais pas cette commande qui peut faire une partie du travail de purge que je dois exécuter. Commande qui peut -être intéressante lorsque que les entités sont superposées, sur les sections Cadaste les noms (voie par exemple) ne sont pas superposées donc pas réellement considéré en double.

Merci de ta réponse je dormirai moins bête ce soir((rires forts))

[vincentp010]

Il y a quand même des textes qui se chevauchent quand tu joins des sections.

Pour ceux qui ne se chevauchent pas, c'est compliqué d'automatiser.

 

 

Voici quelques exemples de commandes que tu peux utiliser pour le reste :

 

Effacer les entités du calque "1ZONCOMM"

(setq ss (ssget "x" (list (cons 8 "1ZONCOMM"))))
(command "_erase" ss "")

 

Changer le type de lygne du calque "3fiscline"

(command "_-layer" "_lt" "hidden" "3fiscline" "")

 

 

Hachurer les bâtiments

(setq pl (ssget "x" (list (cons 8 "3BATIDUR") (cons 70 1))))
  (if (/= pl nil) (progn
     (command "_-layer" "_m" "3BATIDUR-H" "_c" "31" "3BATIDUR-H" "")
     (setq nb (sslength pl))
     (setq nb1 0)
     (while (< nb1 nb)
        (setq ent (ssname pl nb1))
        (command "_-hatch" "_p" "SOLID" "_d" "_b" "_s" ent "" "")
        (setq nb1 (+ nb1 1))
     )
     )
)

 

 

Changer les objets du calque "1PARCELLE" au calque "3BATIDUR"

(setq ss (ssget "x" (list (cons 8 "1PARCELLE"))))
  (if (/= ss nil) (progn
     (setq nb (sslength ss))
     (setq nb1 0)
     (while (< nb1 nb)
        (setq ent (ssname ss nb1))
        (entmod (subst (cons 8 "3BATIDUR") (assoc 8 (entget ent)) (entget ent)))
        (setq nb1 (+ nb1 1))
     )
     )
)