Форум пользователей Visio
http://visio.getbb.ru/

Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов
http://visio.getbb.ru/viewtopic.php?f=3&t=834
Страница 2 из 3

Автор:  vin [ 16 сен 2015, 13:23 ]
Заголовок сообщения:  Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Кидаю новый трафарет рамки с применением макросов.
В отличии от версии 3 здесь есть возможность изменять сам шаблон, менять шрифты, переносить строки, да и сам он намного удобнее и нагляднее.
Подробное описание в прилагаемом файле.

Жду ваших комментариев.
Отсутствуют заимствования из трафарета оформление документации по ГОСТ 21.101-97 от Surrogate™!!!


Новая версия 4.2 - Исправлены ошибки.
1) При помещении Настроек документа на не пустую страницу, при закрытии окна вылетала ошибка.
2) Шаблона документа не менял в форме 3 список фамилий.

Полностью изменил описание.

Вложения:
Комментарий к файлу: Описание шаблона
Opisanie_v4_2.rar [807.85 Кб]
Скачиваний: 6485
Комментарий к файлу: ГОСТ Р 21.1101-2013 v4_2.vss
Ramka_v4_2.rar [251.3 Кб]
Скачиваний: 10549

Автор:  Shishok [ 18 окт 2015, 21:07 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Код:
' Переписываем формулы, указывающие на фонт, его размер и стиль
' Таким образом мы убираем наследование формул от мастера
' И только так работает обновление шрифтов (протестировано мною)
Public Function DropRamka(vsoShape As Visio.Shape)
     Dim Shp As Shape
     Dim TmpFormula As String, NmCell As Variant
     Dim ArCellName
     
     ' устанавливаем в шаблоне документа даты-константы, вместо формулы Now
     SetupDocDate vsoShape
     Exit Function
     
     ArCellName = Array("Char.Font", "Char.Size", "Char.Style")
     For Each Shp In vsoShape.Shapes
        'Debug.Print Shp.Name
        If (Shp.Shapes.Count > 0) Then
            DropRamka Shp
        End If
       
        For Each NmCell In ArCellName
            If (Not Shp.Cells(NmCell).IsConstant) Then
                'Debug.Print NmCell & "  " & Shp.Name
                TmpFormula = Shp.Cells(NmCell).Formula
                Shp.Cells(NmCell).FormulaForce = ""
                Shp.Cells(NmCell).FormulaForce = TmpFormula
            End If
        Next
     Next
     
     SetupDocDate vsoShape
End Function

В этой функции есть строка Exit Function. Следующий после нее код никогда не выполняется. Тогда зачем он? Или я чего-то не понял. :?:

Автор:  Surrogate [ 19 окт 2015, 01:15 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Уважаемый vin в последнее время редко заглядывает, попробую ответить сам
Алексей писал(а):
можно ли все надписи в трафарете (см. вложение) прописать на украинском языке
конечно можно, для этого
1. открыть ГОСТ Р 21.1101-2013 v4.vss файл в режиме редактирования.
2. дважды кликнуть по мастеру "Рамка", попадешь в внутрь группы
3. используя замену текста заменить русскоязычные надписи на те, что нужно
Алексей писал(а):
убрать один элемент без потери функциональности трафарета
по ходу невозможно угодить всем :)
в моем трафарете эта надпись скрывается автоматически, на втором и последующих листах.
у vin сделано по другому, с помощью окна свойств "Левая панель" - включена/отключена. Но отключается все боковые надписи.
поправить тоже можно:
влезть в внутрь мастера
1. выделить рамку, войти внутрь ее группы
2. Выделить боковую надпись LeftBox, войти внутрь ее группы
3. открыть выделить фигуру, открыть ее shapesheet
4. в секциях Geometry начиная с 13 по 27 в полях Geometry13.NoLine - Geometry27.NoLine поставить 1

не знаю, понял ли ты что-то в этой тарабарщине ?

Автор:  Евгени [ 19 окт 2015, 12:00 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Shishok писал(а):
Слово "заказЩик" в нескольких местах с ошибкой. :
в самом трафарете это слово не встречается, если пользователи Grammar Nazi, то напишут правильно.
Surrogate писал(а):
не знаю, понял ли ты что-то в этой тарабарщине ?
тут четкого ответа, не зная версии визио задавшего вопрос трудно дать.

Автор:  Алексей [ 19 окт 2015, 15:23 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Surrogate писал(а):
не знаю, понял ли ты что-то в этой тарабарщине ?
Спасибо с языком разобрался :)
Не могу найти секцию Geometry
Содержимое спрятано под спойлер ↓
Спойлер:
Вложение:
.png
.png [ 53.93 Кб | Просмотров: 5673 ]


В главной рамке есть такой пункт, а вот в лефтбокс нету.

Автор:  Surrogate [ 19 окт 2015, 15:36 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Алексей писал(а):
Не могу найти секцию Geometry
ты просто не выделил сам шейп с рамкой (sheet.39) мышью внутри группы LeftBox
самое верное средство использовать DrawingExplorer Window
Изображение
Алексей, если ты у тебя это окно DrawingExplorer Window активировано ?
Кстати у Sheet.38 - надписи Согласовано, тоже надо бы поставить 1 поле HideText.
Shishok в сообщении #6657 писал(а):
есть ведь чудесная ячейка для скрытия текста. Секция - Miscellaneous, ячейка - HideText.

Автор:  Алексей [ 19 окт 2015, 21:18 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Surrogate писал(а):
Алексей писал(а):
Не могу найти секцию Geometry
ты просто не выделил сам шейп с рамкой (sheet.39) мышью внутри группы LeftBox
самое верное средство использовать DrawingExplorer Window
Изображение
Алексей, если ты у тебя это окно DrawingExplorer Window активировано ?
Кстати у Sheet.38 - надписи Согласовано, тоже надо бы поставить 1 поле HideText.
Shishok в сообщении #6657 писал(а):
есть ведь чудесная ячейка для скрытия текста. Секция - Miscellaneous, ячейка - HideText.


Сделал все как написали, вот такая "писюлька" осталась, как её обрезать? :D

Вложение:
 21.1101-2013 v4.vssНабор элементовРамка - Microsoft Visio.jpg
21.1101-2013 v4.vssНабор элементовРамка - Microsoft Visio.jpg [ 177.34 Кб | Просмотров: 5966 ]

Автор:  Алексей [ 19 окт 2015, 21:26 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Все, не актуально, "писюлька" ампутирована, оказывается она на Geometry12.NoLine держалась.
Спасибо за помощь! ;)
Еще один вопрос, как текстовый блок передвинуть? Линии и текст я уже понял как убирать, а вот с таким еще не разобрался, пробовал с этим играться но ничего не получилось.
Вложение:
Microsoft Visio.jpg
Microsoft Visio.jpg [ 133.64 Кб | Просмотров: 5765 ]


Вот так надо расширить текстовый блок:
Вложение:
Microsoft Visio.jpg
Microsoft Visio.jpg [ 247.87 Кб | Просмотров: 5800 ]

Автор:  Surrogate [ 20 окт 2015, 11:52 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Алексей писал(а):
Еще один вопрос, как текстовый блок передвинуть?
Алексей писал(а):
Вот так надо расширить текстовый блок:
передвинуть и расширить это две разные разницы!
за передвинуть надо поиграться с PinX, LocPinX. Длина шейпа остается прежней
PinX
Sheet.81!Width*0
LocPinX
Width*0
за передвинуть и удлинить надо поиграться с PinX, LocPinX, Width
Width
Guard(Sheet.81!Width*175/185)
PinX
Sheet.81!Width*0
LocPinX
Width*0

Автор:  Мария [ 05 ноя 2015, 16:56 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Здравствуйте!
Немного оффтопа: а можно попросить вас сделать макрос другой рамки по ГОСТу?
За умеренное вознаграждение :?
Ну или рассказать каким способом это можно сделать))

Автор:  Евгени [ 05 ноя 2015, 17:20 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Мария
было бы не плохо раскрыть тему подробнее:

1. к какой рамке ? (выложите образец)
2. что должен делать макрос ?
и самое интересное:
3. каков размер вознаграждения

ну а если хотите сделать что-то сами - помучайте Surrogate™ вопросами

Автор:  Tumanov [ 05 ноя 2015, 19:35 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Если учиться, то начинать нужно со статьи Ничкова - http://visio.artberg.ru/biblio/st011.htm

Автор:  Мария [ 06 ноя 2015, 09:21 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Здравствуйте!
Я не уверена насколько именно необходимо исполнение его с помощью макросов, но мне очень понравился приведенный здесь блок рамка+штамп с возможностью заполнения.
Штамп для схем согласно национальному стандарту Российской Федерации ГОСТ Р 56303-2014 «Единая энергетическая система и изолированно работающие энергосистемы. Оперативно-диспетчерское управление. Нормальные схемы электрических соединений объектов электроэнергетики. Общие требования к графическому исполнению».

По идее всю эту работу должны делать собственники предприятий, предоставляющих схемы, а я как проверяющий согласовывать или нет по ГОСТу, но такая наша структура как РЖД не обладает достаточно квалифицированными для этого кадрами, а схемы по ГОСТу нужны мне, вот и получается что если хочешь что бы все было хорошо - сделай сам)) Поэтому и размер вознаграждения по рыночным меркам достаточно альтруистический :roll: но на месяц "безлимитного" болтания по телефону надеюсь хватит
Изображение

Автор:  Мария [ 06 ноя 2015, 11:38 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Ну и если есть заинтересованные люди - прошу в лс! дабы не оффтопить в теме.
Ну, а если нет - будем рисовать ручками :wall:
Спасибо всем за поддержку!

Автор:  Tumanov [ 06 ноя 2015, 11:38 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Цитата:
По идее всю эту работу должны делать собственники предприятий, предоставляющих схемы, а я как проверяющий согласовывать или нет по ГОСТу

Какой хороший вариант для разработчиков :)
Разработчик выкладывает шаблон на своем сайте или в электронном магазине, а Вы рассказываете собственникам предприятий, где можно купить правильный шаблон по ГОСТ. И все довольны.
Кстати, судя по ГОСТ, в шаблон помимо рамки не мешает включить еще и настроенную палитру. Уж больно жестко там цвета заданы.
А сколько листов обычно занимает схема?
И если лист не один, то какие штампы на последующих листах - такие же или нет?

Автор:  nbelyh [ 06 ноя 2015, 11:43 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Tumanov писал(а):
Цитата:
По идее всю эту работу должны делать собственники предприятий, предоставляющих схемы, а я как проверяющий согласовывать или нет по ГОСТу

Какой хороший вариант для разработчиков :)
Разработчик выкладывает шаблон на своем сайте или в электронном магазине, а Вы рассказываете собственникам предприятий, где можно купить правильный шаблон по ГОСТ. И все довольны.


Так и будет (через пару лет?), как мелкомягкие наконец раскачаются :)

Автор:  Мария [ 06 ноя 2015, 11:53 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Tumanov
проблема в том - что они вообще не умеют пользоваться ПО, все схемы еще с древних времен выведены по кальке и отсканированы! Автоматизировать никто ничего не хочет, а зато какая пиар компания и ребрендинг! :twisted:
В прошлом году я еле-еле перечертила все в эл.вид в визио (сама училась автокаду, но это ведь платное ПО! айайай), переплевалась и перепсиховала только так))
В этом году - здрасте нате - решили придумать новый ГОСТ :(
Проблему с цветами хотела решить настройкой слоев для каждого класса напряжения.
Схема по возможности всегда укладывается в 1 лист (обычно А3), если нет - играемся с форматами. Каждая схема - отдельный документ, никаких описаний/спецификаций в себе не несет.
Вот пример схемы (от греха подальше замылила текст немного)
Изображение

Автор:  Surrogate [ 06 ноя 2015, 16:35 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

500 рублей не спасут отца русской демократии©

Мария писал(а):
дабы не оффтопить в теме.

Surrogate™ лучше проведет очередной урок кройки и шитья :)

Мария, что конкретно должно заполняться в этом штампе
Изображение
думаю, обойтись без макросов можно.

Автор:  Tumanov [ 06 ноя 2015, 19:39 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Немножко в ГОСТе написано. Но роли подписывающих не указаны.
https://www.dropbox.com/s/rkr0mchx0rqlb ... 4.pdf?dl=0
Первый раз, кстати, вижу ГОСТ, рассчитанный на цветное изображение.

Автор:  Surrogate [ 07 ноя 2015, 00:53 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

Tumanov писал(а):
Первый раз, кстати, вижу ГОСТ, рассчитанный на цветное изображение.
дык Мария писала
Мария писал(а):
В этом году - здрасте нате - решили придумать новый ГОСТ :(
такие они новые ГОСТы!
Мария писал(а):
но такая наша структура как РЖД не обладает достаточно квалифицированными для этого кадрами
Зачем вы так, я в 2008 ездил в МЭС Юга, там были весьма прошаренные ребята.

Автор:  Мария [ 09 ноя 2015, 12:08 ]
Заголовок сообщения:  Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов

про МЭС - ни слова! там они знают цену схемам) с ними никаких приблем, да и чертят в автокаде)
а вот с иными субъектами э/э сложнее, мало кто из них заинтересован в грамотно и красиво оформленных нормальных схемах.
Спасибо Aleksandr за трафарет штампа! Дальше буду сама)

Страница 2 из 3 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/