[求助]如何获取PL线offset之后的面积？

bill165

 

Sub Ch4_OffsetPolyline()

    ' 创建多段线

    Dim plineObj As AcadLWPolyline

    Dim points(0 To 11) As Double

    points(0) = 1: points(1) = 1

    points(2) = 1: points(3) = 2

    points(4) = 2: points(5) = 2

    points(6) = 3: points(7) = 2

    points(8) = 4: points(9) = 4

    points(10) = 4: points(11) = 1

    Set plineObj = ThisDrawing.ModelSpace. _

                   AddLightWeightPolyline(points)

    plineObj.Closed = True

    ZoomAll

               

    ' 偏移多段线

    Dim offsetObj As Variant

    offsetObj = plineObj.Offset(0.25)

ZoomAll

End Sub

只找到这样的代码，但如何获得偏移之后的面积呢？请各位前辈指点一下