Author |
Topic |
|
immortal
Russia
391 Posts |
Posted - 09/10/2008 : 05:48:15
|
В общем чтобы полностью перейти при проектировании на визио надо реализацию видовых экранов, т.е. в фоне рисовать допустим план, а в листы вставлять отдельные виды этого плана, как в автокаде, ктонибудь рыл в этом направлении?
визио 2003 форэвер
...а вобще-то я белый и пушистый. |
|
GDK
Russia
90 Posts |
Posted - 09/11/2008 : 09:45:19
|
Полностью перейти на Visio скорее всего не прокатит. В автокаде 3D графика (типа полноценная). |
|
|
zhuravsky
Russia
115 Posts |
Posted - 09/12/2008 : 05:02:39
|
Зависит от работы. Я работал в Акаде лет 10, потом поменял работу и работаю теперь в Визио. Трехмерка не нужна, а рисовать схемы в Визио удобнее. |
|
|
immortal
Russia
391 Posts |
Posted - 09/12/2008 : 06:14:34
|
мы трехмерки не юзаем, всё устраивает, нужны только видовые экраны, неужели нет никакого шейпа?
визио 2003 форэвер
...а вобще-то я белый и пушистый. |
|
|
bdfy
Belarus
267 Posts |
Posted - 04/01/2009 : 14:33:42
|
тема актуальна. есть несколько листов (чертежи на них формируются макросом). масштаб так получилось что достаточно произвольный на каждом из них. нужно собрать на одном листе. в автокаде это на раз решается через видовые экраны, а вот что делать в визио вопрос... пока есть такая мысль: - содержимое листа выделять и сохранять в emf. - полученный рисунок вставлять на нужное место ( к сожалению не вижу способа просто вставить связь на emf рисунок как в том же Ворде) и масштабировать. предварительно правда нужно предыдущий (если есть) вставленный рисунок убирать.
Может есть идеи получше ? особенно интересует можно ли связь с векторным рисунком родными средствами визио сделать чтоб не возится с копированием/перемещением/удалением... |
Edited by - bdfy on 04/01/2009 14:38:34 |
|
|
bdfy
Belarus
267 Posts |
Posted - 04/06/2009 : 13:17:52
|
пока вот во что уперся quote: Set vsoSelection = ActiveWindow.Selection ActiveWindow.SelectAll Application.ActiveWindow.Selection.Copy 'копируем
Application.ActiveWindow.Page = Application.ActiveDocument.Pages.ItemU("А1-2")
Application.ActiveWindow.Page.PasteSpecial visPasteEMF, False, False
как теперь вернуть эту фигуру вставленную чтобы изменить ее местоположение/размеры ? |
|
|
Tumanov
Russia
1198 Posts |
Posted - 04/06/2009 : 15:51:07
|
Оно будет единственным селектированным шейпом на активной странице. Значит можно действовать примерно так Debug.Print ActiveWindow.Selection(1).NameID |
|
|
|
Topic |
|