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 part As PartDocument = ThisDoc.Document
Dim sk3D As Sketch3D = part.ComponentDefinition.Sketches3D(1)
Dim helicalCurve As HelicalCurve = sk3D.HelicalCurves(1)

Dim clockwise As Boolean = (Parameter("SMYSL") = "LEVÝ")

helicalCurve.Definition.Clockwise = clockwise

part.Update()