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

bill165 发表于 2010-10-18 20:06:00

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

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


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

查看完整版本: [求助]如何获取PL线offset之后的面积？