• Merlin
  • Восстановленный участник
  • На форуме с 6 апреля 2005г.
  • Сообщений: 15
  • Спасибо: 0

Тема: Как сделать зумирование, чтобы чертёж ровно встал в окне AUTOCAD?

Добрый день уважаемые знатоки AUTOCAD кто нибуть может мне подсказать как програмно сделать зумирование чтобы чертёж ровно встал в окне AUTOCAD?

  • На форуме с 27 марта 2003г.
  • Сообщений: 24
  • Спасибо: 0

Re: Как сделать зумирование, чтобы чертёж ровно встал в окне AUTOCAD?

Acad      := GetActiveOLEObject('AutoCAD.Application');
AcadDoc:= Acad.ActiveDocument;
AcadDoc.SendCommand('_ZOOM'+#13+'_ALL'+#13);

  • Merlin
  • Восстановленный участник
  • На форуме с 6 апреля 2005г.
  • Сообщений: 15
  • Спасибо: 0

Re: Как сделать зумирование, чтобы чертёж ровно встал в окне AUTOCAD?

попробую спасибо.,!

  • IceDog
  • Восстановленный участник
  • На форуме с 18 июня 2004г.
  • Сообщений: 5
  • Спасибо: 0

Re: Как сделать зумирование, чтобы чертёж ровно встал в окне AUTOCAD?

Мне тоже интересна эта тема
Я делаю так
AutoCAD.ZoomExtents;
Пробовал как советовал Алексей, но у меня выдает сообщение, что метод не поддерживается.
А к примеру такой вопрос?
Есть файл в котором уже нарисован квадрат. Даем команду из программы нарисовать внутри его меньший квадрат (например: в верхнем левом углу).
Как написать код в программе чтобы:
1. вывести маленький квадрат определенного размера в окне AutoCAD'a.
2. установить верхний левый угол маленького квадрата в определенную точку (точка - это координаты x,y на экране)
Кто-то может подсказать?

  • exAdmin
  • Восстановленный участник
  • На форуме с 29 августа 2005г.
  • Сообщений: 1
  • Спасибо: 0

Re: Как сделать зумирование, чтобы чертёж ровно встал в окне AUTOCAD?

посмотри хелп в объектной модели про метод ZoomWindow, (файл Program Files\AutoCAD 2004\Help\acadauto.chm)
Там неплохие примеры правда на бейсике
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
point1(0) = 1.3:
point1(1) = 7.8:
point1(2) = 0
point2(0) = 13.7:
point2(1) = -2.6:
point2(2) = 0
ZoomWindow point1, point2
Проверено, прекрасно работает...
В делфю переводиться без проблем
Там же найдете и ответ на второй вопрос про "...установить верхний левый угол маленького квадрата в определенную точку (точка - это координаты x,y на экране)..."

  • IceDog
  • Восстановленный участник
  • На форуме с 18 июня 2004г.
  • Сообщений: 5
  • Спасибо: 0

Re: Как сделать зумирование, чтобы чертёж ровно встал в окне AUTOCAD?

Спасибо Merlin. Попробую разобраться.

  • IceDog
  • Восстановленный участник
  • На форуме с 18 июня 2004г.
  • Сообщений: 5
  • Спасибо: 0

Re: Как сделать зумирование, чтобы чертёж ровно встал в окне AUTOCAD?

Увы! Ничего не получилось. Но это еще не конец.