autolisp program

[bhart]

I'm using acad r14 and softdesk 8. doing civil engineering...
Lots of qauntities, as you might know..
Many of those quantities need to be in acres...
I have tryied to write a lisp routen to do that, see below but end with
errors.
If you can help I'd really be thankful..

(defun C:ACRES ()
(setq OS (getvar "osmode"))
(setvar "osmode" 512)
(setq acre 0)
(setq acret 0)
(setq ENTI(entsel "\nSelect Polygon "))
(command ".area" "e" ENTI)
(setq ac (getvar "Area"))
(SETQ ACRE (/ AC 43560.0))
(princ "S.F. = "ac)
(princ "Acres "ACRE)
(setq acret (+ acret acre))
(princ " Total Acres = " acret)
(setvar "osmode" OS)
)

[E_Shine]

;; Answer 1:

(defun C:ACRES (/ ac acret acre enti)
;(setq OS (getvar "osmode"))
;(setvar "osmode" 512)
(setvar "CMDECHO" 0)
(setq acret 0)
(while (setq ENTI (entsel "\n Select Polygon : "))
(command ".area" "e" ENTI)
(setq AC (getvar "Area"))
(setq ACRE (/ AC 43560.0))
(princ "\n S.F. = ") (princ ac)
(princ "\t Acres = ") (princ ACRE)

(setq acret (+ acret acre))

(princ "\t Total Acres = ") (princ acret)
)
;(setvar "osmode" OS)
(setvar "CMDECHO" 1)
)

;; Answer 2:

(defun C:ACRES (/ ac acret acre enti)
(setvar "CMDECHO" 0)
(while (setq ENTI (entsel "\n Select Polygon : "))
(command ".area" "e" ENTI)
(setq acret 0
AC (getvar "Area")
ACRE (/ AC 43560.0)
)
(princ "\n S.F. = ") (princ ac)
(princ "\t Acres = ") (princ ACRE)

(setq acret (+ acret acre))

(princ "\t Total Acres = ") (princ acret)
)
(setvar "CMDECHO" 1)
)

E_Shine 1999 Aug

bhart 撰寫於文章 <37c8...@news.prismnet.com>...