Версия для печати темы

Автор: инженер55 25.4.2013, 13:56

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

Автор: Khomenko_A_S 25.4.2013, 14:24

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

Автор: MMM 25.4.2013, 14:28

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

Автор: Khomenko_A_S 25.4.2013, 14:46

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

Автор: инженер55 25.4.2013, 15:15

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

Автор: Хитрый Лис 25.4.2013, 15:21

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

Автор: инженер55 25.4.2013, 17:20

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

Автор: Axel 25.4.2013, 17:31

http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=36136

Автор: инженер55 25.4.2013, 17:34

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

Автор: инженер55 27.4.2013, 22:46

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

Автор: Хитрый Лис 28.4.2013, 15:15

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

Автор: Медведица 13.5.2013, 10:56

;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
;**********************************************************************

Автор: Kurbashy 3.11.2016, 11:29

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

Автор: Composter 3.11.2016, 12:12

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

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