Treffer. MB ist mein härtester Konkurrent. Mein Vorbild ist aber DigCad 5.0 (find ich ziemlich genial, ist übrigens in Delphi geschrieben, vermute aber mal, daß die VDraw o. ä. drunter laufen haben, weiß es aber nicht).
Hallo Sir Rufo, ich hab intern alle Objekte in mm FloatPoint und berechne auch brav alles bezüglich dieser Koordinaten z.B. auch die Schnittpunkte. Mein Problem ist aber, daß z.B. die MouseDown-Koordinate viel zu ungenau ist?
Delphi-Quellcode:
procedure TCeCadForm.PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
begin
if (FCECad.CadDrawing in [cadLine..cadGraphic]) and (FCECad.CadMouseStatus = cmsWaitForMouseDown) then
begin
FCECad.CadMouseStatus := cmsWaitForMouseMove;
FCECad.Drawing := true;
end;
FCECad.MMP1 := PointToMMFloatPoint(Point(X, Y));
end;
end;