Plocha křivky

Aplikace zobrazí plochu, kterou v DWG výkrese uzavírá zvolená křivka (polyline).

---

Attribute VB_Name = "polylineArea"
Sub polylineArea()

    Dim myDoc As FMCAD.FmcadDocument
    Dim poly As FMCAD.FmcadLWPolyline
    Dim Pt As FMCAD.FmcadPoint
    
    Set myDoc = FMCAD.FmcadApplication.ActiveDocument
    myDoc.Utility.GetEntity poly, Pt, " Select polyline: "
    MsgBox "Area: " & poly.Area
    
End Sub

---

Soubor ke stažení (zvolte "Uložit jako" pomocí pravého tlačítka myši)