DWG (Cadastre 2D) de 730 Mo = OK

[lecrabe]

Objet: DWG (Cadastre 2D) de 730 Mo = OK

 

Hello

 

Cette annee 2019 je joue avec des DWGs 2D enormes !

 

Apres un DWG 2D de 450 Mo :

http://cadxp.com/topic/48284-dwg-de-450-mo-ok/page__pid__289071

 

Ce DWG de 730 Mo est constitue de 4 calques / couches

sur le Depart 29 en Lambert 93 depuis les SHPs de Etalab :

https://cadastre.data.gouv.fr/data/etalab-cadastre/2019-10-01/shp/departements/29/

 

- Commune = 361

- Section = 6 221

- Parcelle = 1 633 667

- Batiment = 849 079

 

NOTE : on a un "certain" nombre de ODs MAP sur toutes ces Polylignes 2D closes ...

 

Bien entendu il faut un PC avec 16 Go Ram pour pouvoir travailler ...

MAIS en fait 24/32 Go s averent vite indispensables !?

 

Les SHPs de Etalab ne sont pas lisibles en l'Etat par AutoCAD MAP,

Donc je les ai re-enregistres en SHP avec QGIS ...

Ou bien re-enregistres en SHP par IGNMap ...

 

 

Bye, lecrabe "triste"

[nG! Hebus]

Cette année sera l'année de la démesure ou ne sera pas :P

[lecrabe]

Hello

 

Cette semaine j ai travaille sur le meme type de DWG 2D :

TOUT de Departement de l Aveyron (12) = 530 Mo :

Communes, Sections, Parcelles, Batiments

avec de nombreuses ODs de MAP sur ces Polygones ...

 

Bien entendu ce DWG a ete sauvegarde avec les Options d Indexation : Calque et Espace ...

 

ET je trouve que les Requetes de MAP sur le groupe de dessins pour extraire tel ou tel partie de ce GROS DWG sont RAPIDEs !!

 

NOTE : DWG de 530 Mo (Aveyron - 12) ou DWG de 730 Mo (Finistere - 29) : les temps de reponses sont proches !?

 

LA SANTE (Stay Safe), Bye, le crabe "triste"

Automne 2020, la retraite

[bonuscad]

Alors certes l'ensemble de mes fichiers font aussi environ 600Mo, mais à la différence de toi je ne met pas l'ensemble dans un seul fichier, je procède différemment:

Je fais un DWG par commune, tous placés dans un même dossier.

Et là j'ai un gabarit qui se présente comme suit:

http://pix.toile-libre.org/upload/thumb/1593772744.png

Dans ce fichier ouvert, chaque utilisateur en réseau peut utiliser la routine suivante pour extraire (requêter) la commune qui l’intéresse.

;; DirBox (Patrick_35)
;; retourne le chemin complet du dossier spécifié
;;
;; Arguments
;; Message : le message à afficher dans la boite de dialogue
;; Chemin : le chemin du répertoire source
;; Drapeau : la somme des codes binaires suivants
;;
;; Valeur du Drapeau
;; 0 = Valeur par défaut
;; 1 = BIF_RETURNONLYFSDIRS = Seulement les fichiers système
;; 2 = BIF_DONTGOBELOWDOMAIN = Interdit d'explorer en dehors du domaine
;; 4 = BIF_STATUSTEXT = Inclure un secteur de statut. La fonction de rappel de service peut placer le texte de statut en envoyant des messages à la zone de dialogue. Ce drapeau n'est pas soutenu quand BIF_NEWDIALOGSTYLE est indiqué.
;; 8 = BIF_RETURNFSANCESTORS = Seulement les sous Dossiers
;; 16 = BIF_EDITBOX = Inclure une commande d'édition dans la zone de dialogue
;; 32 = BIF_VALIDATE = Verifie si l'utilisateur dactylographie un nom inadmissible dans la boîte d'édition
;; 512 = BIF_NONEWFOLDERBUTTON = Ne pas inclure le bouton Créer un nouveau dossier
;; 4096 = BIF_BROWSEFORCOMPUTER = Autorise à parcourir le réseau
;; 8192 = BIF_BROWSEFORPRINTER = Seulement le choix d'une imprimante
;; 16384 = BIF_BROWSEINCLUDEFILES = Montre tout
;; = BIF_BROWSEINCLUDEURLS = Montrer les raccourcis, Les drapeaux BIF_USENEWUI et de BIF_BROWSEINCLUDEFILES doivent également être placés
;; = BIF_NEWDIALOGSTYLE = Employer la nouvelle interface utilisateur
;; = BIF_NOTRANSLATETARGETS = Quand l'article choisi est un raccourci, renvoyer le PIDL du raccourci lui-même plutôt que sa cible.
;; = BIF_SHAREABLE = Peut montrer les ressources en commun sur les systèmes à distance. Le drapeau de BIF_NEWDIALOGSTYLE doit également être placé.
;; = BIF_UAHINT = Une fois combiné avec BIF_NEWDIALOGSTYLE, ajoute un conseil d'utilisation à la zone de dialogue au lieu de la boîte d'édition. BIF_EDITBOX dépasse ce drapeau.
;; = BIF_USENEWUI = Employer la nouvelle interface utilisateur, y compris une boîte d'édition
(defun DirBox (message chemin drapeau / rep sh)
 (setq sh (vlax-create-object "Shell.Application"))
 (if (setq
   	rep (vlax-invoke sh 'browseforfolder 0 Message Drapeau Chemin)
 	)
(setq rep (vlax-get-property (vlax-get-property rep 'self) 'path))
(setq rep nil)
 )
 (vlax-release-object sh)
 rep
)
(defun c:BD_CADASTRE ( / ent_text dxf_ent key obj_sel ename com_name com_insee)
; (setvar "LIMCHECK" 0)
; (setvar "LIMMIN" '(760000.0 6345000.0))
; (setvar "LIMMAX" '(855000.0 6485000.0))
 (setvar "AUNITS" 0)
 (setvar "ANGDIR" 0)
 (setvar "ANGBASE" 0.0)
 (setvar "LUNITS" 2)
 (setvar "MEASUREMENT" 1)
 (setvar "MEASUREINIT" 1)
 (if (not (member "CADASTRE" (mapcar 'car (ade_aliasgetlist))))
(ade_aliasadd "CADASTRE" (dirbox "Designez le chemin pour l'alias CADASTRE" "" (+ 4096 512)))
 )
 (setq ent_text
(entmakex
 	(list
   	(cons 0 "MTEXT")
   	(cons 100 "AcDbEntity")
   	(cons 100 "AcDbMText")
   	(cons 1 "")
   	(cons 10 (trans (getvar "VIEWCTR") 0 1))
   	(cons 40 (/ (getvar "VIEWSIZE") 75.0));
   	(cons 50 (- 0 (getvar "VIEWTWIST")))
   	(cons 62 250)
   	(cons 71 7)
   	(cons 72 5)
   	(cons 90 1)
   	(cons 63 255)
   	(cons 45 1.5)
 	)
)
dxf_ent (entget ent_text)
 )
 (while (and (setq key (grread T 4 0)) (/= (car key) 3))
(cond
 	((eq (car key) 5)
   	(setq obj_sel (nentselp (cadr key)))
   	(cond
     	(obj_sel
       	(if (eq (type (car (last obj_sel))) 'ENAME)
         	(setq ename (car (last obj_sel)))
         	(setq ename (car obj_sel))
       	)
       	(cond
         	((eq (cdr (assoc 0 (entget ename))) "MPOLYGON")
           	(setq
             	com_name (ade_odgetfield ename "COMMUNES" "COMMUNE" 0)
             	com_insee (strcat "0" (itoa (ade_odgetfield ename "COMMUNES" "CODE_INSEE" 0)))
             	dxf_ent (subst (cons 10 (trans (cadr key) 1 0)) (assoc 10 dxf_ent) dxf_ent)
             	dxf_ent (subst (cons 1 (strcat "{\\fArial;" com_name "}" )) (assoc 1 dxf_ent) dxf_ent)
             	dxf_ent (subst (cons 40 (/ (getvar "VIEWSIZE") 75.0)) (assoc 40 dxf_ent) dxf_ent)
           	)
           	(entmod dxf_ent)
         	)
       	)
     	)
   	)
 	)
)
 )
 (cond
((eq (car key) 3)
 	(entdel ent_text)
 	(setq dwg_id (ade_dwggetid (strcat "CADASTRE:\\com-" com_insee ".dwg")))
 	(ade_dwgactivate dwg_id)
 	(ade_qryclear)
 	(ade_qrysetaltprop T)
 	(ade_qrysettype "draw")
 	(ade_qrydefine '("" "" "" "Property" ("objtype" "=" "MPOLYGON")""))
 	(ade_altpdefine "TextObject" '(("TextValue" . ":numero@cadastre-07-parcelles")("Justify" . "_CENTER")("InsPt" . ".LABELPT")("Style" . "Standard")("Height" . "2.5")("Rotation" . "0.0")("Layer" . "PARCELLES")("Color" . "142")))
 	(ade_altpdefine "TextObject" '(("TextValue" . ":nom@cadastre-07-lieux_dits")("Justify" . "_CENTER")("InsPt" . ".LABELPT")("Style" . "Standard")("Height" . "7.5")("Rotation" . "0.0")("Layer" . "LIEUX-DITS")("Color" . "106")))
 	(ade_altpdefine "TextObject" '(("TextValue" . ":code@cadastre-07-sections")("Justify" . "_CENTER")("InsPt" . ".LABELPT")("Style" . "Standard")("Height" . "100")("Rotation" . "0.0")("Layer" . "SECTIONS")("Color" . "12")))
 	(ade_qryexecute)
 	(command "_.POLYDISPLAY" "_Edge" "_.regenall")
)
 )
 (prin1)
)

Dès lors l'utilisateur n'as plus qu'a "balader" sa souris pour voir le nom de la commune, et dès que c'est celle qu'il veut, il clique!

http://pix.toile-libre.org/upload/thumb/1593773385.png

 

et la requête est effectuée...

http://pix.toile-libre.org/upload/img/1593774463.png

 

TOUT CECI SANS AVOIR UNE GROSSE MACHINE, par exemple avec un i5 avec 8 Go de Ram, ça passe très bien!

[lecrabe]

Hello Bruno

 

Bien sur que l IDEAL c d avoir UN DWG par Commune !

 

Car ainsi deja (sans un quelconque Lisp) on peut mettre manuellement dans le groupe de dessins

que les 5 / 10 / 20 communes de la zone concernee ...

Et faire des Requetes sur le groupe de dessins de MAP ...

 

Et le tout sur un "petit" PC ...

 

BRAVO pour ton Lisp Ardechois !!

 

SI EN PLUS, on a un Lisp qui fait le boulot "de choix des communes" par un simple CLIC,

C TIP-TOP !!

 

Neanmoins aujourd'hui avec AutoCAD / ACAD MAP / ACAD XXXX,

avoir 16 Go Ram, C FORTEMENT Conseille !

 

LA SANTE (Stay Safe), Bye, le crabe "triste"

Automne 2020, la retraite

[bonuscad]

 

Neanmoins aujourd'hui avec AutoCAD / ACAD MAP / ACAD XXXX,

avoir 16 Go Ram, C FORTEMENT Conseille !

 

 

Je ne te cache pas que pour établir toutes les communes je l'ai fais sur ne machine conséquente (intel Core i7 3.60Ghz avec 16.0 Go, NVDIA Quadro P2000, pas de SSD, donc sans plus!...) un bon script me l'a constitué en une bonne demi-journée/journée sans intervention (conversion/importation ceci fichier par fichier)

Mais une fois ceci fait, exploiter la base (si on se contente de quelques communes au + environ 5) ça fonctionne très bien avec une machine peu puissante. Après plus on en requête plus on mettra la machine à genoux, c'est sûr !....

 

Tout ça pour dire que si on est un peu "bourrin" (se "trimbaler" un SEUL fichier de 700Mo) il faut une excellente machine mais si on s'organise bien une machine convenable suffit et qu'au final on s'y retrouve car on gagne en fluidité et réactivité lors de l'exploitation des données.

Donc certes c'est un exploit, mais j'adhère pas à cette méthode, cela revient un peu au même que ceux qui exploitent des dessins complets sans utiliser aucun Xref

[lecrabe]

Hello Bruno

 

Je suis 100% OK avec toi ! ... Et je ne suis pas un "bourrin" !

 

De plus mes 2 PCs avec 32 Go Ram n'ont pas de SSD/M2 ...

Donc si je trouve que c est DEJA RAPIDE de requeter un ENORME DWG de 400-800 Mo avec un DD classique ...

 

J imagine bien que avec un SSD/M2 RECENT & RAPIDE (sur 1 ENORME DWG GLOBAL ou sur les centaines de DWGs d un Departement) cela doit etre VIF comme l Eclair !?

 

A condition d avoir sauvegarde les DWGs avec l Option : Calque + Espace !

Et que les DWGs soient sur le SSD/M2

 

LA SANTE (Stay Safe), Bye, le crabe "triste"

Automne 2020, la retraite