Le portail francophone de la géomatique

Hello

1) Si tu as exporte (MAPEXPORT) en SHP (ou SDF v3 ou autre format SIG) toutes les proprietes AutoCAD necessaires et que bien sur, tu ne les a pas "bousillees" dans ArcMap alors lors de l'Import (MAPIMPORT), il faudra recuperer tous les attributs dont les fameuses proprietes AutoCAD !

2) Ensuite il faudra (dans un DWG vierge par l'utilisation du Groupe de dessins de MAP) par une requete subtile en Mode Dessiner et et en mode Modification des Proprietes, forcer les proprietes AutoCAD en fonction des champs de donnees d'objet : couleur, type de ligne, rotation, echelle, etc

Vois tu ce que je veux dire ?

GeoBye, Pat

PS: peux tu nous fournir ton DWG (suite au MAPIMPORT) ou un extrait de ton DWG avec qq objets
et surtout TOUTES les donnees d'objet necessaires ?

Hello

C bien tu es donc maintenant au Niveau II de l'utilisation des Requetes sur le groupe de dessins avec AutoCAD MAP (ou CIVIL) !

Tu as realise une Requete qui modifie N proprietes sur les objets (par exemple les Blocs)
en fonction de champs attributaires contenus dans les ODs (Object Data) de MAP

<<<<< Exemple de ce genre de Requete enregistree en externe sur le disque dur (Fichier Texte .QRY en fait)
<<<<< C une Requete Perso qui justement modifie les Proprietes des Blocs ...
<<<<< Debut >>>>>
(setq ade_cmddia_before_qry (getvar "cmddia"))
(setvar "cmddia" 0)
(mapcar 'ade_dwgdeactivate (ade_dslist))
(setq ade_tmpprefval (ade_prefgetval "ActivateDwgsOnAttach"))
(ade_prefsetval "ActivateDwgsOnAttach" T)
(setq dwg_id(ade_dsattach "C:\\USERS\\SUPERUSER\\DOCUMENTS\\M2013_BLOC_avec_OD.dwg"))
(ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval)
(ade_qryclear)
(ade_qrysettype "draw")
(ade_qrydefine '("" "" "" "Property" ("layer" "=" "ARBRE")""))
(ade_qrysetaltprop T)
(ade_altpclear)
(ade_altpdefine "Color" ":COULEUR@ACAD_PROPR")
(ade_altpdefine "Scale" ":ECHELLE@ACAD_PROPR")
(ade_altpdefine "Rotation" ":ROT@ACAD_PROPR")
(ade_altpdefine "Elevation" ":ELEV@ACAD_PROPR")
(ade_qryexecute)
(setvar "cmddia" ade_cmddia_before_qry)
<<<<< Fin >>>>>

Dans cet exemple, on dessine TOUS les Blocs du Calque "ARBRE" en modifiant/forcant a la volee leur couleur, echelle, rotation
et elevation (Altitude en Z) ... en provenance du/des dessin(s) du groupe ... (UN SEUL dessin attache au groupe ici) 

Je ne modifie pas le Calque d'Origine des Blocs sinon j'aurais force la propriete "Calque"
(ade_altpdefine "Layer" "ARBRE_PATRICE")

NOTE : malheureusement en effet, c le MEME facteur d'Echelle pour X et Y et Z = DOMMAGE !
Mais bon, je n'ai jamais eu besoin de modifier l'Echelle XYZ des Blocs de facon NON Uniforme !
SVP peux tu nous expliquer, pourquoi tu desires faire cela ?

En fait il faudrait un Progr Lisp/VLisp qui pour TOUS les blocs selectionnes, si il trouve 2/3 champs en OD (Object Data)
sur la table ACAD_PROPR (pour MON exemple) nommes par exemple : ECH_X , ECH_Y , ECH_Z (optionnel pour Z)
modifie en consequence les facteurs d'echelle X Y Z AutoCAD du Bloc !?

Rappel : tu peux "Enregistrer" en externe sous forme de fichier .QRY n'importe quelle Requete !
et pour rejouer ulterieurement une requete externe .QRY, c la commande :  ADERUNXQUERY

En "tripatouillant / preparant" de multiples fichiers .QRY subtilement (+ Fusion de N fichiers .QRY)
tu passeras au niveau III et tu en sauras autant que moi dans ce domaine !

Ainsi on peut arriver a faire (automatiser plutot) des choses assez delirantes au niveau des DWGs ...
De plus qq trucs sont possibles dans les .QRY qui ne sont pas prevus dans la "grosse" case de dialogue des requetes ...
Par exemples des tests de type > , < , <= , >= , etc sur les valeurs numeriques des ODs (Object Data) !

TRES IMPORTANT : toujours remettre a UN (si necessaire) la variable system CMDDIA apres avoir joue avec les Requetes
et surtout apres joue avec ADERUNXQUERY !!!  CMDDIA = 1

Rappel pour les objets Lineaires ou Surfaciques en Polyligne, souvent on change la Largeur des Polylignes (Forcer la Propriete "Largeur") :
(ade_altpdefine "Width" "2")   ---> Largeur des Polylignes = 2  (2 Metres sans doute)

Rappel pour les Codes de Couleur AutoCAD :
Color = 0     ---> DuBloc
Color = 256  ---> DuCalque


****** Generation de "Textes" avec Expression Lisp dans les Requetes "Dessiner" avec "Modification des proprietes" ******

Dans "Textes" / "Expression" : qq exemples de Generation des Aires/Surfaces et Longueurs/Perimetres ...

(RTOS .AREA   2 0)      ou     (RTOS .AREA 2 1)       0 / 1 decimale
(RTOS .LENGTH 2 0)    ou    (RTOS .LENGTH 2 1)     0 / 1 decimale

(STRCAT (RTOS .AREA    2 0)    " m²"  )
(STRCAT (RTOS .LENGTH  2 0)  " m"    )

Ces exemples sont des grands classiques ...

Bien sur ces Textes sont "Statiques" et si vous modifiez les objets graphiques, les Aires/Surfaces et Longueurs/Perimetres
ne sont pas remis a jour, en fait il faut les effacer et refaire passer la requete prealablement sauvegardee !


*** 2eme exemple avec Expression Lisp sur la Rotation (par exemple des Blocs/Symboles) ***

Toujours dans "Textes" / "Expression" :

( / ( * 180.0 :ROT@TEST ) 3.14159 )

Ici nous avons des Blocs/Symboles ayant un champ (de Type Reel) "ROT" dans une table OD (Object Data) "TEST"
qui contient en fait la Rotation du Bloc/Symbole en Radians et non pas en Degres !

En appliquant cette "subtile" transformation, on obtient la bonne Rotation en Degres !
Car notre dessin courant est parametre en Degres Decimaux   ( Commande: UI )


GeoBye, Pat

Hello

En effet AutoCAD travaille en Interne en RADIANS et donc il exporte les Infos de Rotation ainsi ...

Au fait pour le probleme de la Rotation en Radians, c simple a resoudre !

Il y a 2 solutions :

- Soit tu restes en Degres Decimaux et tu appliques la bonne expression Lisp du genre :
( / ( * 180.0 :ROT@TEST ) 3.14159 )
Confere la fin de mon message precedent que j'ai enrichi ...

- Soit tu fais une commande clavier UI et tu choisis "Radians"
et ce juste le temps de faire la Requete de Modification des Blocs/Symboles
Immediatement apres SVP tu reviens en "Degres decimaux"

GeoBye, Pat