Как создать прогу для определения площади замкнутой фигуры.

Я не понял а чем команда _Area плоха, те бе что в ломы результат на 1000000 разделить, чтобы получить м2

Посади на кнопку. Сначала командой "area" меряешь, а потом этой ф-ей вставляешь значение. Переменная popersc - масштаб.

(defun c:setarea ()
   (if (= popersc nil)
     (setq popersc 1)
   )
   (setq yp3 (getpoint "Точка вставки"))
   (setq hx3 (nth 0 yp3))
   (setq hy3 (nth 1 yp3))
   (setq triar0 (getvar "area"))
   (setq triar0 (/ (* triar0 popersc popersc) 1000 1000))
   (setq triar0 (rtos triar0))
   (setq triar0 (strcat triar0 "м2"))
   (setq xyz1 (list hx3 hy3))
   (command "text" xyz1 0 triar0)
)

ага , по типу определения облости штриховки..
неплохо бы..

Изучайте Map. В нем есть все что вам надо. Масштаб правда обычно используют тысячный.

так несложно поделить на милион :) в тойже лисп проге переключалку/вопросик  сделать м/мм/см/т.п. ;)

> Апельсинов-2004
Так Map вообще-то начиная с 2000 включен в состав Акада.
Там можно за день разобраться. Там речь идет вообще то о построении топологии.

> Апельсинов-2004,
Jekki.
Есть такая программка, написанная на Lisp-е. Предназначена для определения площади помещений. Тыкаешь внутрь замкнутого контура - запросы о номере помещения, названии - и все эти данные вставляются в блок с атрибутами. Если потом надо с этими площадями что-нибудь делать, извлекаешь атрибуты с данных блоков в Excel и считай что хочешь. Если надо, могу скинуть. Там будет програмка и блок. Блок вставляется с учетом масштаба (DIMSCALE).

Я считаю площади помещений через команду Регион. В свойствах смотришь S и периметр или через команду Площадь-объект. Всё просто и никаких программ не надо. (мне)

Cпасибо Leonid_01 за програмку, я ее переделал, и получилось то, что мне надо, при указании точки внутри замктутого контура, выводится его площадь и периметр:

(defun C:area1 (/ t1 s1 q1 q2 q3)
(setvar"cmdecho"0)
(setq os(getvar"OSMODE"))
(setvar"OSMODE"0)
(setq t1 (getpoint "\nSpecify internal point: "))
(command "_boundary"t1"")
(setq perim(entlast))
(command"_area""ob"(entlast))
(command"_erase"(entlast)"")
(command"_erase"perim"")
(setq ar(getvar"area"))
(setq PR(getvar"perimeter"))
(setvar"cmdecho"1)
(princ"\n Аrea:")(princ ar)(princ"    ")(princ"Perimetr:")(princ pr)
(princ))

Одна проблема, при указании незамкнутого контура, программа ведет себя некоректно. Если кто знает как сделать просто сообщение об ошибке - помогите.

Я пошел по пути вычисление площадей (а также периметров, поверхностей, объемов и масс) по задаваемым точкам или объектам с выводом значений на экран, в текст или колонку текста. С переводом значений в различных единицах измерения при любом масштабе чертежа. Если задаются только 2 точки, то можно получить автоматом площадь прямоугольника. AREATXT.
http://geol-dh.narod.ru/kai_stru.html