---

Hallo,

kann mir jemand sagen wie ich in einem Makro das Format meiner aktuellen Zeichnung auslesen kann. Brauche es um die Position meiner Blöcke zu definieren.

------------------
Bis demnächst!

Hans Meiser

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hans,

Hier Der Anfang eines Makros welches wir brauchen um z.B. TIF's zu speichern.
Wichtig für dich sind die letzten 2 Zeilen. Ein paar Definitionen von oben
werden aber benötigt.

*************************************************
Sub makro()

Dim swApp As Object
Dim Part As Object
Dim sPathName As String
Dim nRetVal As Long
Dim nErrors As Long
Dim nWarnings As Long
Dim bRet As Boolean
Dim retval As Boolean
Dim vSheetProps As Variant
Dim blattsize As Long
Dim SelObj As Object

Dim swDrawModel As SldWorks.ModelDoc2

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set Frame = swApp.Frame()

'Blattgrösse abfragen
vSheetProps = Part.GetCurrentSheet().GetProperties
blattsize = vSheetProps(0)
*****************************************

Gruss
Mike

------------------

The Power Of Dreams Schreib mal wieder

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke werde es gleich probieren.

------------------
Bis demnächst!

Hans Meiser

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Guten Morgen Hans,

dies findet man durch die Methode GetProperties im Sheet Objekt raus! Diese liefert dir als Rückgabe ein SaveArray in dem an erster Stelle (also 0) die PaperSize als Integer steht. Diesen Integer-Wert kannst du dann in den Enum-Wert swDwgPaperSizes_e umwandeln.

------------------
Mfg Daniel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke, die Variante von Mike hat prima geklappt.

------------------
Bis demnächst!

Hans Meiser

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,

ich bräuchte da nochmals kurz Hilfe Mit welchem Befehl kontrolliere ich in meiem Makro ob das zur Zeit aktive Dokument eine 2D-Zeichnung ist?
Das Makro soll nämlich nur starten wenn eine Zeichnung aktiv ist und bei Teilen und BG's soll es eine Fehlermeldung generieren.

------------------
Bis demnächst!

Hans Meiser

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hans,

Hier ein Ausschnitt aus einem anderen Makro bei uns.
Speichern von TIF's aus dem SolidWorks.

******************************************************
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set Frame = swApp.Frame()

' Abfrage ob ein Dokument geöffnet ist
If Part Is Nothing Then
    Frame.SetStatusBarText (msgtext(0))
    End
    End If

' Abfrage ob eine Zeichnung geöffnet ist
If Part.GetType <> 3 Then    '<-- Mit 2 und 1 werden Baugruppe und Part abgefragt
    Frame.SetStatusBarText ("Testeintrag") '<-- Eintrag in die Statuszeile
    End                                    '<-- Beenden des Makros
    End If
***********************************************

Das Abfragen ob überhaupt etwas offen ist muss nicht sein, schadet aber auch nicht 

Schau mal hier
Kann man jede Menge zusammenstellen.

Gruss
Mike

------------------

The Power Of Dreams Schreib mal wieder

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank und ein schönes Wochenende.

------------------
Bis demnächst!

Hans Meiser

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP