CAD tip # 8717:

Je možné si pomoci jednoduchým makrem pro iLogic, které při spuštění vytvoří/aktualizuje polohu pracovního bodu "Teziste" v dokumentu modelu:

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