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

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

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 54 ]  На страницу Пред.  1, 2, 3
Автор Сообщение
 Заголовок сообщения: Re: Shape с текстовым полем более одного
СообщениеДобавлено: 23 май 2019, 15:51 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Tumanov писал(а):
Таки Вы разобрались с задачей и считаете
конечно, не разобрался. это по силам только телепатам !
я просто уточняю, если топик-стартеру все так категорически не нравится в двух составляющих этого решения.
похоже он владеет полноценными языками программирования и профессиональными продуктами !
Tumanov писал(а):
для решения этой задачи установить пользователям данного предприятия еще один программный продукт
не для всех задач визио подходит. а в данном случае изобретается такой велосипед, силами одного человека
Tumanov писал(а):
что выгоднее
смотря какие критерии к определению выгоды применять ?
TheHeat писал(а):
П.С.С. Пока я писал ответ вы уже дали подсказку с On Error GoTo. Спасибо. Если кто не понял, я всего месяц занимаюсь VBA и многого не знаю и не могу найти.
ровно неделю назад, я давал ссылку в другой ветке
Surrogate в сообщении #13514 писал(а):
в VBA нет встроенного блока обработки исключений ! в ветке обсуждения можно посмотреть попытки выхода из ситуации: Try catch statement in VBA using the standard VBA error handling statements
TheHeat, вы попробовали вышеописанные способы ?

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Shape с текстовым полем более одного
СообщениеДобавлено: 23 май 2019, 16:20 
Не в сети
Бывалый

Зарегистрирован: 05 апр 2019, 12:47
Сообщений: 117
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
ровно неделю назад, я давал ссылку в другой ветке
Surrogate в сообщении #13514 писал(а):
в VBA нет встроенного блока обработки исключений ! в ветке обсуждения можно посмотреть попытки выхода из ситуации: Try catch statement in VBA using the standard VBA error handling statements
TheHeat, вы попробовали вышеописанные способы ?

да, вспомнил. Тогда времени не было посмотреть и впоследствии забыл это сделать. Спасибо.

Surrogate писал(а):
не для всех задач визио подходит. а в данном случае изобретается такой велосипед, силами одного человека

не для всех задач MS Office подходит (уж простите но я считаю Visio его частью) это правда. И на предприятии я не раз руководству намекал, что для про.документации нужны совсем другие программы уровня CAD. А подобные внедрения это всегда - пол года на обучения спеца + 1-2 года на обучение всех остальных сотрудников. Пока безрезультатно. НО! Я считаю, что мои макросы довольно простые и решают довольно тривиальные задачи.


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

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
TheHeat писал(а):
А подобные внедрения это всегда - пол года на обучения спеца + 1-2 года на обучение всех остальных сотрудников.
у вас там, что приборостроительный завод ? :shock:
сейчас не смог найти статью о внедрении nanocad, там было очень подробно расписано за сроки. нашел сегодня такую статью, к сожалению тут про окончательные сроки не сказано.
просто оставлю это здесь (с)
Дмитрий Маслов в статье Переход на платформу nanoCAD: первые шаги писал(а):
Процесс внедрения ПО в ОАО ТПИ «Омскгражданпроект» компания CSoft Омск начала еще на базе nanoCAD версии 3.1. За первые полгода почти все архитекторы и конструкторы прошли курс обучения работе с nanoCAD СПДС. Одновременно специалисты компании CSoft Омск проводили регулярные консультации с проектировщиками, выявляя их пожелания и замечания. Были созданы общая база объектов СПДС на сервере, индивидуальный штамп организации, шаблон *.dwt, соответствующий стандартам предприятия.
TheHeat писал(а):
Я считаю, что мои макросы довольно простые и решают довольно тривиальные задачи.
Выражу свое частное мнение: похоже вы их решаете не самым тривиальным способом :mrgreen:
TheHeat в сообщении #13489 писал(а):
может переименован, а может удален.
бесконечные переименования страниц, шейпов и мастеров и тому подобное, до добра не доведут!!! :D

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Shape с текстовым полем более одного
СообщениеДобавлено: 23 май 2019, 17:50 
Не в сети
Administrator

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

Добавить очки репутацииУменьшить очки репутации
Цитата:
Процесс внедрения ПО в ОАО ТПИ «Омскгражданпроект» компания CSoft Омск начала еще на базе nanoCAD версии 3.1. За первые полгода почти все архитекторы и конструкторы прошли курс обучения работе с nanoCAD СПДС. Одновременно специалисты компании CSoft Омск проводили регулярные консультации с проектировщиками, выявляя их пожелания и замечания. Были созданы общая база объектов СПДС на сервере, индивидуальный штамп организации, шаблон *.dwt, соответствующий стандартам предприятия.

Не хватает только уплаченной суммы. Она могла бы сказать о многом.


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

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Tumanov писал(а):
Не хватает только уплаченной суммы.
согласен, под них разрабатывались шаблоны, база и т.п.
Один из базовых продуктов из коробки стоит в четверо дороже голого Visio Professional!
Вы возьметесь реализовать весь заявленный функционал?
Каковы будут трудозатраты и себестоимость ?
Допускаю, что лично вы это осилите! Много ли других пользователей это потянут ?
Виктор-АПТ в сообщении #13334 писал(а):
Пока будем проект разрабатывать (минимум 5лет)
Визио будет уже облачным (скорее всего)... ;)
Есть гарантии, что платформа не изменится?

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


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

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

Добавить очки репутацииУменьшить очки репутации
Так во-первых ВЕСЬ функционал просто не нужен. Как я понеял, достаточно автоматизировать несколько операций.
Вот как раз чем и хорош Visio, что его можно приспособить куда угодно! Причем с небольшими затратами.
Во-вторых, Visio (на этом предприятии) уже есть. То есть покупать не надо. Даже standard.
В-третьих, как минимум один человек уже взялся и делает это.
Так что, если сравнивать все по совокупности, то Visio в большом отрыве :)
А там еще и обучение пользователей... nanocad - это не десяток макросов запомнить.


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

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

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Shape с текстовым полем более одного
СообщениеДобавлено: 23 май 2019, 23:51 
Не в сети
Бывалый

Зарегистрирован: 05 апр 2019, 12:47
Сообщений: 117
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Surrogate писал(а):
TheHeat писал(а):
А подобные внедрения это всегда - пол года на обучения спеца + 1-2 года на обучение всех остальных сотрудников.
у вас там, что приборостроительный завод ? :shock:
сейчас не смог найти статью о внедрении nanocad, там было очень подробно расписано за сроки. нашел сегодня такую статью, к сожалению тут про окончательные сроки не сказано.
просто оставлю это здесь (с)
Дмитрий Маслов в статье Переход на платформу nanoCAD: первые шаги писал(а):
Процесс внедрения ПО в ОАО ТПИ «Омскгражданпроект» компания CSoft Омск начала еще на базе nanoCAD версии 3.1. За первые полгода почти все архитекторы и конструкторы прошли курс обучения работе с nanoCAD СПДС. Одновременно специалисты компании CSoft Омск проводили регулярные консультации с проектировщиками, выявляя их пожелания и замечания. Были созданы общая база объектов СПДС на сервере, индивидуальный штамп организации, шаблон *.dwt, соответствующий стандартам предприятия.
TheHeat писал(а):
Я считаю, что мои макросы довольно простые и решают довольно тривиальные задачи.
Выражу свое частное мнение: похоже вы их решаете не самым тривиальным способом :mrgreen:
TheHeat в сообщении #13489 писал(а):
может переименован, а может удален.
бесконечные переименования страниц, шейпов и мастеров и тому подобное, до добра не доведут!!! :D

Задача написать простой макрос не стоит. Необходимо исключить ошибки у конечно пользователя и автоматизировать все что можно автоматизировать. Пот возможности выбираются самые простые пути. И Visio используется в крайнем случае.
Что касается бесконечного переименования и оптимизации, то я не понимаю что в этом плохого. Терпеть не могу (наравне с транслитом в именах переменных) когда боятся приводить код в эстетический вид и в процессе нарастает салат из разных стилей. Смешно до боли. Но в Visio походу нельзя ничего менять. Сегодня обнаружил, что переименование vss убивает все ссылки runmacro.
Это не я такой рукожоп. С Word у нас на предприятии тоже устали бороться со стилями номераций. В итоге документы сейчас формируются внешней программой.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Shape с текстовым полем более одного
СообщениеДобавлено: 24 май 2019, 00:00 
Не в сети
Бывалый

Зарегистрирован: 05 апр 2019, 12:47
Сообщений: 117
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
По хорошему MS нужно было сделать LTSB версию Visio без говнотем, автозамен и вообще всего со словом авто. Все это вредительство в чистом виде. У нас есть ещё Orcad Capture. Так там если текстовое поле скопировал, то оно разбивается автоматом на несколько строк. Того кто это придумал нужно казнить прилюдно. Если ты делаешь сотню операций в день с этими полями, то у тебя реально припекает.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Shape с текстовым полем более одного
СообщениеДобавлено: 24 май 2019, 00:26 
Не в сети
Administrator

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

Добавить очки репутацииУменьшить очки репутации
Цитата:
Под возможности выбираются самые простые пути.

Некоторые пути могут только казаться простыми. Особенно при недостатке опыта. Поэтому (я во всяком случае) часто прошу пояснить, какая решается задача. Неопытный разработчик может очень сильно осложнить решение просто не догадываясь о других путях.
Цитата:
Что касается бесконечного переименования и оптимизации, то я не понимаю что в этом плохого. Терпеть не могу (наравне с транслитом в именах переменных) когда боятся приводить код в эстетический вид и в процессе нарастает салат из разных стилей.

Переименования шейпов - это добавление ненадежности. Мина замедленного действия. Оптимизация кода - это совсем другое. И код без лишних действий будет только чище.
Цитата:
Сегодня обнаружил, что переименование vss убивает все ссылки runmacro.

Скорее всего Вы где-то допускаете ошибку. Но чтобы найти ее нужно видеть файлы, в которых она есть. Не только одну строчку кода.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Shape с текстовым полем более одного
СообщениеДобавлено: 24 май 2019, 09:38 
Не в сети
Бывалый

Зарегистрирован: 05 апр 2019, 12:47
Сообщений: 117
Использую Visio c: 2013
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
Tumanov писал(а):
Скорее всего Вы где-то допускаете ошибку. Но чтобы найти ее нужно видеть файлы, в которых она есть. Не только одну строчку кода.

Иногда я забываю разрешить редактирование vss и лезу в VBA, естественно сохранить он мне не дает. Если на данном этапе согласиться на "Сохранить как", а потом переименовать обратно, то все runmacro() перестают работать. Я разобрался. Имя Project name нужно поменять и все заработает.
Можно как-то не привязываться к ProjectName в данной ссылке?
Код:
runmacro("Module1.MacroName","ProjectName")

То есть, получить имя проекта из подключенного стенсила программно?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Shape с текстовым полем более одного
СообщениеДобавлено: 24 май 2019, 10:55 
Не в сети
Administrator

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

Добавить очки репутацииУменьшить очки репутации
Цитата:
То есть, получить имя проекта из подключенного стенсила программно?

Получить имена проектов программно можно. Например, так
Код:
Public Sub Vbe_Example()
    Set vbideVBE = Visio.Application.Vbe
    Debug.Print vbideVBE.VBProjects.Count
    For Each Proj In vbideVBE.VBProjects
        Debug.Print Proj.Name
    Next
End Sub

Только для этого нужно открыть программный доступ к проектам VBA (Trust access to the VBA project object model), что не рекомендуется в целях безопасности.
Но потом ведь понадобится передать это имя в шейпы? Или добавить нечто вроде "прокси"-процедуры, которая перенаправляла бы вызов макроса в нужный проект?
Все это тоже можно сделать, но как раз и возникает вопрос о "накрутках" и излишнем усложнении решения.
Гораздо проще обеспечить неизменность имени проекта.
Пусть забыли включить редактирование. Сохраните трафарет под другим именем. Потом откройте оба трафарета и скопируйте текст из нового трафарета в старый. Или через экспорт-импорт замените нужные модули.
Проблем будет гораздо меньше.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Shape с текстовым полем более одного
СообщениеДобавлено: 27 май 2019, 13:20 
Не в сети
Administrator

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

Добавить очки репутацииУменьшить очки репутации
Цитата:
Я разобрался. Имя Project name нужно поменять и все заработает.
Можно как-то не привязываться к ProjectName в данной ссылке?
runmacro("Module1.MacroName","ProjectName")
То есть, получить имя проекта из подключенного стенсила программно?

Сейчас сочинял статью и припомнил еще один вариант вызова. Вот посмотрите на код ниже. Он размещается в основном проекте и вызывается из шейпа по CALLTHIS (чтобы передать параметр).
=CALLTHIS("ThisDocument.StartTest",,3)
Но это не так важно. Зато потом этот макрос обращается к макросу, размещенному в трафарете методом ExecuteLine. И здесь уже никакого имени проекта не требуется. Документ определяется по имени трафарета.
Код:
Public Sub StartTest(shpObj As Visio.Shape, ByVal mode As Integer)
    Dim Col As Collection
    Set Col = New Collection
    Col.Add ActivePage.Shapes.ItemFromID(1)
    Col.Add ActivePage.Shapes.ItemFromID(3)
    Col.Add ActivePage.Shapes.ItemFromID(12)
    Set doc = Documents("Indicator.vss")
    If doc Is Nothing Then
        MsgBox "Indicator.vss must be open"
        Exit Sub
    End If
   
    Set doc.Coll = Col
    Select Case mode
    Case 1:
        doc.ExecuteLine "ThisDocument.ViewResult_msg ThisDocument.Coll"
    Case 2:
        doc.ExecuteLine "ThisDocument.ViewResult_sel ThisDocument.Coll"
    Case 3:
        doc.ExecuteLine "ThisDocument.ViewResult_mark ThisDocument.Coll"
    Case Else:
        doc.ExecuteLine "ThisDocument.ViewResult_color ThisDocument.Coll"
    End Select
End Sub


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

Зарегистрирован: 04 сен 2019, 13:42
Сообщений: 8
Использую Visio c: 2019
Уровнь квалификации: -
Очков репутации: 0

Добавить очки репутацииУменьшить очки репутации
TheHeat писал(а):
По хорошему MS нужно было сделать LTSB версию Visio без говнотем, автозамен и вообще всего со словом авто. Все это вредительство в чистом виде.
Боюсь тогда получится что-то вроде Визио 2003 ! Это может негативно сказаться на продажах новейших версий.
Наша организацию недавно перевели на облачный офис и Визио тоже проапгрейдили. Потом добрые люди сообщили про даунгрейд по такой же схеме
Гость писал(а):
Изображение
жестоко как!
в итоге контора платит около 10тыр в год за новую версию, а по факту пользуемся старой


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

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



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

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


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

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