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

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

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


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


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

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



Начать новую тему Ответить на тему  [ Сообщений: 39 ]  На страницу Пред.  1, 2
Автор Сообщение
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 14:28 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
у меня есть непонимание по терминологии: поле шаблонов
Tumanov писал(а):
Проще всего из специального трафарета, который прикреплен к каждому документу, так называемый Document Stencil. Но он у каждого документа свой. Так что, если методика должна применяться в множестве документов, лучше сделать отдельный внешний трафарет или использовать уже имеющийся.
Изображение
если в документ стенсиле был мастер с именем an и ты его оттуда не удалил
то при вытягиании одноименного мастера уже из внешнего файла *.vss, в документ стенсиле
имя добавленого мастера получит некое дополнение типа an.4

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 14:33 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Вот, слева


Вложения:
.png
.png [ 31.66 Кб | Просмотров: 1283 ]
Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 14:35 
Не в сети
Content manager
Content manager
Аватара пользователя

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

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 14:39 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Вот
Содержимое спрятано под спойлер ↓
Спойлер:
Вложение:
screen.png
screen.png [ 90.04 Кб | Просмотров: 1255 ]


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

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

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 15:00 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Не понял - что и где посмотреть?

код:
Код:
          Set template = ActiveDocument.Masters("Outer")
          Set outer = ActivePage.Drop(template, centerX - 0.5, centerY - 0.5)


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

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
Код:
ActiveDocument.Masters("Outer")
Тут ты вытягиваешь из документ стенсила мастер
powercat писал(а):
Не понял - что и где посмотреть?
предыдущая гифка показывает, что в документ стенсиле (слева) 2 фигуры с похожим названием. в конце я вокруг них вожу мышой

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 15:17 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
У меня тут с гифками напряги, не вижу я их вообще )))

Слева у меня тот элемент, который я создавал вторым. После того, как я почистил от первоначальной версии, я второй вариант уже по всякому пытался прикрутить к файлу, он оказывался и в пустом поле, и в быстрых фигурах - один хрен - используется старый )))

Куда его физически закинуть надо, а не через VISIO?


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

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
здесь мы открываем внешний файл vss и тянем из него
Код:
Sub Macro1()
Dim vss As Document
Set vss = Application.Documents.OpenEx("C:\Users\surrogate\Desktop\outer.vss", visOpenRO + visOpenDocked)
Dim mst As Master
Set mst = vss.Masters.ItemU("outer")
ActivePage.Drop mst, 0, 0
End Sub

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


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

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

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 15:27 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

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


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

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

как я писал выше. если мастер с таким именем уже был в документ стенсиле, вновь добавленому мастеру визио добавит к имени некий индекс!!!

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 15:33 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Но я же удалил вообще все...как он может что-то там подцеплять...?


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

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
powercat писал(а):
Но я же удалил вообще все..
я не понял ты где и что удалил ? в vss или документ стенсиле ? а может где-то на листе ?
кодом же тянешь из документ стенсила !
Код:
ActiveDocument.Masters("Outer")

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 15:44 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Твой пример работает нормально - берется мой vss-файл и кидается на лист.

Вопрос в том, что я удалил из поля слева из всех разделов там все фигуры (я их никогда раньше не использовал и они мне не нужны), но при этом прога один хрен тянет старый шаблон...Значит он где-то сохранился, т.к. в сторонней папке он уже заменен, с поля шаблонов я удалил - а прога все равно где-то его берет. Вот оттуда, откуда она его цепляет я и хочу его физически удалить.


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

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

похоже в этом вся глубина глубин©®
запусти этот код и глянь что у тебя в документ стенсиле
Код:
Sub IterateDocumentStencil()
Dim mst As Master, str$
str = ""
For Each mst In ActiveDocument.Masters
If InStr(mst.Name, "outer") Then str = str & mst.Name & Chr(10)
Next
MsgBox str
End Sub

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


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 18 фев 2016, 16:03 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Один )))
Я сейчас сделал как в твоем примере, напрямую указав путь - все работает.

ДО этого - он откуда-то брал старый файл, хотя я его ВЕЗДЕ убил. Вот мне и интересно - где он был


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 19 фев 2016, 10:46 
Не в сети
Просто PowerCat
Аватара пользователя

Зарегистрирован: 16 фев 2016, 10:11
Сообщений: 282
Использую Visio c: 2000
Очков репутации: 2

Добавить очки репутацииУменьшить очки репутации
Ладно.
Благодарю вас обоих за ответы - раза в 4 ускорилась работа!


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Микрошаблон обозначения трубопровода
СообщениеДобавлено: 19 фев 2016, 11:32 
Не в сети
Content manager
Content manager
Аватара пользователя

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 5043
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Интеграция системных интеграторов
Должность: Дизайнер по оформлению документации
Уровнь квалификации: Форматирование документов MS Word
пускай будет в 4,5 раза. код соединяет центры нескольких фигур и добавляет выноски
Код:
Sub Multi()
' коллекция выделенных шейпов
Dim shps As Collection
Set shps = New Collection
' счетчик выделенных шейпов
Dim cnt%
' номер итерации
Dim i%
cnt = ActiveWindow.Selection.Count
If cnt < 2 Then MsgBox "Выдедено меньше 2 фигур, невозможно провести линию"
' координаты центра первой фигуры
Dim px1 As Single, py1 As Single
' координаты центра второй фигуры
Dim px2 As Single, py2 As Single
' координаты середины отрезка
Dim mx As Single, my As Single
' занесение шейпов коллекцию
For i = 1 To cnt
shps.Add ActiveWindow.Selection(i)
Next
For r = 2 To cnt
' определяем координаты центра первой выделенной фигуры
px1 = shps(i - 1).Cells("PinX")
py1 = shps(i - 1).Cells("PinY")
' определяем координаты центра второй выделенной фигуры
px2 = shps(i).Cells("PinX")
py2 = shps(i).Cells("PinY")
' рисуем отрезок, соединяющий центры фигур
ActivePage.DrawLine px1, py1, px2, py2
' вычисляем координату x середины отрезка
mx = (px1 + px2) / 2
' вычисляем координату x середины отрезка
my = (py1 + py2) / 2
' вытягиваем из трафарета выноску в точку с вычисленными координатами
Set ann = ActivePage.Drop(ActiveDocument.Masters("an"), mx, my)
Next
End Sub

тебе спасибо, что зарегистрировался на форуме Изображение


Дальнейшее оффтопик-обсуждение в этой ветке было разнесено по темам:
Как и чему учиться
как к линии прицепить текст?
Использование ChrW

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


Последний раз редактировалось Surrogate 04 мар 2016, 13:18, всего редактировалось 1 раз.
тема была разделена на несколько тем, объединенных по смыслу


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

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



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

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


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

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