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

[Костян челябинск...]

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

[Костян челябинск...]

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

[Dimka1]

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

Введите любое имя макроса и нажать кнопку создать.
Появится окно 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

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


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


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