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

Тема: как открыть файл dwg?

Прошу строго меня не судить, делаю первые шаги в программировании по автокад...
Подскажите как можно из под делфи открыть файл dwg? Делаю так, но не получается....ъ
...
uses
ComObj;
....
var
Acad: OleVariant;
....
//Пытаемся запустить AutoCAD
Acad := CreateOleObject('AutoCAD.Application');
Acad.Visible:=True;
ModelSpace:=Acad.ActiveDocument.ModelSpace;
Acad.ActiveDocument.SendCommand('FILEDIA 0'+#13);
Acad.ActiveDocument.SendCommand('_open');
Acad.ActiveDocument.SendCommand('d:\1.dwg'+#13);
Acad.ActiveDocument.SendCommand('FILEDIA 1'+#13);

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

Re: как открыть файл dwg?

Попробуй так:

uses
ComObj;
....
var
Acad,Document1,Document,ModelSpace: OleVariant;
....
//Пытаемся запустить AutoCAD
Acad := CreateOleObject('AutoCAD.Application');
Acad.Visible:=True;
Document1 := Acad.ActiveDocument;
Document := Acad.Documents.Open('d:\1.dwg');
Model := Document.ModelSpace;
Document.Activate;
try Document1.Close(false); except end; // Закрываем "Чертеж1.dwg"