CAD Forum discussion (EN) : AUTOAREA LISP

CAD Forum discussion (EN) : AUTOAREA LISP https://www.cadforum.cz/forum_en/ Sat, 23 May 2026 17:00:25 +0000 Fri, 15 May 2015 18:23:00 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=11169 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[AUTOAREA LISP : Thanks Robert. But ideally it...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29771&title=autoarea-lisp#29771 Author: MK2015
Subject: 11169
Posted: 15.May.2015 at 18:23

Thanks Robert. But ideally it would be nice if I could get my old routine to work. You see I need the area in acres and hectares simultaneously. And it's also very convenient because it does not require a closed polyline.]]> Fri, 15 May 2015 18:23:00 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29771&title=autoarea-lisp#29771 <![CDATA[AUTOAREA LISP : Also, lee-mac has a few routines...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29767&title=autoarea-lisp#29767 Author: Robert_D
Subject: 11169
Posted: 14.May.2015 at 21:11

Also, lee-mac has a few routines which may (?) be of interest:
http://www.lee-mac.com/areastofield.html
http://www.lee-mac.com/arealabel.html
http://www.lee-mac.com/areafieldtoattribute.html
]]> Thu, 14 May 2015 21:11:15 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29767&title=autoarea-lisp#29767 <![CDATA[AUTOAREA LISP : MK2015 wrote: 1).How do I...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29766&title=autoarea-lisp#29766 Author: Robert_D
Subject: 11169
Posted: 14.May.2015 at 21:00

MK2015 wrote:

1).How do I go to 2 decimal places? But again my old one was ideal as I also require area in hectares...

Hmm, don't know about the decimal places, may play around if I get time.
Hectares display correctly if you replace (getvar "area") 144)) with (getvar "area") 15500031.0001)).
]]> Thu, 14 May 2015 21:00:56 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29766&title=autoarea-lisp#29766 <![CDATA[AUTOAREA LISP : 1) Yes, thanks. How do I go...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29765&title=autoarea-lisp#29765 Author: MK2015
Subject: 11169
Posted: 14.May.2015 at 19:52

1) Yes, thanks. How do I go to 2 decimal places? But again my old one was ideal as I also require area in hectares.

2.) My old Autoarea.lsp doesn't require a closed polyline and that's what makes it so convenient. (It creates a temporary closed polyline by itself and then deletes it)

]]> Thu, 14 May 2015 19:52:29 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29765&title=autoarea-lisp#29765 <![CDATA[AUTOAREA LISP : 1) You could modify the routine....]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29764&title=autoarea-lisp#29764 Author: Robert_D
Subject: 11169
Posted: 14.May.2015 at 18:21

1) You could modify the routine. You'll notice (getvar "area") 144)) where it divides the default inches and divides by 144 for ft2.
2) I would think all routines would require a closed polyline.
]]> Thu, 14 May 2015 18:21:13 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29764&title=autoarea-lisp#29764 <![CDATA[AUTOAREA LISP : Robert:Thanks, but this one...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29763&title=autoarea-lisp#29763 Author: MK2015
Subject: 11169
Posted: 14.May.2015 at 17:59

Robert:

Thanks, but this one doesn't work for us mainly for these 2 reasons:

- I need the area in Acres and Hectares, not square feet

- This requires a closed polyline and we are always dealing with cadastral mapping which is made up of lines or polylines. I realize I could use the boundary command, but this creates an extra step.

]]> Thu, 14 May 2015 17:59:38 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29763&title=autoarea-lisp#29763 <![CDATA[AUTOAREA LISP : A similar AREA2.LSP you can try:;;;...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29755&title=autoarea-lisp#29755 Author: Robert_D
Subject: 11169
Posted: 14.May.2015 at 16:53

A similar AREA2.LSP you can try:

;;; places area at specified point
(defun c:area2 (/ olderr en el hlt areatxt pt1)
(setq olderr *error*)
(defun *error* (str)
    (if    (= str "Function cancelled")
      (princ)
      (princ (strcat "Error: " str))
      )                    ;if
    (if hlt
      (redraw (car en) 4))
    (setvar "cmdecho" 1)
    (setq *error* olderr)
    )                    ;defun error
(setq en 1)
(setvar "cmdecho" 0)
(while en
    (while (not                ;make sure user selects an object
         (setq en (entsel "\nSelect object or [Escape] to quit "))
         )
     )
    (setq hlt 1)
    (redraw (car en) 3)
    (setq el (entget (car en)))
    (if    (or
    (= (cdr (assoc 0 el)) "LWPOLYLINE")
    (= (cdr (assoc 0 el)) "CIRCLE")
    (= (cdr (assoc 0 el)) "ELLIPSE")
    );or
      (progn
    (command ".area" "o" en)
    (setq areatxt (/ (getvar "area") 144))
    (while (not            ;make sure user selects a point
        (setq pt1 (getpoint "\nSelect point for text "))
        )
    );while
    (if (not (tblsearch "layer" "SQ-FT"))
    (command ".-layer" "m" "SQ-FT" "c" "7" "SQ-FT" ""))
    (setvar "clayer" "SQ-FT")
        (setq el (subst '(8 . "SQ-FT") (assoc 8 el) el))
        (entmod el)
        (setvar "textstyle" "standard")
        (if (/= (cdr (assoc 40 (tblsearch "style" "standard"))) 0)
    (command ".text" "j" "mc" pt1 0 (strcat (rtos areatxt 2 1) " SF"))
          (command ".text" pt1 8.0 0 (strcat (rtos areatxt 2 1) " SF"))
          );if
    );progn
      );if
    (setq hlt nil)
    (redraw (car en) 4)
    );while
(setvar "cmdecho" 1)
(setq *error* olderr)
(princ)
)
                    ;end of function
]]> Thu, 14 May 2015 16:53:56 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29755&title=autoarea-lisp#29755 <![CDATA[AUTOAREA LISP : I see what you mean as I just...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29754&title=autoarea-lisp#29754 Author: John Connor
Subject: 11169
Posted: 14.May.2015 at 16:50

I see what you mean as I just tried to use it in plain AutoCAD.

Edited by John Connor - 14.May.2015 at 16:58]]> Thu, 14 May 2015 16:50:09 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29754&title=autoarea-lisp#29754 <![CDATA[AUTOAREA LISP : It freezes AutoCAD. ]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29753&title=autoarea-lisp#29753 Author: MK2015
Subject: 11169
Posted: 14.May.2015 at 16:35

It freezes AutoCAD.]]> Thu, 14 May 2015 16:35:33 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29753&title=autoarea-lisp#29753 <![CDATA[AUTOAREA LISP : What kind of error are you getting?...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29750&title=autoarea-lisp#29750 Author: John Connor
Subject: 11169
Posted: 14.May.2015 at 11:59

What kind of error are you getting?
]]> Thu, 14 May 2015 11:59:19 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11169&PID=29750&title=autoarea-lisp#29750