| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | Wie kann Simulation Ihre Produktentwicklung beschleunigen?, ein Webinar am 07.08.2025
|
|
Autor
|
Thema: Anzeigeart bei API schattiert mit Kanten (643 / mal gelesen)
|
BranscheidGmbh
Mitglied
Dipl. Ing.
   Beiträge: 58
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: 3878
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: 58
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: 1362
Registriert: 24.07.2002 AutoCAD ACA 2024
Solidworks 2022 Sp5
Enterprise PDM 2022 Sp5
Pascam Woodworks
Visual Studio 2017 Pro
Windows 10 64Bit
Dell Precision 3660
Intel Core i9-12900K
32 GB Arbeitsspeicher
2x Dell U2415
|
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: 3878
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: 58
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: 58
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 |
Foren auf CAD.de
