[Kajas]

Доброго времени суток. Есть небольшая проблема, имеется программа на Delphi, которая должна отрисовать точки согласно координатам. Подключаюсь к автокаду

Код:

[Выделить все]

 v:= CreateOleObject('AutoCAD.Application');
        Result := IDispatch(v) as IAcadApplication;

загружаю документ

Код:

[Выделить все]

S:=AcadApp.Application.Documents.Open(Edit2.text,1,'');

Создаю массив и заполняю значениями

Код:

[Выделить все]

Points:=VarArrayCreate([0,2], VarDouble);
  for j:=0 to StringGrid1.RowCount-2 do
 begin
  points[0]:=  StrToFloat(StringGrid1.Cells[0,j]);
  points[1]:=  StrToFloat(StringGrid1.Cells[1,j]);
  points[2]:=0.0;

Потом рисую точку

Код:

[Выделить все]

 PP:=AcadDocument1.Application.ActiveDocument.ModelSpace.AddPoint(Points);
  end;

Так вот, сначала выскакивает окно открытия шаблона, а затем точки ставятся в новом документе. Как сделать, чтоб рисовать в открытом файле?
Спасибо!

[DEM]

ТАк тебе надо подключится к открытому документу, а не новый создавать

Код:

[Выделить все]

Function GetAcadApplication(Visible: Boolean): IAcadApplication;
var
  v : OleVariant;
begin
  Try
// пытаемся присоединиться к уже запущенной копии AutoCad
    v := GetActiveOleObject('AutoCAD.Application');    
  Except
// если не получилось присоединиться, то запускаем новую копию AutoCad
    v:= CreateOleObject('AutoCAD.Application');
  end;
// приводим переменную типа OleVariant к типу IAcadApplication
  Result := IDispatch(v) as IAcadApplication;
// далее проверяем, надо ли делать приложение AutoCad видимым
  if Visible then Result.Visible := True;
end;

Объектная модель AutoCad применительно к языку программирования Delphi

[Kajas]

Этот код присутствует. Происходит вот так:
код нажатия кнопки отрисовка:

Код:

[Выделить все]

procedure TForm1.Button7Click(Sender: TObject);
var Points:OleVariant; PP:OleVariant; j:integer; S:IAcadDocument;
begin
S:=AcadApp.Application.Documents.Open(Edit2.text,1,'');
Points:=VarArrayCreate([0,2], VarDouble);
  for j:=0 to StringGrid1.RowCount-2 do
 begin
  points[0]:=  StrToFloat(StringGrid1.Cells[0,j]);
  points[1]:=  StrToFloat(StringGrid1.Cells[1,j]);
  points[2]:=0.0;
    PP:=AcadDocument1.Application.ActiveDocument.ModelSpace.AddPoint(Points);
  end;
AcadApp.ZoomAll;
ShowMessage('DONE!');
end;

Вот только АвтоКад выкидывает окно выбора шаблона. Я выбираю шаблон, он создаёт новый документ и в нем производит рисование. Но заданный файл он открывает.

[DEM]

ХММММ
Если честно то с Делфями Я еще пока на Вы, начал недавно разбираться.
Попробуйте по смотреть в Инете статьи по этому поводу, да и на Автокад.РУ темы есть. Ну и на нашем форуме что то обсуждалось.

[Kajas]

DEM, спасибо! Разобрался. Вы подтолкнули в нужном направлении. ))

[DEM]

Дык а в чем проблема то была.
А то Я с Делфями щаз разбираюсь, может и мне пригодится.