| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Zusammenspiel zwischen DraftSight und SOLIDWORKS |
Autor
|
Thema: Blattmaßstab anzeigen lassen (API) (905 mal gelesen)
|
Ralf Blokscha Mitglied Konstrukteur
Beiträge: 175 Registriert: 10.07.2000 XEON 2x3.33GHz, 8.0GB Ram, nVidia Quadro FX 570 256 MB, WIN XP64 SP 2, SWX 2007_x64 SP 5.0
|
erstellt am: 25. Jun. 2001 15:28 <-- editieren / zitieren --> Unities abgeben:
|
StefanBerlitz Guter-Geist-Moderator IT Admin (CAx)
Beiträge: 8756 Registriert: 02.03.2000 SunZu sagt: Analysiere die Vorteile, die du aus meinem Ratschlag ziehst. Dann gliedere deine Kräfte entsprechend und mache dir außergewöhnliche Taktiken zunutze.
|
erstellt am: 26. Jun. 2001 08:45 <-- editieren / zitieren --> Unities abgeben: Nur für Ralf Blokscha
|
Ralf Blokscha Mitglied Konstrukteur
Beiträge: 175 Registriert: 10.07.2000
|
erstellt am: 26. Jun. 2001 10:40 <-- editieren / zitieren --> Unities abgeben:
Hallo Stefan, erst mal Danke für den Hinweis. Nun komm ich aber nicht weiter wie den Dargestellten Programm Zeilen die fehlerhaft sind. Sub barSfBlattMaßstab() Dim swApp As Object Dim retval As Variant Dim Maßstab As Variant Dim Model As Object Dim Sheet As Object Set swApp = CreateObject("SldWorks.Application") swApp.visible = True Set Model = swApp.ActiveDoc If Model Is Nothing Then Call MsgBox("Kein SolidWorks Dokument geöffnet", vbOKOnly, "Information") Exit Sub End If If (Model.GetType() = swDocDRAWING) Then retval = Sheet.GetProperties() Maßstab = retval(3) txtSfMaßstab1 = Maßstab Else Exit Sub End If End Sub Gruß Ralf Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StefanBerlitz Guter-Geist-Moderator IT Admin (CAx)
Beiträge: 8756 Registriert: 02.03.2000 SunZu sagt: Analysiere die Vorteile, die du aus meinem Ratschlag ziehst. Dann gliedere deine Kräfte entsprechend und mache dir außergewöhnliche Taktiken zunutze.
|
erstellt am: 26. Jun. 2001 12:37 <-- editieren / zitieren --> Unities abgeben: Nur für Ralf Blokscha
Hi Ralf, du hast vergessen das Sheet-Object anzuziehen. Versuch es mal nach diesem Schema: Code:
Dim swApp As Object Dim DrawingDoc As Object Dim Sheet As Object Dim SheetProp As VariantSub main() Set swApp = CreateObject("SldWorks.Application") Set DrawingDoc = swApp.ActiveDoc Set Sheet = DrawingDoc.GetCurrentSheet SheetProp = Sheet.GetProperties ' 7 Doubles mit Eigenschaften: ' paperSize, templateIn, scale1, scale2, firstAngle, width, height MsgBox ("Blattmaßstab ist " & SheetProp(2) & " : " & SheetProp(3)) End Sub
Ciao, Stefan ------------------ -- Inoffizielle Solidworks Hilfeseite http://solidworks.cad.de EMail: Stefan.Berlitz@solidworks.cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ralf Blokscha Mitglied Konstrukteur
Beiträge: 175 Registriert: 10.07.2000
|
erstellt am: 26. Jun. 2001 13:21 <-- editieren / zitieren --> Unities abgeben:
|