Le portail francophone de la géomatique

Hello

Je suis un peu dubitatif comme Gwen ?

Que veux tu obtenir sur ton MNT 3D ?
Qq idees en vrac ...
- Un coloriage des Faces 3D en fonction de l'Altitude Z ?
- Un coloriage des Faces 3D en fonction de la Pente de la Face ?
- autre chose ?

<Humour ON>
- Un coloriage des Faces 3D en fonction du prix au m2 a cet endroit ?
<Humour OFF>

GeoBye, Pat

Hello

Tes rectangles colores montrent quoi exactement ?

Est ce tout simplement une coupe ou une vue de dessus de ta route de 10 en 10 m ou de 20 en 20 m ?

Jaune : etat de revetement/couche moyen
Orange : etat de revetement/couche fissure et/ou petits trous
Bleu : etat de revetement/couche bon
Violet : etat de revetement/couche abime et/ou trous moyens
Rouge : etat de revetement/couche endommage et/ou trous importants
etc

As tu pour chaque troncon/section une polyligne differente avec les donnees d'objets qui vont bien ?

Ou bien tu as dessine chaque rectangle avec les donnees d'objets qui vont bien ?

Ou bien chaque rectangle est en fait une 3DFace ? avec les donnees d'objets qui vont bien ?

Mais je n'ai peut etre rien compris !?

GeoBye, Pat

Bonsoir,
Si j'ai bien compris, le positionnement spatial des indices, c'est une abscisse curviligne le long de l'axe de la route. A ma connaissance, je pense qu'il n'y a pas grand chose dans MAP pour référencer ce genre de données.
J'ai bricolé un Lisp vite fait (pas d'AutoCAD sous la main pour tester, donc j'espère qu'il fonctionnera)

(vl-load-com)

(defun C:IMPABSCVAL ( / oPoly vl-oPoly sFileName sAbsc l_read sTexte PT )
  ; sélection de la polyligne
  (setq oPoly (car (entsel "\nSélectionner l'axe de la voie : ")))
  (setq vl-oPoly (vlax-ename->vla-object oPoly))

  ; sélection du ficher CSV
  (setq sFileName (getfiled "Sélection du fichier CSV des natures" (strcat (getvar "DWGPREFIX") "NATURE.CSV") "CSV" 0))
  
  ; lecture du fichier CSV
  (setq f_open (open sFileName "r"))
  (while (setq l_read (read-line f_open))
    (setq sAbsc  (substr l_read 1 (vl-string-position 59 l_read)))
    (setq l_read (substr l_read (+ 2 (vl-string-position 59 l_read))))
    (setq sTexte (substr l_read 1 (vl-string-position 59 l_read)))
    (setq PT (vlax-curve-getPointAtDist vl-oPoly (atof sAbsc)))
    (entmake (list (cons 0 "TEXT")
               (cons 8 "0")
           (cons 1 sTexte)
           (cons 7 "STANDARD")
           (cons 40 0.3)
           (cons 10 PT)
           (cons 50 0.0)))
  )
  (close f_open)
  
)
 
(alert "Taper IMPABSCVAL pour lancer la commande")

Le principe : sélectionne une polyligne, puis un fichier CSV   Abscisse;Nature   (exporté depuis excel en séparateur point virgule)
Normalement, le programme devrait dessiner un texte ayant la valeur de la nature à l'abscisse donnée le long de la polyligne.
Si tes contours sont faits, il suffit de créer une table OD avec un seul champ, puis par génération des liens en choisissant "texte délimité" et ta table OD, MAP va transférer le contenu du texte dans la donnée attributaire de la table qu'il associera à chaque polyligne fermée englobant chaque texte.
A partir de là une petite thématique en mode Hachures avec la couleur dépendant de la valeur de l'indice et le tour est joué.

Si les polygones de 20m ne sont pas faits et qu'il faut automatiser leur création, le plus rapide:
- crée un bloc contenant un trait vertical (ligne) de largeur un peu supérieur à la largeur de ta route
- commande mesurer l'axe avec ce bloc en activant l'alignement sur l'objet, puis décompose les blocs insérés, tu dois récupérer ton peigne espacé de 20m perpendiculaire à l'axe
- lance la fonction d'Ajustement au limites pour découper les bouts du peigne qui dépassent de l'enveloppe de ta route
- lance le nettoyage du dessin avec "Coupure aux intersections" pour découper l'enveloppe sur chaque peigne.
- un petit coup de topologie polygonale, puis création des polylignes fermées.

Olivier

PS: j'ai remplacé le style SIMPLEX par STANDARD pour être sûr que ça fonctionne

Dernière modification par olivier.eckmann (Thu 02 August 2012 09:46)