Форум пользователей 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 список фамилий. Полностью изменил описание.
|
Автор: | 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 Содержимое спрятано под спойлер ↓ Спойлер: ▼ В главной рамке есть такой пункт, а вот в лефтбокс нету. |
Автор: | 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. Сделал все как написали, вот такая "писюлька" осталась, как её обрезать? Вложение: 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 [ 133.64 Кб | Просмотров: 5765 ] Вот так надо расширить текстовый блок: Вложение: Microsoft Visio.jpg [ 247.87 Кб | Просмотров: 5800 ] |
Автор: | Surrogate [ 20 окт 2015, 11:52 ] | ||||||||||
Заголовок сообщения: | Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов | ||||||||||
Алексей писал(а): Еще один вопрос, как текстовый блок передвинуть? Алексей писал(а): Вот так надо расширить текстовый блок: передвинуть и расширить это две разные разницы!за передвинуть надо поиграться с PinX, LocPinX. Длина шейпа остается прежней
|
Автор: | Мария [ 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, 11:38 ] |
Заголовок сообщения: | Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов |
Ну и если есть заинтересованные люди - прошу в лс! дабы не оффтопить в теме. Ну, а если нет - будем рисовать ручками Спасибо всем за поддержку! |
Автор: | Tumanov [ 06 ноя 2015, 11:38 ] |
Заголовок сообщения: | Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов |
Цитата: По идее всю эту работу должны делать собственники предприятий, предоставляющих схемы, а я как проверяющий согласовывать или нет по ГОСТу Какой хороший вариант для разработчиков Разработчик выкладывает шаблон на своем сайте или в электронном магазине, а Вы рассказываете собственникам предприятий, где можно купить правильный шаблон по ГОСТ. И все довольны. Кстати, судя по ГОСТ, в шаблон помимо рамки не мешает включить еще и настроенную палитру. Уж больно жестко там цвета заданы. А сколько листов обычно занимает схема? И если лист не один, то какие штампы на последующих листах - такие же или нет? |
Автор: | nbelyh [ 06 ноя 2015, 11:43 ] |
Заголовок сообщения: | Re: Трафарет РД по ГОСТ Р 21.1101-2013 v4 с поддержкой макросов |
Tumanov писал(а): Цитата: По идее всю эту работу должны делать собственники предприятий, предоставляющих схемы, а я как проверяющий согласовывать или нет по ГОСТу Какой хороший вариант для разработчиков Разработчик выкладывает шаблон на своем сайте или в электронном магазине, а Вы рассказываете собственникам предприятий, где можно купить правильный шаблон по ГОСТ. И все довольны. Так и будет (через пару лет?), как мелкомягкие наконец раскачаются |
Автор: | 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/ |