| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
06.08.2019, 09:56 | #1 | |
Создание видового экрана в модели видов VBA/ActiveX ACAD2017
Регистрация: 05.07.2018
Сообщений: 9
|
||
Просмотров: 6956
|
|
||||
Регистрация: 18.12.2010
Сообщений: 5,047
|
нужно задать Direction https://knowledge.autodesk.com/searc...A941C-htm.html
тут на форуме выкладовали мою прогу на VBA - которая всё это делает |
|||
|
||||
Регистрация: 05.07.2018
Сообщений: 9
|
я работаю только в 2-D, но все таки попробовал
добавил Код:
поигрался со значениями - результат в том что вращает вид и все у меня же проблема в том что координаты пляшут относительно текущего вида на экране чем сильнее приближаю текущий вид на экране тем ближе приближается созданный видовой экран |
|||
|
||||
Регистрация: 05.07.2018
Сообщений: 9
|
Direction - это направление вида по осям, мне он ничего не дает
попробовал поигаться со значениями - вращает по осям мне нужно только в 2-D у меня сдвиг координат происходит в зависимости от положения и масштаба экрана, не пойму почему и как сделать абсолютными значениями относительно указываемой точки пример того что получается на картинках прог на VBA очень много, дай хоть название или ссылку плиз |
|||
|
||||
Регистрация: 18.12.2010
Сообщений: 5,047
|
|
|||
|
||||
Регистрация: 05.07.2018
Сообщений: 9
|
понял свою ошибку - мне нужен не именованный видовой экран, а видовой экран в "Виды моделей"
который можно редактировать в ручном режиме в диспетчере видов и IAcadPViewport2 в экселе нет, есть только AcadView, AcadViewport, AcadPViewport AcadView - это видовой экран в "Виды моделей" пространства модели AcadViewport - это именованный видовой экран AcadPViewport - это видовой экран пространства листа мне нужно именно AcadView - это видовой экран в "Виды моделей" пространства модели |
|||
|
||||
Регистрация: 18.12.2010
Сообщений: 5,047
|
|
|||
|
||||
Регистрация: 05.07.2018
Сообщений: 9
|
References Autocad 2017 Type library который линкуется к экселю методом библиотеки объектов AutoCAD'а- не предоставляет
типы ни IAcadPViewport2, IAcadPViewport там вообще порезанные типы только те которые будут совместимы из внешних приложений присутствуют только AcadView, AcadViewport, AcadPViewport AcadView - это видовой экран в "Виды моделей" пространства модели AcadViewport - это именованный видовой экран AcadPViewport - это видовой экран пространства листа мне нужно именно AcadView - это видовой экран в "Виды моделей" пространства модели |
|||
|
||||
Регистрация: 05.11.2014
Сообщений: 978
|
Ну если не получится допилить, то это поможет
|
|||
|
||||
Регистрация: 14.12.2008
Сообщений: 1,079
|
Использую такой код для настройки размеров видового экрана:
НазначитьРазмерыЭкрана: Set objВидЭкран = objОбъект objВидЭкран.Width = dШирина objВидЭкран.Height = dВысота dЦентр(0) = dШирина / 2: dЦентр(1) = dВысота / 2 objВидЭкран.center = dЦентр |
|||
|
||||
Регистрация: 18.12.2010
Сообщений: 5,047
|
|
|||
|
||||
КЖ; C# Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,588
|
По ссылке пример для объектов: Arc, Circle, DimRadialLarge, Ellipse, PViewport, View, Viewport , круг там только как частный случай
и trir, как бы намекает, что нельзя менять координаты по отдельности, нужно разом: Код:
Цитата:
|
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание многоугольного видового экрана методом ActiveX | jackUAROBEY | Программирование | 2 | 05.10.2017 20:51 |
Прилипает курсор мыши к границам видового экрана - как отключить? | Geolog1900 | AutoCAD | 2 | 10.04.2015 15:20 |
Изменение масштаба видового экрана при зумировании | DianaChTailor | Программирование | 26 | 26.12.2014 21:02 |
Автоматическое создание "лишнего" скрытого видового экрана помимо нормального при активизации листа | Libed | AutoCAD | 5 | 06.10.2014 15:19 |
Создание видового экрана из прямоугольника в "Модели" в пространстве листа | wluk1958 | Программирование | 1 | 10.08.2012 10:26 |