Увеличить объект MTEXT AutoCAD
Я получил базу данных доступа, которая содержит записи об объектах, которые имеют статическое местоположение на наших территориях, чтобы мы могли найти их, запрашивая БД.
EG: КОД ОПИСАНИЕ РАСПОЛОЖЕНИЕ
"E1-050505" "Столбы бетонные" "Улица №"
Теперь моя борьба заключается в том, чтобы на самом деле узнать, куда идти по нашей местности (потому что она большая), я должен обратиться к карте AutoCAD, там я проверю, где находится "Street #", выполнив поиск по тексту "E1-050505". Я нашел код VBA, который может открыть файл AutoCAD, а затем документ. Но я не нашел способа или команды, чтобы установить фокус на конкретном элементе управления или объекте.
Процедура будет такой: нажмите кнопку в форме доступа, VBA запустит мой файл САПР, найдет текст "E1-050505" и затем установит вид для визуального местоположения на чертеже AutoCAD для этого объекта.
Я могу найти и найти объект MTEXT, но я не нашел способа переместить "камеру" или вид, чтобы сфокусировать его.
Мне нужна команда или код, чтобы переместить представление в объект MTEXT.
1 ответ
Вы можете использовать опцию Object команды Zoom:
AcadApp.ActiveDocument.SendCommand "_ZOOM" & vbCr & "_O" _
& vbCr & "(handent """ & mtext.Handle & """)" & vbCr & vbCr