[Alexander_Liseev]

Кажется где-то встречал подобное, но найти не смог.
Нужен лисп, при помощи которого можно найти площади областей ограниченных дугами и отрезками(2 дуги пересекаются с двумя отрезками). Т.е кликаешь курсором в область и на курсоре появляется значение площади.
Отрезки и окружности лежат в одной плоскости Z=0.

[Post]

Заштрихуй и в свойствах будет площадь

[Victor]

Код:

[Выделить все]

(defun c:pls ( / pnt pls pls_str pls_str_p kor_str spis_st tsz size_p)
(setq tsz (getvar "TEXTSIZE")) 
(setq pnt (getpoint))
(command "_.boundary" pnt "")
(setq pln (entlast))
(command "_.AREA" "_O" pln)
(entdel pln) 
(setq pls (getvar "area"))
(setq pls_str (rtos pls 2 2)) ; 
(setq pls_str (strcat "S = " pls_str "sq.m."))
(setq pls_str_p (cons 1 pls_str)) ;para  
(setq size_p (cons 40 tsz)) ;
(setq kor_str (append '(10) pnt))
(setq spis_st (list '(0 . "TEXT") kor_str '(100 . "AcDbEntity") 
                    size_p pls_str_p '(50 . 0)                    
                    '(7 . "Standard") '(100 . "AcDbText")))
(entmake spis_st)
)

[Alexander_Liseev]

to Victor
Огромное спасибо.
Отлично, то что надо. А можно теперь запятую передвинуть на 6 знаков влево?

[evg76]

можно еще проще в новом слое команда bpoly и потом аrea
и все.

[Victor]

В миллиметрах что ли меряете . Замените (setq pls (getvar "area")) на (setq pls (* 1000000 (getvar "area")))

[Alexander_Liseev]

Сообщение от Victor В миллиметрах что ли меряете . Замените (setq pls (getvar "area")) на (setq pls (* 1000000 (getvar "area")))

Да в миллиметрах.
Наверное наоборот (setq pls (* 0.000001 (getvar "area")))
Спасибо огромное, очень помогло.

[Victor]

Тогда километры получатся

[Disney]

Сообщение от Victor Тогда километры получатся

Да, нет...
У него чертёж в 1 ед. 1 мм

[Alexander_Liseev]

Сообщение от Disney Да, нет... У него чертёж в 1 ед. 1 мм

...именно так