Расчет длин кабелей в визио

Начал осваивать визио 2010 портабл. Довольно удобная программа, простые планировки получаются махом. Одно не понятно. В Компасе, допустим, начертишь план в натуральную величину, расставишь розетки-выключатели, начертишь трассы и в режиме измерения длины кривой измеряешь длину трасс. В Визио я не могу найти аналог данного измерения. Вообще можно как то измерять длины трасс в ней?

На сколько я помню в визио такого инструмента нет. Хотя давно это было.
ИМХО Визио, это старый добрый кульман, только на мониторе.

Visio portable = Visio svorowable.
Бе- ре-гись!

Во, а попробуй выделить линию и нажать "объединить" а потом погляди свойства.

Та я так, трохи для сЭбЭ

В визио нет такой функции. Только если линейкой на мониторе мерить...

За измерение длины кривых не скажу, а длины (в соответствие с мсштабом) прямых отрезков отражаются в левом нижнем углу. У меня стоит Визио 2007, до этого пользовался ещё с 98 Виндой, версию Визио не помню, но там тоже, по-моему, такая примочка была.

Открыл 2003 визио. В нижней панели все длины и т.д. видны.

Спасибо, понял, но имел ввиду немного другое. В Компасе включаешь измерение длины кривой (так они называют любую линию, прямую, ломанную, произвольной формы), выделяешь по очереди нужные отрезки и в отдельном окне показывается длина каждого отрезка и общая сумма. Здесь, видимо, такого нет. Печально.

ну, надо просто приспособиться.

Бесплатным Q-CAD/LibreCADом не пробовали работать?

В Визио эта функция реализована по другому: чертишь кривую отдельными кривыми отрезками и длина каждого видна в нижней панели. Просто к каждой программе нужен свой подход и привычки.

Roman D, Даже не слышал. Пойду посмотрю, что за зверь.

Гость сочувствующий, и записываешь каждый из них на отдельную бумажку или в файл? А если что пропустишь или наоборот, два раза посчитаешь?

Roman D, Поглядел. Простенько и без излишеств. Чисто черчение. Но у меня есть Компас LT и я к нему привык больше.

Зачем на бумажку? Можно в файл под названием "Спецификация", а чтобы на чертеже посмотреть длину, достаточно выделить отрезок курсором и на панели внизу видно длину. Принцип вычисления общей длины, допустим кабельной линии, тоже достаточно прост: рисуем линию из любого количества отрезков (как нам удобнее), заносим полученные длины в спецификацию (при необходимости). Чтобы получить общюю длину курсором выделяем все отрезки, далее "Фигура-группировка-группировать" и получаем суммарную длину линии. Вообще с Визио давненько работаю, программа для моих потребностей самое то, накопил достаточное количество библиотек шаблонов, в том числе ГОСТОВ-ких. Ещё одно применение - вычисление диагонали заземляющего устройства: начертил в масштабе исполнительную смонтированного ЗУ, диагональку провёл и считать ничего не надо, результат на виду!

Костян челябинский, а у Вас LT с библиотеками?

Вот ещё QElectroTech - рисовалка есть для схем.

Гость сочувствующий, Попробую. А файл сама визио изготавливает?
Roman D, Пока не смотрел. Попозже.

LT - не знаю. я ими не пользуюсь. Быстрее автоматик начертить и откопипастить куда и сколько раз надо, чем вытаскивать его из библиотеки.

QElectroTech:

sPlan:

LibreCAD:


Сообщение отредактировал Roman D - 27.5.2013, 21:03

Написал макрос для Visio. Он расчитывает длинну выделенных линий и выводит в MsgBox.

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

Гость_Lione_* , а можно все то же самое, только как для блондина. Вот спинным мозгом чую, что вещь отличная, но не знаю, как ее применить

Выбираете "Вид", "Макрос"

Введите любое имя макроса и нажать кнопку создать.
Появится окно MS Visual Basic. Туда копируете

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

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


Дальше выделяете любую линию на чертеже, выбираете вид/макрос и выполнить. Всплывёт окно с указанием длинны.


Все на примитивном уровне.