Frage zu firemonkey

[Schuby]

Ich suche eine gute Anleitung um in FireMonkey Linien in einen Raum
zu zeichen die ich dann in 3D anschauen könnte.
Youtube bringt gute Viedeos aber nicht das was ich suche.
In Grafik habe ich noch nie etwas gemacht.

Ich habe eine CNC Software Programmiert und möchte meine
Fräsdaten per 3D anzeigen. Vielleicht ist firemonkey auch nicht das
richtige ? wie gesagt ich habe in 3D keine Ahnung, das ist alles neuland für mich.

vllt habt ihr Tipps für mich

mfg Schuby

[jaenicke]

Videos zum Programmieren sind halt so eine Sache...

Wenn du eine 3D Anwendung erstellt hast, brauchst du lediglich im OnRender des Formulars deine Zeichenbefehle einzusetzen. Beispiel für einen Würfel:

Delphi-Quellcode:

uses
  System.Math.Vectors;

procedure TFormXXX.Form3DRender(Sender: TObject; Context: TContext3D);
begin
  // Deckel
  Context.DrawLine(Vector3D(100, 200, 0), Vector3D(200, 200, 0), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 200, 0), Vector3D(200, 200, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 200, 100), Vector3D(100, 200, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(100, 200, 100), Vector3D(100, 200, 0), 1, TAlphaColorRec.Red);
  // Seiten
  Context.DrawLine(Vector3D(100, 200, 0), Vector3D(100, 100, 0), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 200, 0), Vector3D(200, 100, 0), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 200, 100), Vector3D(200, 100, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(100, 200, 100), Vector3D(100, 100, 100), 1, TAlphaColorRec.Red);
  // Boden
  Context.DrawLine(Vector3D(100, 100, 0), Vector3D(200, 100, 0), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 100, 0), Vector3D(200, 100, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 100, 100), Vector3D(100, 100, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(100, 100, 100), Vector3D(100, 100, 0), 1, TAlphaColorRec.Red);
end;

Du kannst aber auch Pfaddaten (SVG oder XAML) in FMX verwenden.

[Der schöne Günther]

Zitat von jaenicke:

Du kannst aber auch Pfaddaten (SVG oder XAML) in FMX verwenden

Meintest du als 2D oder als 3D-Darstellung?

[jaenicke]

Zitat von Der schöne Günther:

Meintest du als 2D oder als 3D-Darstellung?

Das sollte bei beidem funktionieren. So viel habe ich damit aber noch nicht gemacht, nur ein wenig ausprobiert.

[Schuby]

Zitat von jaenicke:

Videos zum Programmieren sind halt so eine Sache...

Wenn du eine 3D Anwendung erstellt hast, brauchst du lediglich im OnRender des Formulars deine Zeichenbefehle einzusetzen. Beispiel für einen Würfel:

Delphi-Quellcode:

uses
  System.Math.Vectors;

procedure TFormXXX.Form3DRender(Sender: TObject; Context: TContext3D);
begin
  // Deckel
  Context.DrawLine(Vector3D(100, 200, 0), Vector3D(200, 200, 0), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 200, 0), Vector3D(200, 200, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 200, 100), Vector3D(100, 200, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(100, 200, 100), Vector3D(100, 200, 0), 1, TAlphaColorRec.Red);
  // Seiten
  Context.DrawLine(Vector3D(100, 200, 0), Vector3D(100, 100, 0), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 200, 0), Vector3D(200, 100, 0), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 200, 100), Vector3D(200, 100, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(100, 200, 100), Vector3D(100, 100, 100), 1, TAlphaColorRec.Red);
  // Boden
  Context.DrawLine(Vector3D(100, 100, 0), Vector3D(200, 100, 0), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 100, 0), Vector3D(200, 100, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(200, 100, 100), Vector3D(100, 100, 100), 1, TAlphaColorRec.Red);
  Context.DrawLine(Vector3D(100, 100, 100), Vector3D(100, 100, 0), 1, TAlphaColorRec.Red);
end;

Du kannst aber auch Pfaddaten (SVG oder XAML) in FMX verwenden.

Danke, genau das war es was ich gesucht habe.



mfg Schuby

[Schuby]

Doch eine Frage habe ich noch.

Ähmm ich habe ja mein Programm mit <VLC Formularanwendung> erstellt.

Aber bei firemonkey musste ich eine <Geräteübergreifende Anwendung> erstellen.
Kann man die Geräteübergreifende Anwendung in meine VLC Anwendung bekommen ?

Oder müsste ich jetzt alles in der Geräteübergreifende Anwendung neu einprogrammieren ?


mfg Schuby

[mmw]

Hallo,

duerfte nicht so einfach sein.

http://docwiki.embarcadero.com/RADSt.../de/FireMonkey

als Zusatzinfo -

http://glscene.sourceforge.net/wikka/

https://www.openscad.org/index.html

Gruß

[TigerLilly]

Doch, das geht schon:
https://parnassus.co/tfiremonkeycont...g-vcl-and-fmx/

Google gibt noch mehr her.