| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| 3DEXPERIENCE Conference 2024 | München, eine Veranstaltung am 16.10.2024
|
Autor
|
Thema: Anzeigeart bei API schattiert mit Kanten (541 / mal gelesen)
|
BranscheidGmbh Mitglied Dipl. Ing.
Beiträge: 49 Registriert: 15.01.2016 Solidworks Professional 2023 SP 5
|
erstellt am: 09. Dez. 2021 16:59 <-- editieren / zitieren --> Unities abgeben:
Guten Abend zusammen, am Ende eines Makros möchte ich sicherstellen, dass das geöffnete Teil als "schattiert mit Kanten" dargestellt wird. Der Makrorecorder und die Hilfe konnten mir leider nicht weiter helfen. Vielleicht kennt ja einer von euch den passenden Befehl ? DANKE ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Torsten Niemeier Ehrenmitglied V.I.P. h.c. Maschinenbau Ingenieur
Beiträge: 3743 Registriert: 21.06.2001 "ZUSE I.36", 8 BIT, 32 Lämpchen, Service-Ölkännchen "ESSO-Super", Software: AO auf Kuhlmann-Parallelogramm-Plattform ** CSWP 04/2011 ** ** CSWE 08/2011 **
|
erstellt am: 09. Dez. 2021 17:30 <-- editieren / zitieren --> Unities abgeben: Nur für BranscheidGmbh
Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Dim activeModelView As Object Set activeModelView = Part.ActiveView activeModelView.DisplayMode = swViewDisplayMode_e.swViewDisplayMode_ShadedWithEdges End Sub [Diese Nachricht wurde von Torsten Niemeier am 09. Dez. 2021 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BranscheidGmbh Mitglied Dipl. Ing.
Beiträge: 49 Registriert: 15.01.2016 Solidworks Professional 2023 SP 5
|
erstellt am: 10. Dez. 2021 09:01 <-- editieren / zitieren --> Unities abgeben:
Hatte mich schon gefreut, doch beim Ausführen des Makros sagte der Debugger, dass ihm die letzte Zeile "nicht gefällt". activeModelView.DisplayMode = swViewDisplayMode_e.swViewDisplayMode_ShadedWithEdges Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Carsten1210 Mitglied staatl. geprüfter Holztechniker
Beiträge: 1358 Registriert: 24.07.2002 AutoCAD ACA 2019 Solidworks 2021 Sp5.1 Enterprise PDM 2021 Sp5 Pascam Woodworks Visual Studio 2017 Pro Windows 10 64Bit Dell T3620 Intel Core i7-7700K 16 GB Arbeitsspeicher 2x Dell Ultrasharp U2415 Dell M4800
|
erstellt am: 10. Dez. 2021 09:22 <-- editieren / zitieren --> Unities abgeben: Nur für BranscheidGmbh
Hi, Dir fehlt wahrscheinlich der Verweis auf die "Solidworks 20xx Constant type library": Die findest du im Instalaationpfad: "C:\Program Files\SolidWorks Corp20XX\SOLIDWORKS\swconst.tlb". Gruss, Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Torsten Niemeier Ehrenmitglied V.I.P. h.c. Maschinenbau Ingenieur
Beiträge: 3743 Registriert: 21.06.2001 "ZUSE I.36", 8 BIT, 32 Lämpchen, Service-Ölkännchen "ESSO-Super", Software: AO auf Kuhlmann-Parallelogramm-Plattform ** CSWP 04/2011 ** ** CSWE 08/2011 **
|
erstellt am: 10. Dez. 2021 09:43 <-- editieren / zitieren --> Unities abgeben: Nur für BranscheidGmbh
|
BranscheidGmbh Mitglied Dipl. Ing.
Beiträge: 49 Registriert: 15.01.2016 Solidworks Professional 2023 SP 5
|
erstellt am: 10. Dez. 2021 09:51 <-- editieren / zitieren --> Unities abgeben:
Das war's - ich danke euch beiden Hier noch die dazu passende Beschreibung aus der Hilfe :
To include the SOLIDWORKS type libraries manually: In an open project in VBA, click Tools, References. (Extras / Verweise) Select: SldWorks version Type Library SOLIDWORKS version Constant type library (Substitute the actual SOLIDWORKS version number for version.) Click OK. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BranscheidGmbh Mitglied Dipl. Ing.
Beiträge: 49 Registriert: 15.01.2016 Solidworks Professional 2023 SP 5
|
erstellt am: 10. Dez. 2021 09:56 <-- editieren / zitieren --> Unities abgeben:
Du hast recht, das klappt auch Ich habe die Zuweisungen weg genommen, und dann nur "deinen" Befehl genutzt : Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Dim activeModelView As Object Set activeModelView = Part.ActiveView activeModelView.DisplayMode = 5 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |