Тема: LISP. Вычисление площади контура и простановка значения на плане
;************AREA_K.LSP - Вычисление площади контура
; и простановка значения на плане
;
; Разработал Громов В.В. Апрель 1999, 2001.
;
(defun C:AREAK (/ slt pre pl s ptt)
(setvar "cmdecho" 0)
(setq osm (getvar "OSMODE"))
(setq slt (getvar "CLAYER"))
(if (null prec) (setq prec "1"))
; (initget 4 "0 1 2")
(princ (strcat "\n Количество знаков после точки (0, 1, 2) <" prec ">: "))
(setq pre (getint))
(if (= pre nil) (setq pre (atoi prec)))
(if (> pre 2)
(progn
(setq pre 2)
(alert " Перебор! Ограничимся 2-мя знаками.")
))
(setq prec (itoa pre))
(princ "\n Выберите полилинию: ")
(setq pl (entsel))
(command "_AREA" "_O" pl)
(setq s (getvar "area"))
(setq s (/ s 1000000))
(princ "\n Площадь контура = ")(princ s) (princ " кв.м")
(cond
((<= pre 0) (setq s (rtos s 2 0)))
((= pre 1) (setq s (rtos s 2 1)))
((>= pre 2) (setq s (rtos s 2 2)))
)
(initget "д l н")
(setq dn (getkword "\n Подчеркивать число (да,нет)? <н>: "))
(setvar "OSMODE" 0)
(setq ptt (getpoint "\n Укажите место размещения текста: "))
(if (or (= dn "д") (= dn "l"))
(progn
(command "_-LAYER" "_M" "Помещения" "")
(setq area (strcat "%%U" s "%%U"))
))
(if (or (= dn "н") (= dn nil))
(progn
(command "_-LAYER" "_M" "Экспликация" "")
(setq area s)
))
(command "_TEXT" ptt "" "" area)
(princ "\n Площадь контура = ")(princ s) (princ " кв.м")
(setvar "OSMODE" osm)
(command "_-LAYER" "_S" slt "")
(princ)
)
