Hallo,
änder das mal:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
Acad, vPoint,MSpace,Circle : OleVariant;
begin
vPoint := VarArrayCreate([0,2],1);
vPoint[0] := 2.0; vPoint[1] := 4.0; vPoint[2] := 0.0;
Acad := GetActiveOleObject('AutoCAD.Application.24');
Mspace := IDispatch(Acad.ActiveDocument.ModelSpace) as IAcadModelspace;
Circle := IDispatch(Mspace.AddCircle(SafeArrayRef(vPoint), 10.0)) as IAcadCircle;
Circle.Update;
end;
end; // [Fehler] Unit2.pas(44): E2029 '.' erwartet, aber ';' gefunden
scheinbar kennt die
Unit diese Bezeichner (Klassen) nicht.
[Fehler] Unit2.pas(38): E2003 Undefinierter Bezeichner: 'GetActiveOleObject'
[Fehler] Unit2.pas(39): E2003 Undefinierter Bezeichner: 'IAcadModelspace'
[Fehler] Unit2.pas(40): E2003 Undefinierter Bezeichner: 'SafeArrayRef'
[Fehler] Unit2.pas(40): E2003 Undefinierter Bezeichner: 'IAcadCircle'
Sind die notwendigen Units eingebunden?
Grüße
Klaus