| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | CAD/CAM-Workshop in Suhl-Friedberg: SolidCAM + SOLIDWORKS |
Autor
|
Thema: Konfiguration der Stücklisten per Makro/API wechseln (430 mal gelesen)
|
matloh Mitglied Entwicklungs Ingenieur
Beiträge: 24 Registriert: 17.08.2005
|
erstellt am: 18. Dez. 2005 21:26 <-- editieren / zitieren --> Unities abgeben:
Hallo, Ich möchte gerne per Makro die Konfigruation der Stücklisten ändern. Über welche Objekte und Methoden kann ich auf meine Stücklisten in einer Zeichnung zugreifen und sie ändern? Ich habe folgende Function, die mir automatisch die Konfiguration meiner Ansichten ändert. Nun sollen halt noch die Stücklisten angepasst werden. Leider funktioniert es aber so offensichtlich nicht.
Code:
Public Function NeueKonfSetzen(Blattname As String, Zeichenansicht As String, ModelName As String, Konfigname As String) Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swDraw As SldWorks.DrawingDoc Dim swSheet As SldWorks.Sheet Dim swActiveView As SldWorks.View Dim swTable As SldWorks.BomTableAnnotation Dim bret As Boolean Dim retval As Long Dim Visible As Variant Set swApp = Application.SldWorks Set swModel = swApp.ActivateDoc2(Dateiname, True, retval) Set swDraw = swModel bret = swDraw.ActivateSheet(Blattname) Set swSheet = swDraw.GetCurrentSheet bret = swDraw.ActivateView(Zeichenansicht) Set swActiveView = swDraw.ActiveDrawingView Set swTable = swActiveView.GetBomTable swActiveView.ReferencedConfiguration = Konfigname If Not swTable Is Nothing Then swTable.Configuration = Konfigname End If bret = swModel.EditRebuild3 NeueKonfSetzen = bret End Function
Vielleicht kann mir ja jemand einen kleinen Tipp geben. Danke. Gruß, Matthias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ralf Tide Moderator -
Beiträge: 4978 Registriert: 06.08.2001 Sehr seltsame Dinge passiern <Klaus Lage - Toy Story> .-)
|
erstellt am: 19. Dez. 2005 10:43 <-- editieren / zitieren --> Unities abgeben: Nur für matloh
Hallo Matthias, die einzige Möglichkeit, die ich kenne, basiert auf den Excel-Stücklisten. Da muss dann in den Dokumentoptionen das entsprechende Häkchen gesetzt sein. DrawingDoc.SetUserPreferenceToggle swDetailingAutoUpdateBOM, True Bei den SolidWorks-Stücklisten kann ich Dir auch nicht helfen
Beste Grüße, Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|