---

Hallo,

ich habe eine Triangulation in Civil.
Ich habe eine Menge von 2D-Polylinien, die allesamt geschlossen sind. Diese stellen Flurstücksgrenzen dar.

Gibt es eine einfache Möglichkeit mit den Board-Mitteln von Civil einen Bericht auszugeben, der folgende Inhalte ausgibt:

Nummer (oder Handle) | 2D-Fläche | 3D-Fläche
--------------------------------------------

Die 3D-Fläche ergibt quasi die Abwicklungsfläche der Oberfläche für den imaginären Fall, würde man die jeweilige Umgrenzung als weiche Grenzkante definieren.

Hat jemand eine Idee - OHNE Programmierung?

VG, Fred

------------------
Fred Tomke
Dipl.-Ing. (FH) Landespflege

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mit Parzellen kann man die 2D Flächenbeschriftung ganz gut lösen - ohne Programmierung - aber für die 3D Flächenbeschriftung eines Teilbereichs eines Horizontes/DGMs wird man wohl auf ein kleines Programm zzugrückgreifen müssen - für Mengenermittlung hätte ich sogar schon was Fertiges.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Udo,

vielen Dank für Deine Rückmeldung. Ich hätte schwören können, dass man mit Hilfe der Parzellen auch die 3D-Flächen hätte herausbekommen können. Ein Makro dazu habe ich auch. Das Problem ist, dass ich oft dazu neige, zu schnell ein Tool zu entwickeln, obwohl vieles mit Board-Mitteln bereits funktioniert.

Bei meinem Tool bin ich leider auf ein paar Defizite gestoßen. Beispielsweise wird beim Entfernen einer Grenzlinie zwar die Grenzlinie nicht mehr berechnet, aber der Name bleibt in der Liste der Grenzlinien dennoch erhalten.

Hier mal mein Beispiel.

Code:

---

(defun dgm_flaechen (/ oDGM ssAusw oTemp oBounds lstAll intCnt vlaPoly oBound oStatistic oCopy strName)
  (if (and (setq oDGM (car (entsel)))
  (setq oDGM (vlax-ename->vla-object oDGM))
  (= (vla-get-objectname oDGM) "AeccDbSurfaceTin")
  (setq ssAusw (ssget (list (cons 0 "*POLYLINE") (cons -4 "&=") (cons 70 1)))))
    (progn
      (setq oTemp (vla-copy oDGM))
      (vla-put-visible oTemp :vlax-false)
      (setq oBounds (vlax-get oTemp 'Boundaries))
      (setq lstAll nil)
      (repeat (setq intCnt (sslength ssAusw))
(setq vlaPoly (vlax-ename->vla-object (ssname ssAusw (setq intCnt (1- intCnt)))))
(setq strName (strcat "$Temp_" (itoa intCnt)))
(setq oCopy (vla-copy vlaPoly))
(setq oBound (vlax-invoke-method oBounds 'Add oCopy strName 4 :vlax-true 1.0))
(vlax-invoke oTemp 'Rebuild)
(setq oStatistic (vlax-get oTemp 'Statistics))
(setq lstAll (cons (list intCnt (vla-get-area vlaPoly) (vlax-get oStatistic 'Area3d)) lstAll))
(vlax-release-object oStatistic)
(vlax-invoke-method oBounds 'Remove strName 1)
(vlax-invoke oTemp 'Rebuild)
(vlax-release-object oBound)
(vlax-release-object oCopy)
(vlax-release-object vlaPoly)
      ); repeat

      (vlax-release-object oBounds)
      (vla-erase oTemp)
      (vlax-release-object oTemp)
      (vlax-release-object oDGM)
    ); progn
  ); if
  lstAll
); dgm_flaechen

---

VG, Fred

------------------
Fred Tomke
Dipl.-Ing. (FH) Landespflege

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP