Hier mal ein bischen Quellcode zum probieren:
Tool holt sich in der Zeichnungsableitung aus der Erstansicht das Gewicht des Bauteils (Baugruppe) und schreibt diese in ein Benutzerd. Eigenschaft des Bauteils, welche dann vom Schriftkopf ausgelesen werden kann!
Public Sub UpdProps()
Dim odoc As Document
Set odoc = ThisApplication.ActiveDocument
On Error Resume Next
Dim orefdoc As Document
Set orefdoc = odoc.ActiveSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
If Err Then
MsgBox ("Keine Erstansicht gefunden!")
End
End If
Dim oDim As DrawingView
Set oDim = odoc.ActiveSheet.DrawingViews.Item(1)
' Set a reference to the mass properties object.
Dim oMassProps As MassProperties
Set oMassProps = orefdoc.ComponentDefinition.MassProperties
' Set the accuracy to medium.
oMassProps.Accuracy = k_Medium
On Error GoTo MakeProp
Set oProperty = orefdoc.PropertySets _
.Item("User Defined Properties").Item("Gewicht")
oProperty.Value = Format(oMassProps.Mass, "0.00 kg")
...
Ich hoffe es hilft ein wenig!
Gruß Ralf
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP