Есть в акаде кнопка для измерения длинны ломаной линии?, надо посчитать длинну петли теплого пола Опции

[инженер55]

Здравствуйте!
Считаю длины петель теплого пола, не могу найти соответствующую иконку в акаде (2009). Подскажите пожалса! А то змейку еще можно посчитать, а улитку - оч долго!

[инженер55]

Здравствуйте!
Считаю длины петель теплого пола, не могу найти соответствующую иконку в акаде (2009). Подскажите пожалса! А то змейку еще можно посчитать, а улитку - оч долго!

[Khomenko_A_S]

Кнопка конечно нужна, я и сам такой не находил. Но теплый пол не стоит прорисовывать в масштабе

[MMM]

Да ужжж. Дейсвительно зачем в масштабе рисовать?? Рисуете крестик и пишете смонтировать и посчитать по месту...
А считать вообще плевое дело. Рисуете полилинией, потом в свойствах смотрите ее длину

[Khomenko_A_S]

Посчитать и приблизительно можно зная площадь и шаг укладки. А то и маты с прорезями рисовать прийдется в случае применения

[инженер55]

Полилинией обводить не хочется, лучше площадь/шаг)))

[Хитрый Лис]

Обводить и не надо. Команда ПОЛРЕД и далее читай что в командной строке пишет. и все линии превратятся в одну длинную полилинию

[инженер55]

чет не получается(((

[Axel]

Кнопка подсчета длины петель теплого пола

[инженер55]

Получилось! разница +5м по сравнению с Площ/шаг!

[инженер55]

Спасибо за ответы))

[Хитрый Лис]

чет не получается(((

А что там сложного то?
-Команда ПОЛРЕД ентер
-выберите полилинию или (несколько) - надо ввести Н и нажать ентер
- выбираешь все линии и жмешь ентер
- преобразовать отрезки в полилинии? (да) - Д ентер
- задайте опцию (добавить)- Д ентер
- значение допуска - 0 ентер
- ентер
Все должно получиться
Если не получется можно еще выбрать на шаге "задайте опцию" Типлин. потом снова Добавить и ентер 2 раза

[Медведица]

;ENTLEN.LSP
;http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=2&TID=21819
;======================================================================
;entLen_moss.lsp — Подсчёт суммы длин выбранных примитивов
;======================================================================

(vl-load-com)
(defun C:ENTLEN (/
NABOR ;Набор примитивов
i ;Счётчик
ENT_i ;i-й примитив из набора NABOR
LEN_all ;Суммарная длина примитивов
LEN_i ;Длина i-го примитива
)


(princ "\nПодсчёт суммы длин выбранных примитивов. ")
(princ "\nВыберите примитивы: ")

;--------------------------------------------------------------------
;Выбор примитивов [выбираем нужные, отфильтровываем ненужные]
;--------------------------------------------------------------------
(setq NABOR (ssget
'((-4 . "<OR")
(0 . "*LINE")
(0 . "CIRCLE")
(0 . "ARC")
(0 . "ELLIPSE")
(-4 . "OR>")
)
);end ssget
);end setq


;--------------------------------------------------------------------
;Сообщение о количестве выбранных примитивов
;--------------------------------------------------------------------
(princ (strcat "\nВсего выбрано примитивов: " (itoa (sslength NABOR))))
(princ "\n-------------------------")

;--------------------------------------------------------------------
;Установка начальных значений
;--------------------------------------------------------------------
(setq i 0)
(setq LEN_all 0.0)


;--------------------------------------------------------------------
;Цикл по набору NABOR
;--------------------------------------------------------------------
(while (< i (sslength NABOR))

;..................................................................
;Определяем Имя i-го примитива из набора NABOR
;..................................................................
(setq ENT_i (ssname NABOR i))

;..................................................................
;Определяем Длиу i-го примитива из набора NABOR
;..................................................................
(setq LEN_i (vlax-curve-getDistAtParam
(vlax-ename->vla-object ENT_i)
(vlax-curve-getEndParam ENT_i)
);end vlax-curve-getDistAtParam
);end setq

(princ (strcat "\n"(itoa (1+ i)) "-й примитив = " (rtos LEN_i) "м"))

;;;Отладка
;;;(redraw ENT_i 3)
;;;(read-line)

;..................................................................
;Наращиваем суммарную длину всех выбранных примитивов
;..................................................................
(setq LEN_all (+ LEN_all LEN_i))

(setq i (1+ i))
);end while

(princ "\n-------------------------")
(princ (strcat
"\nОбщая длина " (itoa (sslength NABOR)) " выбранных примитивов = "
(rtos LEN_all)
"м"
);end strcat
);end princ

(prin1)
);end defun C:ENTLEN
;**********************************************************************

Сообщение отредактировал Медведица - 13.5.2013, 10:59

[Kurbashy]

Кнопка подсчета длины петель теплого пола

Скажу спасибо Александру Ривилису.

[Composter]

ахаха, а когда то медведица заявлял про лиспы что "а так всё пустая псевдо реклама неизвестно чего"

а на счет высказывания Хитрый Лис , добавлю что если не все линии объединяются в полилинию то нужно устновить значение допуска 10(ну или больше)