Créer un point topo avec altitude interpolée sur Covadis

CAD-Question · November 1, 2014, 12:00am

Comment créer efficacement des points topographiques intermédiaires avec une altitude interpolée entre deux points existants sur Covadis ? L’objectif est de densifier un levé topographique pour améliorer la modélisation d’un MNT, notamment pour définir des lignes de rupture sur des courbes de voirie.

CAD-Reponse · November 1, 2014, 12:00am

Pour créer des points intermédiaires avec une altitude interpolée sur Covadis, plusieurs méthodes existent, allant de la commande dédiée à des workflows plus complets ou des scripts personnalisés. Voici les solutions les plus efficaces.

Méthode 1 : Commande d’interpolation linéaire 3D (Recommandée)

Covadis dispose d’une fonction spécifique pour cette tâche, idéale pour ajouter rapidement un ou plusieurs points.

Lancer la commande : Allez dans le menu Covadis 3D > Construction 3D > Interpolation linéaires 3D.
Sélectionner le premier point : Cliquez sur le premier bloc de point topographique (point de départ).
Sélectionner le second point : Cliquez sur le second bloc de point topographique (point d’arrivée).
Définir la position : Covadis vous demandera de spécifier la position du nouveau point. Vous pouvez soit cliquer à l’endroit désiré entre les deux points, soit entrer une distance par rapport au premier point.
Validation : Le logiciel insère automatiquement un nouveau bloc de point topographique avec une altitude calculée par interpolation linéaire entre les deux points de référence.

Méthode 2 : Utilisation des Polylignes 3D pour les lignes de rupture

Cette approche est une bonne pratique pour construire des lignes de rupture complètes (bordures, talus) avant de générer le MNT.

Dessiner en 2D : Tracez une polyligne 2D (commande POLYLIGN) qui passe par les points topographiques existants. Vous pouvez utiliser des arcs pour représenter les courbes.
Convertir en 3D : Utilisez la commande Covadis 3D > Construction 3D > Transformation 2D -> 3D.
- Sélectionnez votre polyligne 2D.
- La commande va transformer la polyligne 2D en polyligne 3D. Les sommets qui coïncident avec des points topographiques existants prendront leur altitude (Z).
- Les sommets intermédiaires et les points issus de la discrétisation des arcs auront leur altitude interpolée linéairement entre les sommets connus.
Utilisation dans le MNT : Cette polyligne 3D peut être directement utilisée comme ligne de rupture dans le calcul du MNT, sans avoir besoin de créer des points topographiques intermédiaires.

Méthode 3 : Solution par script AutoLISP (Personnalisation)

Pour un besoin récurrent, un script AutoLISP peut automatiser la création d’un point interpolé à un emplacement cliqué.

Créer le fichier LISP : Copiez le code ci-dessous dans un fichier texte et enregistrez-le avec l’extension .lsp (par exemple ptmoy.lsp).

(defun modif_attrib (E ETIQ VALEUR / LATT ATT)
  (if (= (type E) 'ENAME)
    (setq E (vlax-ename->vla-object E))
  )
  (setq LATT (vlax-invoke E 'getAttributes))
  (foreach ATT LATT
    (if (= (strcase (vla-get-TagString ATT)) (strcase ETIQ))
      (vla-put-TextString ATT VALEUR)
    )
  )
)

(defun c:ptmoy ()
  (princ "\nSélectionnez les 2 points topo de référence puis cliquez l'emplacement du nouveau point.")
  (setq e1 (car (nentsel "\n1er attribut d'altitude : ")))
  (setq e2 (car (nentsel "\n2ème attribut d'altitude : ")))

  (setq b1 (cdr (assoc 330 (entget e1))))
  (setq b2 (cdr (assoc 330 (entget e2))))

  (setq PT1 (cdr (assoc 10 (entget b1))))
  (setq PT2 (cdr (assoc 10 (entget b2))))

  (setq PT1 (list (car PT1) (cadr PT1) 0.0))
  (setq PT2 (list (car PT2) (cadr PT2) 0.0))

  (setq alt1 (distof (cdr (assoc 1 (entget e1)))))
  (setq alt2 (distof (cdr (assoc 1 (entget e2)))))

  (while (setq PT3 (getpoint "\nEntrer un nouveau point (ou Entrée pour finir) : "))
    (setq PT3 (list (car PT3) (cadr PT3) 0.0))

    (setq d1 (distance PT1 PT3))
    (setq d2 (distance PT2 PT3))
    (setq d (+ d1 d2))
    (setq alt3 (+ (* (/ (- alt2 alt1) d) d1) alt1))

    (setvar "ATTREQ" 0)
    (command "_insert" (cdr (assoc 2 (entget b1))) "_non" (list (car PT3) (cadr PT3) alt3) "1" "1" "0")
    (setvar "ATTREQ" 1)
    (modif_attrib (entlast) (cdr (assoc 2 (entget e1))) (rtos alt3 2 3))
  )
  (princ)
)

Charger le LISP : Utilisez la commande APPLOAD pour charger le fichier ptmoy.lsp dans votre session AutoCAD/Covadis.
Exécuter la commande : Tapez PTMOY dans la ligne de commande.
- Cliquez sur l’attribut d’altitude du premier point.
- Cliquez sur l’attribut d’altitude du second point.
- Cliquez à l’emplacement où vous souhaitez insérer le nouveau point. Le script le créera avec l’altitude interpolée et vous permettra d’en placer d’autres.