Delphi FMX：TModel3D 上的 Text3D（位置和旋转）

Question

我有一个用 N .obj-Files 描述的 3D 对象。例如，一个立方体由 6 个 .obj 文件描述。我将每个 obj-File 加载到 TModel3D 中：

files := TDirectory.GetFiles(aDirectory, '*.obj');
for I := 0 to Length(files) - 1 do begin
Self.Add(TModel3D.Create(nil));
Self.Items[Self.Count - 1].Parent := nil;
Self.Items[Self.Count - 1].Position.X := 0;
Self.Items[Self.Count - 1].Position.Y := 0;
Self.Items[Self.Count - 1].Position.Z := 0;
Self.Items[Self.Count - 1].TagString := 'File: ' + ExtractFileName(files[I]);
Self.Items[Self.Count - 1].HitTest := True;

Self.Items[Self.Count - 1].WrapMode := TMeshWrapMode.Original;

Self.Items[Self.Count - 1].LoadFromFile(files[I]);

它看起来像这样：

现在我想在每个表面上添加文本 ->所以我为每个 TModel3D 创建一个 TText3D：

Self.Items[Self.Count - 1].FText := TText3D.Create(Self.Items[Self.Count - 1]);
Self.Items[Self.Count - 1].FText.Parent := Self.Items[Self.Count - 1];
Self.Items[Self.Count - 1].FText.Text := (I + 1).ToString;
//
Self.Items[Self.Count - 1].FText.WordWrap := False;
//
Self.Items[Self.Count - 1].FText.Stretch := False;
Self.Items[Self.Count - 1].FText.Font.Size := 0.002;
Self.Items[Self.Count - 1].FText.Depth := 0.01;
Self.Items[Self.Count - 1].FText.Height := 0.2;
Self.Items[Self.Count - 1].FText.Width := 0.5;
Self.Items[Self.Count - 1].FText.scale.X := 1;
Self.Items[Self.Count - 1].FText.scale.Y := 1;
Self.Items[Self.Count - 1].FText.WrapMode := TMeshWrapMode.Fit;

Self.Items[Self.Count - 1].FText.RotationAngle.X := Self.Items[Self.Count - 1].MeshCollection[0].RotationAngle.X;
Self.Items[Self.Count - 1].FText.RotationAngle.Y := Self.Items[Self.Count - 1].MeshCollection[0].RotationAngle.Y;
Self.Items[Self.Count - 1].FText.RotationAngle.Z := Self.Items[Self.Count - 1].MeshCollection[0].RotationAngle.Z;

Self.Items[Self.Count - 1].FText.Position.X := Self.Items[Self.Count - 1].MeshCollection[0].Position.X;
Self.Items[Self.Count - 1].FText.Position.Y := Self.Items[Self.Count - 1].MeshCollection[0].Position.Y;
Self.Items[Self.Count - 1].FText.Position.Z := Self.Items[Self.Count - 1].MeshCollection[0].Position.Z;
end;

现在它看起来像这样：

问题是，我需要更改与 TModel3D 相比，每个 TText3D 的文本的 rotationAngle。我不知道如何计算旋转，也许使用“faceNormals”？

它应该是这样的（我手动更改了 rotationAngle）：

Answer 1

解决方案：
我为每个模型添加描述的方法是错误的。我在这里找到了一个解决方案： FireMonkey ViewPort procedure 计算不同的世界在 Mac 上屏幕

通过“WorldToScreen”功能，我能够为每个模型添加描述。