---

So, wehe nun lacht jemand ;-)

Ich habe Regionen erzeugt, wie bekomme ich mittels VBA die Werte wie Umfang oder Umfangfläche heraus.
zB in einer Decke gibt es Öffnungen und ich muss nun die Schalungsfläche der Decke berechnen. Mein Gedanke: mit Regionen und Differenz ein Decken-Region erzeugen. Das klappt auch super und nu, wie bekomme ich die Werte heraus. Mit folgendem Code spiele ich herum:

Code:

---

Function regioWerte()
    Dim VarRegio As Variant, regio As AcadRegion
    Dim objekt As Object
    Dim promt As String
    Dim pickedpoint As Variant
   
    promt = "Region wählen: "
    ThisDrawing.Utility.GetEntity regio, pickedpoint, promt
    MsgBox regio.Area
   
   
End Function
Sub test1()
    Dim testi
    testi = regioWerte
End Sub

Tom

---

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

---

Hallo Tom,

Den Wert des Umfangs findest du unter regio.perimeter.

du sollst vielleicht mal deinen Code Schrittweise debuggen und einen Blick ins Lokal-Fenster werfen. Dort kannst du die Eigenschaften der Objekte / Variablen anschauen und bei regio wirst du "Perimeter" finden. Dieser Wert gibt dir den Kompletten Umfang an(Also auch die Längen von deinen "rausgeschnittenen" Fläachen).

Gruß, Carsten

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

---

Vielen Dank Carsten!

bin schon ganz gedebubbuged 

Einen schönen Abend noch
Tom

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