Руководство по раскладке трубы ТП в MS Visio 2013

Всем привет! Надеюсь, многим пригодится это руководство. Сам не так давно столкнулся с проблемой раскладки, пытался и в скетче рисовать и на миллиметровке и даже в екселе, но все не то, долго, муторно и криво. В итоге нашел рекомендации воспользоваться Visio, методом тыка освоил, что то где то погуглил, все свел воедино.

Итак, приступим:

1. Рисуем план дома.
Для этого в визио создаем проект на шаблоне "план дома"


2. Рисуем планировку дома или комнаты (в зависимости от цели). Как рисовать, надеюсь разберетесь сами.


3. Для раскладки трубы нам нужна сетка. Если в проекте сетка выключена нужно ее включить (1), скорее всего по умолчанию ее размеры меняются в зависимости от масштаба документа. Для того, что бы зафиксировать размеры сетки заходим в "Вид">"Показ"


появляется меню настройки сетки. В меню меняем "Интервалы между линиями сетки" на "Фиксированные" и задаем необходимый интервал сетки в зависимости от того с каким шагом планируете раскладывать трубу. Учтите масштаб документа.


Теперь сетка зафиксирована и можно раскладывать трубу


4. Рисуем трубу. В меню "Главная" нажимаем "Линия"


Отмеряем по клеткам отступ от стены и рисуем прямую линию от начала стены до конца. Далее нужно произвести настройку линии. Для этого задаем цвет (1) и обязательно стиль округления (2). Почему обязательно: программа все соединенные между собой линии группирует в отдельный элемент и если не установить закругление очень высока вероятность разрыва линии контура и соответственно подсчет метража (об этом ниже) будет не правильный. Линию рисовать одиночную (3), доходить до конца, разворачиваться и потом прокладывать в обратную сторону, иначе программа будет считать это за два объекта. После того как пройден круг и начинается очередной виток не забываем сделать двойной интервал между линиями для обратки.

 

После того как раскладка теплого пола нарисована нам нужно посчитать длину контура. К сожалению, эта версия программы не имеет возможности посчитать длину контура, но выход все же есть:
заходим в меню "Вид" > "Макросы"


Далее в имя макроса пишем все что угодно кроме цифр, цифры прога почему то не любит, и далее тычем кнопку "Создать"


Далее появляется окно макроса, в которое копируете вот это:
Sub Измерение_длин()
Dim lenth As Double
lenth = 0
Dim vsoShape As Visio. Shape
For Each vsoShape In Application. ActiveWindow. Selection
lenth = lenth + vsoShape. LengthIU
Next
'Корректировка масштаба
lenth = lenth / (0.393700787401575 - 0.000000000000001 / 5) ' перевод из внутренних ед измерения
MsgBox (lenth)
End Sub

Закрываете окно.

После нажимаете на нарисованный контур, он выделяется в рисунок, который можно повернуть или растянуть. Кликаете опять на "Вид">"Макросы" и жмете кнопку "Выполнить"


Выходит окошечко с длиной контура в единицах, в которых производится рисование. На моем примере это 8499мм, что соответствует 85 метрам.



СЕМЬ РАЗ ОТМЕРЬ ОДИН РАЗ ОТРЕЖЬ!
УСПЕХОВ В НАШЕМ НЕЛЕГКОМ ДЕЛЕ, ГОСПОДА СТРОИТЕЛИ!

 

Человечище! спасибо тебе огромное за науку! век бы руками мучался если бы не увидел этот пост!

 

Завтра тоже попробую. С этой программой давно работаю. На такое решение проблемы не подумал даже.

 

Попробовал сделать раскладку в Visio 2007. Расположение элементов немного отличается, но все получилось. Перепроверил то, что сделал в Улитке. Расхождение около 2% за счет отсутствия скругления в Улитке. Если убрать скругление в Visio, то получается практически 1 в 1 (расхождение в 10-15 см из-за не одинаковой отрисовки начала и конца линии).

 

Прикольно, а это зачем ?

 

Разрисовка схемы укладки? Бухта трубы обычно 200м. С нее удобно делать 3 петли по 60-70м. "Разложив" трубу на компьютере можно прикинуть получится уложиться в 200м или нет. Оптимизировать раскладку. У меня получились все контуры по 60-68 метров. Остатки от бухты применил для водоснабжения.

 

Я всё время забываю, что не все могут это сделать "на глаз" )

 

@Хортэк СПб, вот попадется заказчик, который вам оплату остатками трубы осуществит, тогда сразу про "на глаз" позабудете

 

С позволения @RoMZzeSS, Вид-Надстройки-Дополнительные решения Visio-Площадь и периметр фигуры

 

Спасибо, специально для этого скачал visio

 

Подскажите рабочую ссылку

 

пробуйте тут:
http://rutracker.org/forum/viewtopic.php?t=4862322

 

Автору спасибо, небольшая доработка макроса, чтобы считал количество поворотов, эт надо для подсчёта гидравлического сопротивления трубы.

Sub ДлиннаПетли()

Dim lenth As Double
Dim vsoShape As Visio. Shape
Dim vsoCurve As Curve
Dim rotate As Integer
Dim i As Integer

rotate = 0
lenth = 0
i = 1

For Each vsoShape In Application. ActiveWindow. Selection
For Each vsoCurve In vsoShape. Paths. Item (i)
If vsoCurve. End <> 1 Or vsoCurve. Start <> 0 Then
rotate = rotate + 1
End If
i = i + 1
Next
lenth = lenth + vsoShape. LengthIU

Next

MsgBox (Round (lenth * 0.0254, 2) & "метров и " & rotate & "поворотов")
End Sub

 

Это вы про скетч? В первом посте автор написал что в скетче у него не получилось. Не всегда "специализированные" программы самые удобные для обычного человека, человеку намного проще и удобнее использовать имеющие инструменты. Мы так проще все в кореле нарисовать. правда не знаю как там посчитать) Еще предстоит этот пока не легкий путь)