topic Re: AUTOAREA.LSP in Visual LISP, AutoLISP and General Customization Forum

AUTOAREA.LSP

Anonymous — Fri, 15 May 2015 19:39:36 GMT

Can anyone plase make this work in AutoCAD Map3D 2015 release?
It has worked fine in all previous versions of AutoCAD Map3D (prior to 2015).

;;This program will calculate the area of irregular polygons
;;by picking an area inside the polygon.

(defun C:AUTOAREA (/ ar en n num pt ss1)
   (if (not "acadapp.exp")(xload "acadapp.exp"))
   (setq n 0)
   (setq ss1 (ssadd))
   (while (setq pt (getpoint "\nSelect internal point:"))
      (bpoly pt) ;;ADS function
      (setq ss1 (ssadd (entlast) ss1))
   );;while
   (setq num (sslength ss1))
   (command ".area" "a" "e")
   (while (/= num n)
      (setq en (ssname ss1 n))
      (command en)
      (setq n (1+ n))
   );;while
   (command "" "")
   (command "erase" ss1 "")
   (command "redraw")
   (princ "\nThe area of the polygon in hectares is: ")
   (princ (cvunit (setq ar (getvar "AREA")) "SQ METER" "HECTARE"))
   (princ "\nThe area of the polygon in acres is: ")
   (princ (cvunit (setq ar (getvar "AREA")) "SQ METER" "ACRE"))

(setq ss nil)
(prin1)
);;end autoarea.lsp

Re: AUTOAREA.LSP

paullimapa — Fri, 15 May 2015 21:53:48 GMT

The problem is with AutoCAD 2015's BPoly function which goes into an endless loop instead of ending properly like previous versions.

BPoly does work properly for AutoCAD 2016 if you want to install this version instead of dealing with the BPoly bug in 2015.

Or as KentCooper has already provided a solution for this by using the Boundary command instead of relying on the BPoly function:

http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/batch-generate-closed-polylines/m-p/2593318

So you can revise your routine and use Boundary instead of BPoly:

;;This program will calculate the area of irregular polygons
;;by picking an area inside the polygon.

(defun C:AUTOAREA (/ ar en n num pt ss1)
   (setq n 0)
   (setq ss1 (ssadd))
   (while (setq pt (getpoint "\nSelect internal point:"))
      (command"_.Boundary" pt "") ;;use Boundary instead of BPoly:
      (setq ss1 (ssadd (entlast) ss1))
   );;while
   (setq num (sslength ss1))
   (command ".area" "a" "e")
   (while (/= num n)
      (setq en (ssname ss1 n))
      (command en)
      (setq n (1+ n))
   );;while
   (command "" "")
   (command "erase" ss1 "")
   (command "redraw")
   (princ "\nThe area of the polygon in hectares is: ")
   (princ (cvunit (setq ar (getvar "AREA")) "SQ METER" "HECTARE"))
   (princ "\nThe area of the polygon in acres is: ")
   (princ (cvunit (setq ar (getvar "AREA")) "SQ METER" "ACRE"))

(setq ss nil)
(prin1)
);;end autoarea.lsp

Re: AUTOAREA.LSP

Anonymous — Tue, 19 May 2015 16:22:16 GMT

It works again!
Thank you very much!!!

This LISP routine is very useful to us but it does have some other issues. If it's not too much work maybe you could fix another bug:
This routine creates a closed polyline (to get the area) and then deletes it. However if it fails to create a closed polyline (no closed boundary) it will delete something else that is not supposed to be deleted.
Is this an easy fix?

But either way, thank you for making it work again!

Re: AUTOAREA.LSP

paullimapa — Tue, 19 May 2015 17:46:01 GMT

This revised code should take care of the problem when a closed boundary pline is not created:

;;This program will calculate the area of irregular polygons
;;by picking an area inside the polygon.

(defun C:AUTOAREA (/ ar e0 e1 en n num pt ss1)
(setq e0 (entlast)) ; get original last entity
(setq n 0)
(setq ss1 (ssadd))
(while (not pt)
    (setq pt (getpoint "\nSelect internal point:"))
    (command"_.Boundary" pt "") ;;use Boundary instead of BPoly
    (setq e1 (entlast)) ; get new last entity
    (if (not(eq e0 e1)) ; chk if new boundary was created
     (progn
    (setq ss1 (ssadd (entlast) ss1))
   ); progn
    (progn
   (princ"\nNo Boundary Created...try again...")
     (setq pt nil)
    ); progn
   ) ;if
);;while
(setq num (sslength ss1))
(command "_.Area" "_A" "_E")
(while (/= num n)
   (setq en (ssname ss1 n))
   (command en)
   (setq n (1+ n))
);;while
(command "" "")
(command "_.Erase" ss1 "")
(command "_.Redraw")
(princ "\nThe area of the polygon in hectares is: ")
(princ (cvunit (setq ar (getvar "AREA")) "SQ METER" "HECTARE"))
(princ "\nThe area of the polygon in acres is: ")
(princ (cvunit (setq ar (getvar "AREA")) "SQ METER" "ACRE"))
(prin1)
);;end autoarea.lsp

Re: AUTOAREA.LSP

Anonymous — Tue, 19 May 2015 19:43:25 GMT

Thanks again!

That works great now, but it doesn't allow me to pick multiple areas like the old one did. Is that also possible along with this new fix?

Re: AUTOAREA.LSP

paullimapa — Tue, 19 May 2015 19:55:58 GMT

Ok, got you...

;;This program will calculate the area of irregular polygons
;;by picking an area inside the polygon.

(defun C:AUTOAREA (/ ar e0 e1 en n num pt ss1)
(setq e0 (entlast)) ; get original last entity
(setq n 0)
(setq ss1 (ssadd))
(while (setq pt (getpoint "\nSelect internal point:"))
   (command"_.Boundary" pt "") ;;use Boundary instead of BPoly:
   (setq e1 (entlast)) ; get new last entity
   (if (not(eq e0 e1)) ; chk if new boundary was created
    (progn
     (setq ss1 (ssadd (entlast) ss1))
    ); progn
   )
);;while
(setq num (sslength ss1))
(command "_.Area" "_A" "_E")
(while (/= num n)
   (setq en (ssname ss1 n))
   (command en)
   (setq n (1+ n))
);;while
(command "" "")
(command "_.Erase" ss1 "")
(command "_.Redraw")
(princ "\nThe area of the polygon in hectares is: ")
(princ (cvunit (setq ar (getvar "AREA")) "SQ METER" "HECTARE"))
(princ "\nThe area of the polygon in acres is: ")
(princ (cvunit (setq ar (getvar "AREA")) "SQ METER" "ACRE"))
(prin1)
);;end autoarea.lsp

Re: AUTOAREA.LSP

Anonymous — Tue, 19 May 2015 20:59:08 GMT

Perfect.

Thanks a lot!

Re: AUTOAREA.LSP

paullimapa — Tue, 19 May 2015 22:54:03 GMT

glad that finally worked out for you...cheers...