Comments on: Find Area in Acres

By: Jim

Jim — Thu, 18 Dec 2008 16:59:52 +0000

Shouldn’t the first line be:(defun C:CalcAREA ()
And I get an Unknown command when ever I enter Listarea or tagarea
Jim

By: Randall Culp

Randall Culp — Wed, 17 Dec 2008 19:58:02 +0000

Trying again with more knowledge :)

(defun CalcAREA ()
(setq a 0
ss (ssget ‘((-4 . “”))
)
)
(if ss
(progn
(setq n (1- (sslength ss)))
(while (>= n 0)
(command “_.area” “_o” (ssname ss n))
(setq a ( a (getvar “area”))
n (1- n))
) ;;close while
);;close progn
(alert “\nNo Objects with AREA selected!”)
) ;;close if
(princ)
) ;;close defun
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:ListAREA ()
(calcarea)
(if (/= a 0)
(progn
(alert
(strcat “The total area of the selected object(s) is\n\n ”
(strcat
(rtos a 2 2) ” Sq In,\nor\n ”
(rtos (/ a 144.0) 2 2) ” Sq Ft, \nor\n ”
(rtos (cvunit a “sq in” “Acres”) 2 3) ” Acres”)
))
)
)
(princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:TAGAREA ()
(calcarea)
(if (/= a 0)
(progn
(setq str3
(strcat
(rtos (/ a 144.0) 2 2) ” Sq Ft\\P”
(rtos (cvunit a “sq in” “acres”) 2 3) ” Acres”
)
)
;(txstla)
(setq at2 (getpoint “\nLocation for text… “))
(command “Mtext” at2 “R” “0″ “J” “MC” “W” “0″ str3 “”)
)
)
(princ)
)

By: Randall Culp

Randall Culp — Wed, 17 Dec 2008 19:54:27 +0000

This “reply” window dislikes less-than and greater-than symbols in lisp, sorry.

Okay in the function calcarea, third line down, we’re setting the variable SS to a Selection Set.

the reply window truncates it to (-4 . “”)
it should read:
(-4 . “[insert_less_than_symbol_here]OR”)
(0 . “CIRCLE”)
(0 . “region”)
(0 . “*polyline”)
(0 . “spline”)
(0 . “ellipse”)
(-4 . “OR[insert_greater_than_symbol_here]“)

Be sure to replace [insert_less_than_symbol_here] and [insert_greater_than_symbol_here] with the real symbols.

By: Michael Smith

Michael Smith — Wed, 17 Dec 2008 19:45:58 +0000

Command: (LOAD “C:/Support/Lisp/area-acres.lsp”) *Cancel*
bad argument type: consp “”

error message I received

By: Randall Culp

Randall Culp — Wed, 17 Dec 2008 19:44:17 +0000

Nope, that didn’t work either. maybe its the less-than and greater-than symbols

(ssget
‘(
(-4 . “[insert_less_than_symbol_here]OR”)
(0 . “CIRCLE”)
(0 . “region”)
(0 . “*polyline”)
(0 . “spline”)
(0 . “ellipse”)
(-4 . “OR[insert_greater_than_symbol_here]“)
)

By: Randall Culp

Randall Culp — Wed, 17 Dec 2008 19:41:44 +0000

This reply window is truncating a line in the function. The selection set “SS” in the third line should allow collection anything that has area, circles, regions, splines, plines, ellipses.

Let me try breaking it up
(ssget
‘(
(-4 . “”)
)

By: Randall Culp

Randall Culp — Wed, 17 Dec 2008 19:35:32 +0000

By: Josh Jones

Josh Jones — Wed, 17 Dec 2008 17:30:15 +0000

I get the same “malformed list” error message in ACAD ’08.

By: Michael Smith

Michael Smith — Tue, 16 Dec 2008 20:25:54 +0000

malformed list on input
error message I got on loading the program
use Acad 2009
I remarked out the (txstla) in the file.

By: Randall Culp

Randall Culp — Tue, 16 Dec 2008 19:35:59 +0000

oops, there is a call to (txstla) just before the MTEXT command in the function above that needs to be removed. Its a function I use to set the proper style and layer for text.