area
area
(OP)
Is there a way to use the inqire area and get the results in acres instead of feet sq.
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
|
RE: area
Alternately, you can use a lisp function to do the conversion.
RE: area
RE: area
; AAREA.LSP
(DEFUN c:aarea ()
(SETQ oc (GETVAR "cmdecho")
nc (SETVAR "cmdecho" 0)
)
(SETQ getobj (ENTSEL "Select object to get area of:"))
(COMMAND "AREA" "o" getobj)
(SETQ sqft (/ (GETVAR "AREA") 144)
sqyds (/ sqft 9)
acres (/ sqft 43560)
)
(ALERT
(STRCAT "\nSquare Feet = "
(RTOS sqft 2 3)
"\nSquare Yards = "
(RTOS sqyds 2 3)
"\nAcres = "
(RTOS acres 2 3)
)
)
(SETVAR "cmdecho" oc)
)
(PROMPT "To use, enter aarea at the command line.")
(PRINC)
Flores
RE: area