Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.

Dim pux As Double = Parameter("PU_X")
Dim puy As Double = Parameter("PU_Y")

Dim a As Double
Dim b As Double

If pux > puy Then
    a = pux
    b = puy
Else
    a = puy
    b = pux
End If
iProperties.Value("Custom", "IU_X") = a
iProperties.Value("Custom", "IU_Y") = b