| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | On-Demand-Webinare zu SolidCAM (SolidCAM) |
Autor
|
Thema: VBA: Zeichenansicht umbenennen (1521 mal gelesen)
|
red5000 Mitglied
Beiträge: 47 Registriert: 23.08.2011 Solidworks 2012 x64 Windows 7 Xeon W3565 Quadro 4000 RAM 12 GB
|
erstellt am: 06. Jun. 2013 10:19 <-- editieren / zitieren --> Unities abgeben:
Hallo, wie kann man im Makro eine bestimmte Zeichenansicht umbenennen? Die Zeichenansicht (die man vor dem Makro anwählt) habe ich unter swView gespeichert. Dessen Namen bekomme ich mit swView.Name. Versucht habe ich:
Code:
Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swView As Object Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swView = swModel.ActiveDrawingView '... swView.Name = swView.Name & "(Stückliste)"
Da kommt ein Laufzeitfehler 61837: Schreiben ist wegen der Eigenschaft Nur-Lesen nicht möglich.Außerdem (durch die Aufzeichnung vom Makrorekorder):
Code:
boolstatus = swModel.Extension.SelectByID2(swView.Name, "DRAWINGVIEW", 0, 0, 0, False, 0, Nothing, 0) boolstatus = swModel.SelectedFeatureProperties(0, 0, 0, 0, 0, 0, 0, 1, 0, swView.Name & "(Stückliste)")
Die erste Zeile selektiert die Zeichenansicht aber das Umbenennen mit der zweiten Zeile funktioniert überhaupt nicht. Ist es gar nicht möglich eine Zeichenansicht umzubenennen? gruß, red Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HenryV Mitglied Konstrukteur, Engineering
Beiträge: 813 Registriert: 18.05.2005 SolidWorks 2022 x64 SP5.0 Dell Precision 5820 Intel Xeon W-2125 4x4GHz NVIDIA Quadro P2000 5GB 32GB RAM 2x Dell U2412M, 24" TFT Windows 10 Enterprise x64 22H2 Microsoft 365 E5 Microsoft Visual Studio Enterprise 2022
|
erstellt am: 06. Jun. 2013 10:32 <-- editieren / zitieren --> Unities abgeben: Nur für red5000
|
red5000 Mitglied
Beiträge: 47 Registriert: 23.08.2011 Solidworks 2012 x64 Windows 7 Xeon W3565 Quadro 4000 RAM 12 GB
|
erstellt am: 06. Jun. 2013 11:06 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|