| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA Autocad. Выбор области отображения видового экрана.

VBA Autocad. Выбор области отображения видового экрана.

Ответ
Поиск в этой теме
Непрочитано 13.07.2017, 13:38 #1
VBA Autocad. Выбор области отображения видового экрана.
ramber
 
Регистрация: 18.04.2011
Сообщений: 35

Добрый день!

Я создал видовой экран, как мне указать область в пространстве модели, которую нужно отображать в видовом экране?
Выставлять масштаб экрана я научился

Код:
[Выделить все]
    Set newVport = ThisDrawing.PaperSpace.AddPViewport(center, 60, 50)

    newVport.Display True

    ThisDrawing.MSpace = True 'переключение в модель в видовом экране

    ThisDrawing.ActivePViewport = newVport

    ZoomScaled 1, acZoomScaledRelativePSpace ' тут ставлю масштаб видового экрана

    ThisDrawing.MSpace = False
Просмотров: 4782
 
Непрочитано 16.07.2017, 23:40
#2
Theodor


 
Регистрация: 16.04.2009
Петрозаводск
Сообщений: 323


Попробуйте воспользоваться свойством
newVport.Target

Dim VPCoord(0 To 2) As Double
задается точка в координатах модели, это будет центр в видовом экране
VPCoord(0)=100
VPCoord(1)=200
VPCoord(1)=0
newVport.Target=VPCoord
масштаб я корректирую так (у меня 1:1)
ViewScr.CustomScale = 1 / 1

размер видового экрана (если надо исправить)
newVport.Height = 500
newVport.Width = 600

Кстати, сталкивался с проблемой несовпадения указанного центра в модели с реальным отображением (были какие-то странные смещения). Но пока не столкнетесь, не буду вас грузить.
Theodor вне форума  
 
Непрочитано 07.08.2019, 08:03
#3
Overl0rd555


 
Регистрация: 05.07.2018
Сообщений: 9


Цитата:
Сообщение от Theodor Посмотреть сообщение
Кстати, сталкивался с проблемой несовпадения указанного центра в модели с реальным отображением (были какие-то странные смещения). Но пока не столкнетесь, не буду вас грузить.
Я столкнулся со смещениями, подскажите как вы их решили
в зависимости от масштаба и положения экрана

возможно может и не ваш случай, но все равно распишите что у вас было и как решили
Миниатюры
Нажмите на изображение для увеличения
Название: приложение-3.png
Просмотров: 32
Размер:	45.8 Кб
ID:	216574  Нажмите на изображение для увеличения
Название: приложение-4.png
Просмотров: 24
Размер:	50.5 Кб
ID:	216575  
Overl0rd555 вне форума  
 
Непрочитано 15.09.2019, 19:51
#4
Theodor


 
Регистрация: 16.04.2009
Петрозаводск
Сообщений: 323


Цитата:
Сообщение от Overl0rd555 Посмотреть сообщение
Я столкнулся со смещениями, подскажите как вы их решили
в зависимости от масштаба и положения экрана
Да в общем-то в лоб - корректировкой координат некими непонятными, полученными тыком - константами. У меня масштаб всегда один и тот же, ну и константы менять не приходится.
вот такие цифры были при масштабе 1 к 1. Положение и размер видового вроде ни как не влияли : arrVPPoint(0) = arrVPPoint(0) - 144.7271: arrVPPoint(1) = arrVPPoint(1) - 100.8062.
Попробуйте собрать информацию, на какие значения у вас смещение, может есть закономерность.
Theodor вне форума  
 
Непрочитано 16.09.2019, 11:24
#5
Overl0rd555


 
Регистрация: 05.07.2018
Сообщений: 9


закономерность есть но я не понял какая - поэтому и спрашивал
закономерность относительно текущего положения экрана и масштаба
но что именно и как это вычислить - не получилось
Overl0rd555 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > VBA Autocad. Выбор области отображения видового экрана.

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Autocad 2013 - выравнивание внутри видового экрана peneks AutoCAD 7 19.04.2018 10:37
Как совместить угол видового экрана с определенной точкой на модели, указав координаты точки на модели. Landsurvey AutoCAD 3 26.09.2013 17:35
Частичное отображение границ видового экрана Андрей Будзинский AutoCAD 19 12.12.2009 22:27