Již 10.000+ CAD tipů.
Přes 118.000 registrovaných u nás, celkem 1.092.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
CAD tip # 8717:
Otázka
A
Jak ve výkresu sestavy zobrazit a případně okótovat těžiště jednotlivých podsestav popř. součástí?
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
platí pro: Inventor ·