| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | 3DEXPERIENCE Conference 2026, eine Veranstaltung am 16.06.2026
|
|
Autor
|
Thema: Blattmaßstab über API ändern (3676 mal gelesen)
|
Plumps2ooo
Mitglied
Maschinenbau Ingenieur
   Beiträge: 258
Registriert: 15.11.2006 Desktop
HP Z230 Tower Workstation
Autodesk Inventor 2015
SolidWorks 2016<P>Laptop
Dell Precision M6600
7 64Bit Professional
SolidWorks 2015
|
erstellt am: 10. Okt. 2009 19:42  <-- editieren / zitieren -->   Unities abgeben:          
|
Thomas5
Mitglied
Konstrukteur, SWX-Admin
Beiträge: 420
Registriert: 14.07.2003 SWX2013
|
erstellt am: 11. Okt. 2009 09:53 <-- editieren / zitieren --> Unities abgeben: Nur für Plumps2ooo 
|
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: 11. Okt. 2009 12:33 <-- editieren / zitieren --> Unities abgeben: Nur für Plumps2ooo
Hi Plumps, Du kannst es so machen: Dim currentSheet As Variant
Set currentSheet = Application.SldWorks.ActiveDoc.GetCurrentSheet
Dim boolstatus As Boolean
boolstatus = currentSheet.SetScale(1, 10, True, False) Damit wird der Blattmaßstab für das aktuelle Blatt auf 1:10 eingestellt. Gruß, Carsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Plumps2ooo
Mitglied
Maschinenbau Ingenieur
Beiträge: 258
Registriert: 15.11.2006 Desktop
HP Z230 Tower Workstation
Autodesk Inventor 2015
SolidWorks 2016<P>Laptop
Dell Precision M6600
7 64Bit Professional
SolidWorks 2015
|
erstellt am: 11. Okt. 2009 13:06 <-- editieren / zitieren --> Unities abgeben:
|
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: 11. Okt. 2009 13:13 <-- editieren / zitieren --> Unities abgeben: Nur für Plumps2ooo
Hallo Plumps, Das geht so: Public Sub AB() 'Aktueller Blattmaßstab
Dim Maßstab As String
Dim currentSheet As Variant
Dim vSheetProps As Variant
Set currentSheet = Application.SldWorks.ActiveDoc.GetCurrentSheet
vSheetProps = currentSheet.GetProperties
Maßstab = vSheetProps(2) & ":" & vSheetProps(3)
MsgBox "Aktueller Blattmaßstab: " & Maßstab
End Sub Gruß, Carsten [Diese Nachricht wurde von Carsten1210 am 11. Okt. 2009 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Plumps2ooo
Mitglied
Maschinenbau Ingenieur
Beiträge: 258
Registriert: 15.11.2006 Desktop
HP Z230 Tower Workstation
Autodesk Inventor 2015
SolidWorks 2016<P>Laptop
Dell Precision M6600
7 64Bit Professional
SolidWorks 2015
|
erstellt am: 11. Okt. 2009 13:34 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
