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

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

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 7 ] 
Автор Сообщение
 Заголовок сообщения: Предлагаем свой контент для хранилища
СообщениеДобавлено: 23 сен 2020, 04:14 
Не в сети
Гуру
Аватара пользователя

Зарегистрирован: 18 июн 2013, 15:26
Сообщений: 41
Откуда: Сибирь
Использую Visio c: 2010
Отрасль: Пожарная охрана
Должность: Научный сотрудник
Уровнь квалификации: Мастера и трафареты, Shapesheet, VBA, C#, VSTO, data exchange
Очков репутации: 16

Добавить очки репутацииУменьшить очки репутации
Для начала вот на скорую руку накидал то чем сам чаще всего пользуюсь. Оказалось не так много на самом деле. больше всего возни с коллекциями. Потом еще добавлю класс вектора.


Вложения:
VAT.vss [24.5 Кб]
Скачиваний: 94

_________________

And may be from the darkness something beautiful will rize
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Обсуждение
СообщениеДобавлено: 23 сен 2020, 10:22 
Не в сети
Ветеран

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

Добавить очки репутацииУменьшить очки репутации
Оффтоп:
Вопрос к Obsidian
Могу ли я использовать Ваш экспорт кода (для коммита на GitHub) для своего открытого проекта?
Obsidian писал(а):
Для начала вот на скорую руку накидал то чем сам чаще всего пользуюсь. Оказалось не так много на самом деле. больше всего возни с коллекциями. Потом еще добавлю класс вектора.

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


Последний раз редактировалось gtfox 23 сен 2020, 10:49, всего редактировалось 2 раз(а).

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

Зарегистрирован: 18 июн 2013, 15:26
Сообщений: 41
Откуда: Сибирь
Использую Visio c: 2010
Отрасль: Пожарная охрана
Должность: Научный сотрудник
Уровнь квалификации: Мастера и трафареты, Shapesheet, VBA, C#, VSTO, data exchange
Очков репутации: 16

Добавить очки репутацииУменьшить очки репутации
gtfox писал(а):
Оффтоп:
Вопрос к Obsidian
Могу ли я использовать Ваш экспорт кода (для коммита на GitHub) для своего открытого проекта?
Obsidian писал(а):
Для начала вот на скорую руку накидал то чем сам чаще всего пользуюсь. Оказалось не так много на самом деле. больше всего возни с коллекциями. Потом еще добавлю класс вектора.

Да, конечно.

_________________

And may be from the darkness something beautiful will rize


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

Зарегистрирован: 18 июн 2013, 15:26
Сообщений: 41
Откуда: Сибирь
Использую Visio c: 2010
Отрасль: Пожарная охрана
Должность: Научный сотрудник
Уровнь квалификации: Мастера и трафареты, Shapesheet, VBA, C#, VSTO, data exchange
Очков репутации: 16

Добавить очки репутацииУменьшить очки репутации
В общем, времени не много как всегда, поэтому буду потихоньку запиливать макросы и выкладывать. По мере того как будет что-то оформляться, можно будет и в каком то ином виде оформить. Были бы макросы, а что с ними сделать - придумаем.

План пока таков:
1 макрос фиксации толщины линий
2 Класс вектора (очень часто бывает нужен)
3 Формирование коллекций фигур на основе значений ячеек

Предлагаю обменяться мыслями - кто что хочет сделать.

_________________

And may be from the darkness something beautiful will rize


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

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

Добавить очки репутацииУменьшить очки репутации
Obsidian писал(а):
gtfox писал(а):
Вопрос к Obsidian
Могу ли я использовать Ваш экспорт кода (для коммита на GitHub) для своего открытого проекта?
Да, конечно.
Благодарю!

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


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

Зарегистрирован: 18 июн 2013, 15:26
Сообщений: 41
Откуда: Сибирь
Использую Visio c: 2010
Отрасль: Пожарная охрана
Должность: Научный сотрудник
Уровнь квалификации: Мастера и трафареты, Shapesheet, VBA, C#, VSTO, data exchange
Очков репутации: 16

Добавить очки репутацииУменьшить очки репутации
Допилил макросы для фиксации толщины линий и размера шрифта фигур группы.
Вложение:
VAT.vss [26.5 Кб]
Скачиваний: 126

_________________

And may be from the darkness something beautiful will rize


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

Зарегистрирован: 18 июн 2013, 15:26
Сообщений: 41
Откуда: Сибирь
Использую Visio c: 2010
Отрасль: Пожарная охрана
Должность: Научный сотрудник
Уровнь квалификации: Мастера и трафареты, Shapesheet, VBA, C#, VSTO, data exchange
Очков репутации: 16

Добавить очки репутацииУменьшить очки репутации
Поправил всякие косяки и запилил класс для работы с коллекциями фигур.
Использовать для отбора и добавления в выделение (если нужно) можно примерно так:

Код:
Public Sub Test()
Dim sc As ShapesCollection
Dim args(2, 1) As String
Dim col As Collection
   
    Set sc = NewSC
   
    args(0, 0) = "Prop.Row_1"
    args(0, 1) = "ппп"
    args(1, 0) = "Prop.Row_2"
    args(1, 1) = "123"
    args(2, 0) = "Prop.Row_3"
'    args(1, 0) = "123"
    'Наполняем коллекцию фигурами с имеющимися ячейками
    sc.Fill(args)
    'выбираем все фигуры полученной коллекции
    sc.SelectSC
    'Получаем собственно коллекцию (обращаться к элементам можно по id фигуры)
    Set col = sc.GetShapesCollection
       
    Set sc = Nothing
End Sub

Предварительно добавить референс на VAT.vss. Args - набор пар Ячейка/Значение (двумерный массив) по которым происходит отбор нужных фигур. Можно например отобрать все фигуры значение ячеек Prop.Row_1 у которых равно "ппп". Если значение опущено отбираются все фигуры у которых такая ячейка в принципе существует.


Вложения:
.vsd [201.5 Кб]
Скачиваний: 64
VAT.vss [39.5 Кб]
Скачиваний: 91

_________________

And may be from the darkness something beautiful will rize
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 7 ] 

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



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

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


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

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