Hallo liebes Forum,
kann mir jemand helfen, diesen Code anzupassen? Es funktioniert sehr gut, jedoch möchte ich, dass dieser nur in der Baugruppe ausgeführt wird, nicht beim Speichern einer Datei. Da kommt immer ein Fehler, weil er ein Problem hiermit hat: Set oDoc = ThisApplication.ActiveDocument
Meine VBA-Kenntisse sind leider nicht besonders.
Public Sub BOMSort()
' Set a reference to the assembly document.
' This assumes an assembly document is active__Setzen Sie einen Verweis auf das Baugruppendokument.
' Dies setzt voraus, dass ein Baugruppendokument aktiv ist.
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
' Set a reference to the BOM___Setzen Sie einen Verweis auf die Stückliste
Dim oBOM As BOM
Set oBOM = oDoc.ComponentDefinition.BOM
Dim FirstLevelOnly As Boolean
'If MsgBox("First level only?", vbYesNo) = vbYes Then
' FirstLevelOnly = True
' Else
' FirstLevelOnly = False
' End If
' Make sure that the structured view is enabled___Stellen Sie sicher, dass die strukturierte Ansicht aktiviert ist.
oBOM.StructuredViewEnabled = True
' Set a reference to the "Structured" BOMView___Setzen Sie einen Verweis auf die „Structured“ BOMView
Dim oStructuredBOMView As BOMView
Set oStructuredBOMView = oBOM.BOMViews.Item("Strukturiert")
Call oStructuredBOMView.Sort("Bauteilnummer")
Call oStructuredBOMView.Renumber(1, 1)
' Set a reference to the "onlyParts" BOMView__Setzen Sie einen Verweis auf die BOMView "onlyParts".
Dim oonlyPartsBOMView As BOMView
Set oonlyPartsBOMView = oBOM.BOMViews.Item("nur Bauteile")
Call oonlyPartsBOMView.Sort("Bauteilnummer")
Call oonlyPartsBOMView.Renumber(1, 1)
End Sub
Danke
------------------
Gruß Kathrin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
| 
