Тема: Zoom object для SelectionSet
Уважаемые помогите разобраться. КАк в васике увеличить изображение по группе выделенных объектов (SelectionSet)
Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Zoom object для SelectionSet
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Уважаемые помогите разобраться. КАк в васике увеличить изображение по группе выделенных объектов (SelectionSet)
1) Для каждого из примитивов в SelectionSet найти GetBoundingBox minPt, maxPt
2) Получить минимальные из всех minX и minY для всех minPt, и максимальные maxX и maxY для всех maxPt. Из них сформировать две точки minPt и maxPt.
3) Выполнить ThisDrawing.Application.ZoomWindow minPt, maxPt
Вот пожалуй и всё...
Фенкс. Все решил проще через автоматизацию вызова комманд в коммандной строке (см их когда ручками делаешь все операции)
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Zoom object для SelectionSet
Форум работает на PunBB, при поддержке Informer Technologies, Inc