GetPolyArea.vbs will report the area of a selected polygon. This will report both Closed and Open Items as shown in the Dialog ("Closed Area =" vs "Open Area ="). This will report on any Grfx items, regardless of whether or not it is a closed polygon and considers only the vertices and not the width (Beware of GIGO). The guaranteed area is for closed polygons.

Enhanced to allow user to set the Precision (Decimal Places) by modifying the following line in the script:

Const PRECISION=6

Also included notation of negative area results in the GetPolyArea Results dialog.

Hello Al,

I would like to use part of your script (math functions) to write some other scripts, but I found that for some shapes I get negative area.

For example:

Do you know maybe why it is so? Why I get minus?

Will be enough and will it be ok if I just add Abs() at te end of GetPolyArea function, so instead of GetPolyArea=mainbody+arcs (line 260 in your script) I would have GetPolyArea=Abs(mainbody+arcs)

What do you think about this?

Thanks in advance

Best regards

Piotr