---

Aussenmasse.gif

Hallo forum,

ich wähle mit der Funktion <b>SelectByPolygon</b> eine Polylinie aus. Das funktioniert auch bestens.

Jetzt möchte ich von dieser Kontur die Länge und die Breite wissen. ALso wenn man die Kontur jetzt als Fläche sieht, wie lang und wie breit das Ding ist (Bild im Anhang).

Hat jemand eine Idee, wie ich an die äußersten Kooridinaten der Kontur rankomme?

Danke schon mal

------------------
Grüse Benny

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

---

object.GetBoundingBox MinPoint, MaxPoint

Gets two points of a box enclosing the specified object.

Code:

---

Sub Example_GetBoundingBox()
    ' This example creates a line in model space. It then finds the
    ' bounding box for the line and displays the corners of the box.
   
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
    Dim lineObj As AcadLine

    ' Create the Line object in model space
    startPoint(0) = 2#: startPoint(1) = 2#: startPoint(2) = 0#
    endPoint(0) = 4#: endPoint(1) = 4#: endPoint(2) = 0#
    Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    ZoomAll
   
    Dim minExt As Variant
    Dim maxExt As Variant
   
    ' Return the bounding box for the line and return the minimum
    ' and maximum extents of the box in the minExt and maxExt variables.
    lineObj.GetBoundingBox minExt, maxExt
   
    ' Print the min and max extents
    MsgBox "The extents of the bounding box for the line are:" & vbCrLf _
        & "Min Extent: " & minExt(0) & "," & minExt(1) & "," & minExt(2) _
        & vbCrLf & "Max Extent: " & maxExt(0) & "," & maxExt(1) & "," & maxExt(2), vbInformation, "GetBoundingBox Example"
       
End Sub

---

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

Danke!!!

Das war wieder mal ne Superfrage von mir...

Zu blöd die Hilfe zu öffnen!!

Ist halt doch schon Freitag!!

Nochmal danke und schönes WE

------------------
Grüse Benny

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