Описание инструмента

Описание инструмента

Несколько слов об азах. Любой созданной форме в Visio (линия, прямоугольник, надпись и т.д.) соответствует электронная таблица (ShapeSheet), где записаны все данные этой формы (координаты, размеры, цвет и т.д.). Вызвать таблицу выделенной формы можно через меню Окно – Показать список. По умолчанию форме присваивается имя Sheet.N, где N-порядковый номер создания формы (Он же ID). Посмотреть эти данные (Имя и ID) можно в контекстном меню формы, выбрав Формат – Особый… или в меню окна таблицы ShapeSheet Форматирование – Особый… Имя можно изменить по своему усмотрению. В ячейки ShapeSheet можно записывать формулы и ссылки на ячейки других форм. Ссылка записывается в таком формате: =ИмяФормы!ИмяЯчейки. (Например = Sheet.24!Width).

Диаграмма НТМИ. У меня в основе лежит окружность (Имя-krug) диаметром 200/√3 мм (чтобы длина фазного вектора была равна 57.74 мм). Внутри окружности находится жирная точка (OY), а на самой окружности еще три точки (AY, BY, CY), расположенных через 120^О по длине окружности. Векторы я рисовал так, что стрелка это конец вектора (EndX, EndY). (Просто мне было так удобней, хотя вроде бы должно быть наоборот). Начала (по моему понятию) фазных векторов (Uao, Ubo, Uco) привязаны к точке OY, а концы соответственно к точкам AY, BY и CY. На странице с нормальным треугольником начало Ufk привязано к концу Ubo, длина Ufk равна длине Uco, деленной на √3, а угол равен углу Uco. Соответственно привязаны друг к другу 2 других вектора разомкнутого треугольника согласно схеме внутренних соединений. Страницу с перевернутым треугольником создал копированием, имена векторов разомкнутого треугольника в ShapeSheet не менял, поэтому там наблюдается несовпадение имен векторов с расположением точек Ф,К,И,Н.

В VBA в процедуре Private Sub CmdButOk_Click() (нажатие кнопки ОК) в зависимости от выбранного режима в ячейки PinX и PinY точек OY (ID-24),AY (22),BY (21),CY (23) записываются формулы и точки получают новые координаты. Ну а векторы уже следуют за своими точками.

В табличке вывода значений векторов (вверху справа от диаграммы) записаны ссылки на ячейки ShapeSheet соответствующих векторов. Чтобы это сделать надо войти в текст (текст должен быть окрашен синим), и в контекстном меню текста выбрать Вставить поле…. В окне «Поле» в разделе «Категория» выбрать строку «Особая формула» и внизу ввести формулу. Чтобы у меня войти в текст и посмотреть формулу надо снять защиту формы.

Защиту всех форм я ввел оттого, что при случайном сдвиге формы мышью все формулы, записанные в ShapeSheet данной формы, стираются. Остается только информация по умолчанию, записанная при создании формы. Форма перестает работать. Правда это не относится к текстовым полям, но на всякий случай…

Диаграмма НКФ. Здесь обошелся без VBA. Здесь можно менять только длину фазных векторов. При вводе числа в зеленое поле таблички, информация записывается в ячейку Width соответствующего вектора. Для этого в ячейке Width вектора записана формула вида:

=SHAPETEXT(Sheet.294!TheText)/25.4, где Sheet.294 – имя фигуры, с текста которой берутся данные. 25.4 – перевод в дюймы (внешняя информация о длине воспринимаетя в дюймах а об углах в радианах).

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

А Б В Г Д Е Ж З И К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ы Э Ю Я

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z