Intersection Area

[giskumar]

Hi All,

 

I am having 2 Pointlists of closed polyline vertices which are partially overlaped.

Please tell me How can i calculate shape of overlapped portion from my point lists.

 

Thanks,

Kumar.

[Tharwat]

Your description is not clear at least to me , an image might be clearer to read or more details of the process that you planning to go with .

[giskumar]

Hi,

 

Please find the attached snapshot.

I would like to find the common area of two polygons(marked with circle).

 

 

Thanks,

Kumar.

[Tharwat]

Pick a point in the common area .

 

(defun c:Test (/ e ent)
 (setq e (entlast))
 (vl-cmdf "_.-boundary" pause "")
 (setq ent (entlast))
 (if (and ent (not (equal e ent)))
   (progn
     (alert
       (strcat "Total Area : "
               (rtos (vla-get-area (vlax-ename->vla-object ent)) 2)
       )
     )
     (entdel ent)
   )
 )
 (princ)
)

[giskumar]

Hi,

 

This is working fine, But for large area closed polygons boundary command is creating problems and returning irregular boundary out (when zoom to set to extends of entity).

 

Any alternate solution to avoid Zoom,Boundary problems.

 

Regards,

Kumar.

[elfert]

How about Hatching the area and get the area from the hatch?