Witam Drogi forum,
Jeszcze raz zwracam się do Państwa z prośbą o pomoc. Szukam makra, aby wstawić oprogramowanie Bom do naszych rysunków . Idealnie byłoby, gdybym był w stanie wskazać ścieżkę, w której należy szukać BOM i wskazać, który BOM należy pobrać z katalogu.
Po co? Wdrażamy DriveWorks w naszej firmie i chcemy wykorzystać jak najwięcej z tego, co już zostało zrobione, aby przyspieszyć proces, a nasze BOM-y są jego częścią. Jeśli masz coś, co mogę dostosować do naszych potrzeb, byłbym wdzięczny.
Z góry dzięki!
Eric
Witam
Kiedy mówisz "Idealnie chciałbym mieć możliwość wskazania ścieżki, w której należy szukać BOM i wskazać, który BOM należy pobrać z katalogu", czy jest to szablon BOM (plik .sldbomtbt), czy BOM już wypełniony?
Pozdrowienia
Witam
W poniższym linku dowiesz się, jak zintegrować BoM ze swoim planem za pomocą makra:
https://help.solidworks.com/2015/english/api/sldworksapi/Insert_BOM_Table_Example_VB.htm
W przeciwnym razie niedawno napisałem ten kod, aby umieścić ogólną tabelę w określonym miejscu zgodnie z rozmiarem planu, jeśli może ci to pomóc:
Sub InsertRevisionTable()
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swDrawing As SldWorks.DrawingDoc
Dim swTable jako SldWorks.TableAnnotation
Przyciemnij swSheet jako SldWorks.Sheet
Dim vSheetNames jako wariant
Przyciemnij vSheetProperties jako wariant
Dim sTemplateName As String
Dim i jako liczba całkowita
Dim lErrors tak długo
Dim lOstrzeżenia tak długo
Wysokość przyciemniania Jako pojedynczy
Przyciemnij szerokość jako pojedynczy
Ustaw swApp = Application.SldWorks
Ustaw swModel = swApp.ActiveDoc
Ustaw swDrawing = swModel
"Sprawdź format arkusza
Ustaw swSheet = swDrawing.GetCurrentSheet
vSheetProperties = swSheet.GetProperties
Jeśli vSheetProperties(0) = 12, to 'Format A3
Wysokość = 0.015985
szerokość = 0,010362
ElseIf vSheetProperties(0) = 7 Then ' Format A4
Wysokość = 0,015
szerokość = 0,057
ElseIf vSheetProperties(0) = 9 Then 'Format A2
Wysokość = 0.015985
szerokość = 0,010362
Zakończ jeżeli:
' Koniec, jeśli
"Następny i
"Koniec, jeśli
Set swTable = swDrawing.InsertTableAnnotation2(False, wysokość, szerokość, swBOMConfigurationAnchor_BottomLeft, "J:\Solidworks\Templates\Revision-Table.sldtbt", 4, 2)
Koniec subwoofera
Witaj d.roger,
To jest szablon struktury produktu.
Pozdrowienia
Eric
Witam
Oto makro, od którego musisz zacząć działać, aby zrobić to, co chcesz. Pozwala to na wstawienie nomenklatury lub tabeli ogólnej, w zależności od wyboru typu pliku wybranego w oknie wyboru pliku szablonu.
Pozdrowienia
makroinsertbomlynkoa.swp