---

Hallo zusammen,

ich suche als aller erstes mal ein makro um die Dokumenteigenschaften zu ändern, da wir momentan bei alten zeichnungen gleiche Linienstärke bei Bemaßung und sichtbaren kanten haben und andere kleinere Dinge.

da ich für DIN A4 und den anderen unterschiedliche Eigenschaften habe, brauche ich 2 .sldstd Dateien.
Ich habe mich an ein makro versucht, aber es selber leider nicht hin bekommen.

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc

    If (Round(SheetWidth, 4) = 0.21) And (Round(SheetHeight, 4) = 0.297) Then
        boolstatus = Part.Extension.LoadDraftingStandard("Q:\...\DIN-MODIFIZIERT-A4.sldstd")

    Else
      boolstatus = Part.Extension.LoadDraftingStandard("Q:\...\DIN-MODIFIZIERT-A3-A0.sldstd")

End Function

Hat jemand einen Tipp, was ich falsch mache?

Des weiteren, ist es möglich die Dateieigenschaften automatisch beim öffnen einer Datei auszutauschen oder zu prüfen?

MfG
Max

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

---

Hallo Max,

ohne Deinen Code probiert zu haben kann ich auf den ersten Blick schon mal sagen, dass am Ende auf jeden Fall "End Sub" und nicht "End Function" stehen muss. Außerdem kann das nur ein Auszug aus dem Makro sein, da "SheetWidth" und "SheetHeight" keine Werte zugewiesen bekommen.

------------------
Viele Grüße aus Brackenheim

Lars Pauly

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

---

Hallo Max

Wie Lars schon geschrieben hat, fehlen einige Sachen oder sind falsch.

Hier meine Ergänzungen dazu
- Eine If-Abfrage wird mit "End If" abgeschlossen.
- Variablen sollten deklariert werden. (z.B. Dim swApp As SldWorks.SldWorks)
- Der Dokument-Typ, für welchen das Makro gilt, sollte abgefragt werden.

Welchen Standard soll geladen werden wenn ein A4 und ein A3 im selben Dokument sind?

Hier der korrigierte Code (Lädt den Standard für das aktive Blatt)

Code:

---

Sub main()
   
    Dim swApp As SldWorks.SldWorks
    Dim ModelDoc As SldWorks.ModelDoc2
    Dim swSheet As SldWorks.Sheet
    Dim SheetProps() As Double
    Dim SheetWidth As Integer, SheetHeight As Integer
   
    Set swApp = Application.SldWorks
    Set ModelDoc = swApp.ActiveDoc
   
    If ModelDoc Is Nothing Then
        End
    End If
   
    If ModelDoc.GetType <> swDocDRAWING Then
        End
    End If
   
    Set swSheet = ModelDoc.GetCurrentSheet()
    SheetProps = swSheet.GetProperties()
   
    SheetWidth = SheetProps(5)
    SheetHeight = SheetProps(6)
   
    If (Round(SheetWidth, 4) = 0.21) And (Round(SheetHeight, 4) = 0.297) Then
        boolstatus = Part.Extension.LoadDraftingStandard("Q:\...\DIN-MODIFIZIERT-A4.sldstd")
    Else
        boolstatus = Part.Extension.LoadDraftingStandard("Q:\...\DIN-MODIFIZIERT-A3-A0.sldstd")
    End If
   
End Sub

---

Zu deiner Zeiten Frage, lies dir mal diesen Beitrag durch:
http://ww3.cad.de/foren/ubb/Forum2/HTML/028185.shtml#000006

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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