Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 28 мар 2024, 22:22

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 41 ]  На страницу 1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 05:47 
Не в сети
Постоянный участник
Аватара пользователя

Зарегистрирован: 13 авг 2020, 04:53
Сообщений: 87
Использую Visio c: 2000
Уровнь квалификации: начальный
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Уважаемые участники этой ветки и Visio-гуру не подскажете ли есть ли такая возможность в Visio
1.Точка соединения может иметь(получать) определенное имя (например получаемое от группы шейпов в которой состоит) через ячейки Shape Data/User Cells?
2.Линия (обычная) соединяясь с этими именованными точками соединения последовательно , получает их имена и записывает имена в список (например в пользовательские ячейки)?
3.То же самое что и п.2 только с линией соединения.
Пробую сделать кабельный журнал с полями откуда и куда. Эти откуда и куда и есть имена точек присоединения которые должна собрать линия.

В прикрепленном файле мои простенькие кабельки с возможностью получения отчета о длине,маркировке,марке кабеля. Может кому то поможет облегчить расчет трассировок для АУПС,СОУЭ,СОС.
По такому же принципу можно сделать короба,трубы и все, что нужно мерить в метрах.
Если удастся при черчении линии собирать имена точек присоединения(которые уже в извещателе и имеют имя равное обозначению УГО извещателя) то будет "почти" как в NanoCAD ОПС с указанием в КЖ откуда/куда.
Дополнено позднее: Данное обсуждение перенесено из ветки


Вложения:
test.vsd [102.5 Кб]
Скачиваний: 190


Последний раз редактировалось Surrogate 14 авг 2020, 08:28, всего редактировалось 1 раз.
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 08:11 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
fixer6 писал(а):
Уважаемые участники этой ветки и Visio-гуру не подскажете ли есть ли такая возможность в Visio
собственно в самом визио из коробки конечно такого нет !
Tumanov в сообщении #15130 писал(а):
Вся мощь Visio в том, что, добавив несколько шейпов и макросов, его легко приспособить к любой технологии. Это - движок для наращивания в нужную сторону.
да, в визио есть возможность расширения функциональности созданием интерактивных фигур и написанием макросов. насчет "легко" вопрос спорный: сделать это могут хотят не только лишь все!
Surrogate в сообщении #13916 писал(а):
gtfox писал(а):
7 Кабельный журнал
я делал такое решение для формирования таблицы кабельных соединений с учетом номеров слота/интерфейсного модуля/порта
данное решение можно взять и посмотреть как это делается
Дополнено позднее: таблица формируется в Экселе

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 09:53 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 2253
Очков репутации: 100626

Добавить очки репутацииУменьшить очки репутации
Цитата:
1.Точка соединения может иметь(получать) определенное имя через ячейки Shape Data/User Cells?

Точки соединения могут иметь имена, но назначаются они только вручную.
Цитата:
2.Линия (обычная) соединяясь с этими именованными точками соединения последовательно , получает их имена и записывает имена в список (например в пользовательские ячейки)?

Линия (обычная) имеет только два конца и может соединиться только с двумя точками. То есть последовательного соединения не бывает. Для этого нужно несколько линий.
Сама линия не может перебросить данные о присоединенном шейпе в список.
Цитата:
3.То же самое что и п.2 только с линией соединения.

То же самое.
--------------
Однако пункты 2 и 3 легко выполняются с применением макросов или Add-in. Обычно так и делается. Программа, перебирая шейпы, отбирает их по типу (линии) или другим признакам, находит подключенные шейпы и идентифицирует места подключения и сводит данные в отчет или куда-либо еще. Например, в кабельный журнал.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 10:59 
Не в сети
Постоянный участник
Аватара пользователя

Зарегистрирован: 13 авг 2020, 04:53
Сообщений: 87
Использую Visio c: 2000
Уровнь квалификации: начальный
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Содержимое спрятано под спойлер ↓
Спойлер:
Tumanov писал(а):
Цитата:
1.Точка соединения может иметь(получать) определенное имя через ячейки Shape Data/User Cells?

Точки соединения могут иметь имена, но назначаются они только вручную.
Цитата:
2.Линия (обычная) соединяясь с этими именованными точками соединения последовательно , получает их имена и записывает имена в список (например в пользовательские ячейки)?

Линия (обычная) имеет только два конца и может соединиться только с двумя точками. То есть последовательного соединения не бывает. Для этого нужно несколько линий.
Сама линия не может перебросить данные о присоединенном шейпе в список.
Цитата:
3.То же самое что и п.2 только с линией соединения.

То же самое.
--------------
Однако пункты 2 и 3 легко выполняются с применением макросов или Add-in. Обычно так и делается. Программа, перебирая шейпы, отбирает их по типу (линии) или другим признакам, находит подключенные шейпы и идентифицирует места подключения и сводит данные в отчет или куда-либо еще. Например, в кабельный журнал.


Про два конца линии которые могут получить данные от точек соединения я так и думал, что это ограничение не обойти. Пример с Т5_auto может мне помочь . Благодарю МАСТЕР.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 11:42 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Tumanov писал(а):
Точки соединения могут иметь имена, но назначаются они только вручную.
в данном примере имя точки соединения меняется в зависимости от выбранного значения из выпадающего списка в Shape Data
fixer6 писал(а):
будет "почти" как в NanoCAD ОПС с указанием в КЖ откуда/куда.
в данном вертикальном решении разработчики расширили базовый функционал нанокада, заточив его под специфические задачи ОПС. для реализации ваших задумок придется потратить энное количество часов :mrgreen:
один из пользователей форума делает свое решение для задач АСУ(ТП), возможно там вы сможете найти для себя что-то полезное!


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 12:22 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 2253
Очков репутации: 100626

Добавить очки репутацииУменьшить очки репутации
Цитата:
1.Точка соединения может иметь(получать) определенное имя через ячейки Shape Data/User Cells?

Цитата:
Tumanov писал(а):
Точки соединения могут иметь имена, но назначаются они только вручную.
в данном примере имя точки соединения меняется в зависимости от выбранного значения из выпадающего списка в Shape Data

Поясню. Если вспомнить вопрос, то будет понятно, что "вручную" означает "не с помощью настроек". То есть без программного вмешательства нельзя передать значение из Shape Data в имя строки.
А то, что программно можно выполнить практически все, что делает пользователь, нажимая на кнопочки, - это ни в коем случае не оспаривается.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 13:18 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Tumanov писал(а):
программно можно выполнить практически все, что делает пользователь, нажимая на кнопочки, - это ни в коем случае не оспаривается.
я просто привел пример, как это можно реализовать :mrgreen:

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 17:17 
Не в сети
Постоянный участник
Аватара пользователя

Зарегистрирован: 13 авг 2020, 04:53
Сообщений: 87
Использую Visio c: 2000
Уровнь квалификации: начальный
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Имя коннектора Viss(рис. спойлер1)..это вручную дописано в Таблице свойств фигуры к которой прилеплена точка соединения. Линия соединения при коннекте с точкой этот идентификатор получила. Обычная линия тоже его получает(если имеет один прямой сегмент, стоит создать еще сегмент и из таблицы свойств пропадает раздел 1-D Points ) . Программист из меня не айс, но попробую 1) с неручной вставкой(программно) доп.идентификатора точки присоединения из поля данных фигуры(группы) к которой точка прилеплена . Например буква(eng) с цифрой(порядковый номер) 2) получить этот идентификатор и передать его в ячейки данных(Shape Data) табл.св-в фигур линии соединения.
Содержимое спрятано под спойлер ↓
Спойлер:
Изображение


Макрос как раз это 1) с неручной вставкой. Благодарю за помощь.
Содержимое спрятано под спойлер ↓
Спойлер:
Sub Macro1()
Dim nm$, cl As Cell, sh As Shape
Set sh = ActiveWindow.Selection.PrimaryItem
nm = sh.CellsSRC(visSectionProp, 0, visCustPropsValue).ResultStr("")
sh.CellsSRC(visSectionConnectionPts, 0, visCnnctX).RowNameU = nm
End Sub


Вложения:
fixer_test2.vsd [75.5 Кб]
Скачиваний: 156


Последний раз редактировалось fixer6 14 авг 2020, 06:05, всего редактировалось 1 раз.
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 17:37 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
fixer6 писал(а):
Обычная линия тоже его получает(если имеет один прямой сегмент, стоит создать еще сегмент и из таблицы свойств пропадает раздел 1-D Points )
когда вы добавляете линии (а точнее отрезку), новый сегмент ядро визио преобразует фигуру из одномерной фигуры в двухмерную
Изображение
продолжение вашего предыдущего сообщения это вопрос или утверждение ?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 13 авг 2020, 18:23 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 2253
Очков репутации: 100626

Добавить очки репутацииУменьшить очки репутации
Цитата:
Имя коннектора Viss(рис. спойлер1)..это вручную дописано в Таблице свойств фигуры к которой прилеплена точка соединения. Линия соединения при коннекте с точкой этот идентификатор получила.

А вот это - вопрос философский. С точностью до понятия "получила".
Дело в том, что ячейка в шейп-листе имеет Значение (Value) и Формулу.
Формулы используются для вычислений и ссылок между ячейками.
Значения - это результат вычислений формулы (или константа или значение, полученное по ссылке).
Так вот, в ячейке BeginX на картинке под спойлером - это формула, а не значение. А значение там будет равно скольким-то мм или дюймам. Но оно не будет содержать желаемого текста "Sheet.1!Connections.Viss.X", из которого можно было бы выделить имя точки соединения. А значит такое "получение" нельзя использовать для передачи значения в список или просто в другую ячейку.
То есть получила, посмотрела и забыла.
----
Программно, конечно, можно прочитать и формулу. А потом выбрать из нее "Viss". Но программно обычно получают ту же информацию через свойство шейпа Connects (или FromConnects). Это более универсально, потому как в общем случае позволяет двигаться и в обратную сторону - из 2D шейпа в 1D.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 14 авг 2020, 13:40 
Не в сети
Постоянный участник
Аватара пользователя

Зарегистрирован: 13 авг 2020, 04:53
Сообщений: 87
Использую Visio c: 2000
Уровнь квалификации: начальный
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Посмотрел код и Т5_auto и отсюда connect и это пока не совсем то, что надо но реализация может мне помочь. А надо чтоб в ТСФ конкретного динамического соединителя в польз.ячейки вносились данные с какими фигурами(точками соединения) он соединился. Потом созданием отчета со слоя соед.линий все линии отдадут свои данные..Метры,спец.кабеля,маркировка и концы...Буду думать и ковырять vba(Shape.FromConnects) . Благодарю за помощь.


Последний раз редактировалось fixer6 14 авг 2020, 15:08, всего редактировалось 1 раз.

Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 14 авг 2020, 14:09 
Не в сети
Ветеран
Аватара пользователя

Зарегистрирован: 28 апр 2013, 14:03
Сообщений: 963
Откуда: Вена, Австрия
Использую Visio c: 1998
Очков репутации: 100614

Добавить очки репутацииУменьшить очки репутации
Я бы тоже смотрел в сторону генерации отчетов, и оставил бы шейпы в покое.
Если по готовой диаграмме ты сам можешь создать такой отчет, глядя на нее и свойства фигур, то и программно это сделать скорее всего можно.

_________________
Полезные инструменты для создания диаграмм Visio:
https://unmanagedvisio.com/


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 14 авг 2020, 15:06 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 2253
Очков репутации: 100626

Добавить очки репутацииУменьшить очки репутации
Можно сделать макрос, заполняющий данные в коннекторах.
Если не отвлекаться на обработку ошибок, то будет примерно так.
Это будет предподготовка перед запуском отчета на выполнение.


Вложения:
cc_2.vsd [23 Кб]
Скачиваний: 170
cc4.gif
cc4.gif [ 258.07 Кб | Просмотров: 2113 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 14 авг 2020, 15:31 
Не в сети
Постоянный участник
Аватара пользователя

Зарегистрирован: 13 авг 2020, 04:53
Сообщений: 87
Использую Visio c: 2000
Уровнь квалификации: начальный
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
ОТЛИЧНО!!!! По идентификатору точки можно узнать куда и откуда.А уже в идентификатор Connections.XXX (это XXX....) в разделе Connection Points можно передавать значения из Shape Data или User Cells. Например буквенно цифровой код девайса на кабеле(напр VTN_5_4), номер-код контакта(напр. XT2_33)...Только с ограничением (0-9,_, A-Z). Номера шейпов (Sheet.5) не имеют смысла, а вот точки соединения на фигуре с буквенныо-цифровой информацией задуманной пользователем имеют. Но это уже детали.. Мне остается все эти две вещи внедрить в специальный динамический соединитель с полями для ввода данных и сохранить в набор элементов..СПАСИБО!!!


Вложения:
cc_2_new.vsd [26.5 Кб]
Скачиваний: 144
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 14 авг 2020, 17:14 
Не в сети
Постоянный участник
Аватара пользователя

Зарегистрирован: 13 авг 2020, 04:53
Сообщений: 87
Использую Visio c: 2000
Уровнь квалификации: начальный
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Не совсем пока понятно почему у шейпов с цифрами (вл.файл), где после точки (Раздел Сonnection Points - Connections.***) дописывается значение через окно данных фигуры считывание этого значения соединителем после запуска макроса ttt не происходит(пишет цифру 1), а если вручную изменить через ТСФ(переписать например или другое), то соединитель считывает дописанное значение.


Вложения:
cc_3_new.vsd [63.5 Кб]
Скачиваний: 154


Последний раз редактировалось fixer6 14 авг 2020, 19:04, всего редактировалось 1 раз.
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 14 авг 2020, 18:27 
Не в сети
Administrator

Зарегистрирован: 30 авг 2009, 11:02
Сообщений: 2253
Очков репутации: 100626

Добавить очки репутацииУменьшить очки репутации
Возможно это связано с различиями между RowName и RowNameU.
--------
Ну, да.
RowName = 1
RowNameU = уу2
Нужно привести к чему-то одному. Или Name, или NameU
Проверяется так
Код:
Debug.Print ActiveWIndow.Selection(1).CellsSRC(visSectionConnectionPts, 0, visCnnctX).RowName
Debug.Print ActiveWIndow.Selection(1).CellsSRC(visSectionConnectionPts, 0, visCnnctX).RowNameU


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 14 авг 2020, 19:55 
Не в сети
Постоянный участник
Аватара пользователя

Зарегистрирован: 13 авг 2020, 04:53
Сообщений: 87
Использую Visio c: 2000
Уровнь квалификации: начальный
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Chr(34) & shp.Connects(1).ToCell.RowNameU & Chr(34)...ну все.Теперь клеммы ,девайсы на кабеле можно маркировать через окно данных НЕ ВЛЕЗАЯ в ТСФ. Файл с "клемниками" и отчетом по откуда куда прилагаю. Там очень полезный материал для разработчика сапр АСУ(ТП) . ПРЕКЛОНЯЮСЬ МАСТЕР ПЕРЕД ОПЫТОМ ! Гимор вручную писать через окно данных откуда и куда. Теперь это можно автоматизировать создавая шейпы с точками соединения и из точек брать отчет (например код разьема+номер контакта или код датчика на линии, светильника,розетки и т.д). В приложенном файле работает автонумерация клемм и порядковый номер переносится в "шифр" контакта .Через окно данных вносится базовый код разьема, Двойной клик на клемме вызывает макрос автонумерации.


Вложения:
cc_3_new.vsd [89 Кб]
Скачиваний: 156
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 14 авг 2020, 21:28 
Не в сети
Ветеран

Зарегистрирован: 26 авг 2019, 21:07
Сообщений: 267
Использую Visio c: 2019
Очков репутации: 11

Добавить очки репутацииУменьшить очки репутации
8-)
Содержимое спрятано под спойлер ↓
Спойлер:
Surrogate писал(а):
сделать это могут хотят не только лишь все!
все будет, сегодня в завтрашний день... мало кто может это делать!

А я сижу... жду прихода :mrgreen:... вдохновения и свободного времени... :roll:

_________________
САПР-АСУ
https://github.com/gtfox/
YouTube


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 15 авг 2020, 10:25 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
gtfox писал(а):
жду прихода ... вдохновения и свободного времени...
надеюсь на пополнение в копилке полезных макросов :)

Подобная тема поднималась ещё на старом форуме. Правда там все шло в виде обсуждений (никаких примеров и кода). Упоминались сайты Капотова и immortal'а, но когда я присоединился к этой движухе сайт последнего уже не работал. А за сайт Капотова я совсем не знаю, возможно что за более чем 15 лет он ушел в небытие.

_________________
База знаний ShapeSheet
Мой Youtube-канал @surrogate-tm
Мои трафареты


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Автоматическое создание кабельного журнала со схемы
СообщениеДобавлено: 15 авг 2020, 10:57 
Не в сети
Постоянный участник
Аватара пользователя

Зарегистрирован: 13 авг 2020, 04:53
Сообщений: 87
Использую Visio c: 2000
Уровнь квалификации: начальный
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Содержимое спрятано под спойлер ↓
Спойлер:
Код:
Sub ttt()
    Dim shp As Visio.Shape
    For Each shp In ActivePage.Shapes
        If shp.OneD Then
            n = shp.Connects.Count
            Select Case n
            Case 0:
                shp.Cells("Prop.begShp").Formula = ""
                shp.Cells("Prop.begPnt").Formula = ""
                shp.Cells("Prop.endShp").Formula = ""
                shp.Cells("Prop.endPnt").Formula = ""
                shp.Cells("Prop.bid").Formula = ""
                shp.Cells("Prop.eid").Formula = ""
            Case 1:
                s = shp.Connects(1).ToSheet.Name
                shp.Cells("Prop.begShp").Formula = Chr(34) & s & Chr(34)
                shp.Cells("Prop.begPnt").Formula = Chr(34) & shp.Connects(1).ToCell.RowNameU & Chr(34)
                m = s.get_Cells("Prop.sid").get_ResultStr("")
                shp.Cells("Prop.bid").Formula = Chr(34) & m & Chr(34)
                shp.Cells("Prop.endShp").Formula = ""
                shp.Cells("Prop.endPnt").Formula = ""
                shp.Cells("Prop.eid").Formula = Chr(34) & 44 & Chr(34)
            Case 2:
                s = shp.Connects(1).ToSheet.Name
                shp.Cells("Prop.begShp").Formula = Chr(34) & s & Chr(34)
                shp.Cells("Prop.begPnt").Formula = Chr(34) & shp.Connects(1).ToCell.RowNameU & Chr(34)
                m = s.get_Cells("Prop.sid").get_ResultStr("")
                shp.Cells("Prop.bid").Formula = Chr(34) & m & Chr(34)
                s = shp.Connects(2).ToSheet.Name
                shp.Cells("Prop.endShp").Formula = Chr(34) & s & Chr(34)
                shp.Cells("Prop.endPnt").Formula = Chr(34) & shp.Connects(2).ToCell.RowNameU & Chr(34)
                shp.Cells("Prop.eid").Formula = Chr(34) & 77 & Chr(34)
            End Select
        End If
    Next
End Sub

Что я делаю не так чтоб передать в ячейку линии связи shp.Cells("Prop.bid").Formula= значение из Cells("Prop.sid") фигуры с которой соединена линия связи? Явно проблема с правильным синтаксисом обращения к объекту и провалом в знании vba. На пальцах..при переборе кейсов нужно перебросить данные из присоединеной фигуры Prop.sid в ячейку линию связи Prop.bid или Prop.eid(зависит от конца начала соединения линии связи). Прошу помощи в поправке синтаксиса команды переброски - уверен что это всего одна строка но пока домыслил "горбатый код" который говорит что нужен обьект . Help me .
****
m = s.get_Cells("Prop.sid").get_ResultStr("")
shp.Cells("Prop.bid").Formula = Chr(34) & m & Chr(34)
****
Цель - унификация идентификатора к чему присоединен конец .Чтоб снять ограничение на символы. Через имя Connection Points не совсем удобно . Русские буквы и символы не ввести из-за ограничения на имя строки.Цель выводить соединения(номера разьемов-контактов,марки кабеля и всю другую требуху) через функционал стандартных отчетов Visio .


Вложения:
cc_7_new.vsd [86.5 Кб]
Скачиваний: 145
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 41 ]  На страницу 1, 2, 3  След.

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB