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 cogName As String = "Teziste"

Dim doc As Document = ThisDoc.Document

Dim cog As WorkPoint
Try
    cog = doc.ComponentDefinition.WorkPoints(cogName)
    cog.SetFixed(doc.ComponentDefinition.MassProperties.CenterOfMass)
Catch
    cog = doc.ComponentDefinition.WorkPoints.AddFixed(doc.ComponentDefinition.MassProperties.CenterOfMass)
    cog.Name = cogName
End Try