Как отправить команды AutoCAD через VBA? - PullRequest
Новая
       19

Как отправить команды AutoCAD через VBA?

0 голосов
/ 02 июля 2019

Я пытаюсь сделать следующее, но через VBA:

  1. Открытый объект
  2. Отправить CTRL + 0 (_CleanScreenON)
  3. Отправить MouseClick * 2 = (._ZOOM All)
  4. Сохраните и закройте документ, возвращающийся в Access.

Но на самом деле все, что мне нужно понять, - это как открыть чертеж и отправить ему команды. Я не был успешным.

Мне известно о Документации по объектам AutoCAD , и я экспериментировал с SendCommand и PostCommand , но я получаю объект не не поддерживает ошибки автоматизации ... Может кто-то пролить свет на то, что я делаю неправильно?

Заранее спасибо, Рафаэль.

EDIT: Вот код, с которым я экспериментировал: 

Private Sub CenterDWG_Click()
'Me.DrawingFrame.Object.Open
Me.DrawingFrame.Object.SendCommand ("_CleanScreenON")
Me.DrawingFrame.Object.SendCommand ("._ZOOM All")
'Me.DrawingFrame.Object.Regen acAllViewports
End Sub
...