| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
![](https://ww3.cad.de/php/image.php?resolution=width:20044) | Der größte Rechenreiniger der Welt bei MUHR (SOLIDWORKS, SOLIDWORKS Simulation), ein Anwenderbericht |
Autor
|
Thema: Anzeigeart bei API schattiert mit Kanten (509 / mal gelesen)
|
BranscheidGmbh Mitglied Dipl. Ing.
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für BranscheidGmbh](/foren/ubb/pmimages/gbu.gif) Beiträge: 49 Registriert: 15.01.2016 Solidworks Professional 2023 SP 5
|
erstellt am: 09. Dez. 2021 16:59 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
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
![](/foren/avatars/Torsten_Niemeier.gif)
![Schreiben Sie einen Gästebucheintrag für Torsten Niemeier](/foren/ubb/pmimages/gbu.gif) Beiträge: 3703 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: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) 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.
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für BranscheidGmbh](/foren/ubb/pmimages/gbu.gif) Beiträge: 49 Registriert: 15.01.2016 Solidworks Professional 2023 SP 5
|
erstellt am: 10. Dez. 2021 09:01 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
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
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Carsten1210](/foren/ubb/pmimages/gbu.gif) 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: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) 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
![](/foren/avatars/Torsten_Niemeier.gif)
![Schreiben Sie einen Gästebucheintrag für Torsten Niemeier](/foren/ubb/pmimages/gbu.gif) Beiträge: 3703 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: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für BranscheidGmbh
|
BranscheidGmbh Mitglied Dipl. Ing.
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für BranscheidGmbh](/foren/ubb/pmimages/gbu.gif) Beiträge: 49 Registriert: 15.01.2016 Solidworks Professional 2023 SP 5
|
erstellt am: 10. Dez. 2021 09:51 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
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.
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für BranscheidGmbh](/foren/ubb/pmimages/gbu.gif) Beiträge: 49 Registriert: 15.01.2016 Solidworks Professional 2023 SP 5
|
erstellt am: 10. Dez. 2021 09:56 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
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 |