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

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

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


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


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)



Начать новую тему Ответить на тему  [ Сообщений: 5 ] 
Автор Сообщение
 Заголовок сообщения: как убрать треугольники у стен в планах этажей
СообщениеДобавлено: 07 апр 2015, 16:59 
Подскажите как убрать треугольник, что появляются у стен в планах этажей. Они появляются вместе с размерами длины стен, но размеры могу убрать, а треугольники не могу и при распечатке они остаются. Где и в чем моя ошибка? ведь на первой схеме они появляются только когда выделяешь стену, когда делал следующие - сами треугольники так и остаются. Заранее благодарю...


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: как убрать треугольники у стен в планах этажей
СообщениеДобавлено: 07 апр 2015, 17:41 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
у каждой фигуры стена/размерная линия в свойствах фигуры Shapesheet™ есть параметр visBESelected
как я понял если выделяешь стену то этот параметр устанавливается 1 (т.е. фигура выделена), появляется этот треугольник.
как только сбрасываешь выделение - параметр ставится 0 и треугольник скрывается.
Изображение
в один прекрасный момент перестает ставиться 0 после сброса выделения фигуры. это не твоя ошибка, а глюк визио.

если в эту ячейку вписать формулу Guard(0)


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: как убрать треугольники у стен в планах этажей
СообщениеДобавлено: 07 апр 2015, 18:13 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
если совсем без порева, то решение такое
0. нужно включить режим Разработчика
Surrogate писал(а):
что по умолчанию в визио 2010 и 2013 эта панелька отключена…
Изображение
1. выделить все фигуры с треугольниками
2. Открываем окно редактора VBA клавишами Alt+F11
3. В нем жмем Ctrl+G
Изображение
4. Вставляем в окне Immediate см. картинку выше вставляем такую формулу
Код:
For i = 1 To ActiveWindow.Selection.Count: Set shp = ActiveWindow.Selection(i): shp.Cells("user.visBESelected").FormulaForceU = "GUARD(0)": Next i
5. Жмем клавишу Enter.


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: как убрать треугольники у стен в планах этажей
СообщениеДобавлено: 08 май 2016, 21:32 
Практика показывает, что надо добавить "On Error Resume Next".
Если таких файлов много, то лучше сделать пустой файл с этим макросом, не закрывая его открывать "кривой" файл, и запустить макрос, выьрав его в выпадающем списке "Макрос в"

Код:
Public Sub x()
On Error Resume Next
For i = 1 To ActiveWindow.Selection.Count
Set shp = ActiveWindow.Selection(i)
shp.Cells("user.visBESelected").FormulaForceU = 0
Next i
End Sub


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: как убрать треугольники у стен в планах этажей
СообщениеДобавлено: 16 май 2016, 15:19 
Не в сети
Administrator

Зарегистрирован: 02 окт 2009, 01:01
Сообщений: 3362
Откуда: оттуда
Использую Visio c: 1998
Отрасль: Связь
Должность: Бывший проектировщик
Уровнь квалификации: ShapeSheet, VBA
guest писал(а):
Практика показывает, что надо добавить "On Error Resume Next".
в коде из нескольких строк, да наверно можно поставить - ибо проблем с отладкой быть не должно Изображение
в данном случае ошибка вылетает если ошибочно выбрать фигуру, не содержащую user.visBESelected
guest писал(а):
Если таких файлов много, то лучше сделать пустой файл с этим макросом, не закрывая его открывать "кривой" файл, и запустить макрос, выьрав его в выпадающем списке "Макрос в"
IMHO лучше тогда использовать скрипт VBS, который будет править активный документ визио.
писать add-in для таких микрозадач это будет перебор Изображение


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

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



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

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


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

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