PLINE으로 이루어진 다각형들의 면적을 구하는 방법(VBA)

도면안에 있는 N다각형의 면적을 구하는 ACAD VBA를 다음과
같이 만들었습니다. 그런데, 아래 MsgBox에 면적이 모두 0으로 나옵니다.
Help파일을 보니, 아래와 같이 써 놓은 것 같은데,,,
어디가 잘못되었는지…ㅠㅠㅠㅠ
지도 부탁드립니다. ㅠㅠㅠ

For Each ent In ThisDrawing.ModelSpace

If ent.ObjectName = “AcDbPolyline” Then
Set objpolyline = ent

MsgBox objpolyline.Area
Else
End If

Next