Hallo
Ich habe ein Problem mit dem Scipt, es soll mir in der IDW eine Textbox erstellen und die Masse in kg anzeigen,
das funktioniert auch soweit, aber die Masse wir in Gramm dargestellt und in der Textbox ist irgend ein Fehler!
Hat jemand eine Idee wie ich die Masse in kg angezeigt bekomme und auf 0 Stellen gerundet?
Erstelle eine IDW positioniere eine Erstansicht mit einem Bauteil mit gültigen Masseeigenschaften und führe das Script aus!
Code:
Public Sub IDW_Textbox_mit_Masse()
Masse_Text = "Gewicht: <Property Document='Model' PropertySet='Design Tracking Properties' Property='Mass' ></Property> kg"
Set oGeneralNotes = ThisApplication.ActiveDocument.ActiveSheet.DrawingNotes.GeneralNotes
Set oTG = ThisApplication.TransientGeometry
Set oGeneralNote = oGeneralNotes.AddFitted(oTG.CreatePoint2d(25, 14), Masse_Text)
oGeneralNotes.Item(oGeneralNotes.Count()).TextStyle.FontSize = 3 * 0.254
oGeneralNotes.Item(oGeneralNotes.Count()).TextStyle.Rotation = pi / 2
End Sub
Gruß
Berno
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP