Malá oprava, respektive upřesnění.
Úhly, kterými se zadává orientace Tagu, nejsou Eulerovy, jako je známe z PartDesignu - z - x' - z'', ale Yaw, Pitch, Roll. Tedy rotace kolem os - x - y - z.

Uživatel odpovídá na příspěvek #6040:
Díky, pomohlo to.
Konvence yaw - pitch - roll mi trochu zamotala hlavu. Různé zdroje uvádějí pořadí a názvy osa/uhel odlišně. Pořád nevím jestli to je jen zvolené názvosloví nebo jestli to má hlubší smysl.

Dále mě zarazilo, jak vlastně vypočítat matici rotace. Podle většiny zdrojů rotace x-y-z se spočítá RzRyRx. V dokumentu od Vás rotaci z-y-x počítají zase jako RzRyRx.

Já mám rotaci x-y-z, tak jsem zkusil RxRyRz a konečně mi vycházejí správná čísla a všechno jde pěkně odvodit. Doufám, že ošetřením kvadrantů zajistím už 100 % správné výsledky. Což mě přivádí k dalšímu dotazu...

Mám funkci atan2, kde mi vstupují 2 hodnoty

Public Function Atan2(y As Double, x As Double) As Double

    If x > 0 And (y > 0 Or y = 0) Then

        Atan2 = Atn(y / x)

    ElseIf x < 0 Then

        Atan2 = Atn(y / x) + PI

    ElseIf x > 0 And y < 0 Then

        Atan2 = Atn(y / x) + 2 * PI

    ElseIf x = 0 And y > 0 Then

        Atan2 = PI / 2

    ElseIf x = 0 And y < 0 Then

        Atan2 = 3 * PI / 2

    End If

End Function

Jako y a x zadávám hodnoty z matice rotace, což jsou desetinná číška s des. čárkou. To způsobí chybu. Hodnotu y=0,707 funkce bere jako y=0, x=707. Poradíte, co mám změnit?

"CDbl" mi končí chybou mismatch.

Převést na text, nahradit čárku tečkou a pak převést zpět na číslo jsem už zkoušel pomocí "Val". Výsledek byl stejný jako na začátku - číslo s des. čárkou.

V makru jsem to obešel. Hodnoty x a y přiřazuji před voláním fce atan2.

Jinak po ošetření kvadrantů se zdá, že už makro funguje správně. Kdyby někdo řešil podobný problém, tak jsem našel šikovný dokument (s ošetřením kvadrantů a pseudocody):