Sorry - ich bin kein Profi aber den Fehler hätte ich bemerken müssen.
Trotzdem hängt es immer noch.
Das Programm sieht jetzt so aus und wirft beim Compilieren folgende Meldung aus:
[Fehler] Unit2.pas(38): E2003 Undefinierter Bezeichner: 'GetActiveOleObject'
[Fehler] Unit2.pas(39): E2003 Undefinierter Bezeichner: 'IAcadModelspace'
[Fehler] Unit2.pas(39): E2015 Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Unit2.pas(40): E2003 Undefinierter Bezeichner: 'SafeArrayRef'
[Fehler] Unit2.pas(40): E2003 Undefinierter Bezeichner: 'IAcadCircle'
[Fehler] Unit2.pas(40): E2015 Operator ist auf diesen Operandentyp nicht anwendbar
[Fehler] Unit2.pas(44): E2029 '.' erwartet, aber ';' gefunden
[Fataler Fehler] acadtest.dpr(5): F2063 Verwendete
Unit 'Unit2.pas' kann nicht compiliert werden
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;
Ich würde mich riesig freuen wenn ich noch ans Ziel kommen würde
gruß
Joachim