---

iso-speichern.zip

Hallo,

wie kann ich das Makro "ISO-Speichern" so modifizieren das bei speichern einer Zeichnung erst alle Zeichenansichten inaktiv geschaltet werden, weil diese sonst zur ISO-Ansciht umgewandelt werden.?

Danke für die Hilfe schon im voraus.

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

---

Hallo DJMuethos

Du könntest eine Abfrage einbauen.

[edit]

Code:

---

'Mit diesem Makro sollen Bauteile und Baugruppen in Isometrischer Ansicht und Zeichnungen in
'voller Größe abgespeichert werden.

Dim swApp As Object
Dim Part As Object

Sub main()

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

If Part Is Nothing Then
'MsgBox "Kein Dokument geöffnet!"
End
End If
   
'Prüfen, ob Dokument Zeichnung ist
typ = Part.GetType()

If typ <> swDocDRAWING Then
Part.ShowNamedView2 "*Isometrisch", 7
End If

Part.ViewZoomtofit2
Part.Save2 False

End Sub

---

[/edit]

Gruss Andreas

------------------
There's no place like 127.0.0.1

[Diese Nachricht wurde von HenryV am 14. Feb. 2007 editiert.]

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

---

Hallo,

Beim speichern des Modells auf ISO zu stellen ist, damit das Vorschaubild vernünftig wird.

Was ist dein Ziel bei der Zeichnung, das du über ein Makro gehen willst?

Gruss
Mike

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

The Power Of Dreams Schreib mal wieder

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

---

Hallo,
Danke für die Hilfe.

Hab es noch etwas angepasst.
So Funktioniert es jetzt wie es soll.

'Mit diesem Makro sollen Bauteile und Baugruppen in Isometrischer Ansicht und Zeichnungen in
'voller Größe abgespeichert werden.

Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object

Sub main()

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

If Part Is Nothing Then
'MsgBox "Kein Dokument geöffnet!"
End
End If

'Prüfen, ob Dokument Zeichnung ist
typ = Part.GetType()

If typ <> swDocDRAWING Then
Part.ViewZoomtofit2
Else
Part.ShowNamedView2 "*Isometrisch", 7
End If

Part.Save2 False
Part.ViewZoomtofit2
Part.Save2 False
End Sub

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

---

Haette jemand vielleicht noch ein schoenes .bmp fuer dieses Makro?

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

---

Hallo,

ein kleiner Tipp um eine neue Schaltfläche in SolidWorks zu vermeiden.
Die Freeware SDA-4Free bietet unter anderen die Funktion „Speichern plus Makro“
(Ausführen eines benutzerdefinierten Makros beim Speichern).

In einem Dialog legt man fest, welches Makro beim „Speichern“ oder/und „Speichern unter“ eines SolidWorks Dokuments automatisch ausgeführt wird.
Aktiviert man diese Funktion zum Beispiel für das „Speichern“ eines Bauteils, wird das ausgewählte Makro immer dann ausgeführt wenn man ein Bauteil in SolidWorks speichert.
Dies gilt für die Standard Befehle in SolidWorks aber auch für Datenbanken, Makros etc..
Das Anlegen eines neuen Makro-Button ist somit nicht mehr nötig, und alles geschieht automatisch!

Hier der Weg zum Download (SDA-4Free):
Schuler Design Automation GmbH - Produkte

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

SolidWorks macht schnell abhängig, fangen Sie gar nicht erst an!
----------------------------------------------
Wir machen Sie fit für die Zukunft, damit Sie Kosten sparen und SolidWorks optimieren!

SolidWorks API Programmierung; Schuler Design Automation GmbH |      kontakt@schuler-da.de

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

---

Hi zusammen,

nur ein kleiner Tipp als Nachtrag:
Falls mit dem von Daniel beschrieben Vorgehen gearbeitet wird
sollten keine eigenen Speicher Befehle in dem Auszuführendem Makro eingebaut sein diese am besten vorher entfernen.

Gruß
Micha

------------------
Stell dir vor, es geht, und keiner kriegts hin.

 

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Danke Micha für diesen Hinweis!

Speicherbefehle im Makro sind dann nicht mehr nötig, da wie bereits erklärt, dass Speichern über Standard Befehle in SolidWorks oder einer Datenbank erfolgt!

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

SolidWorks macht schnell abhängig, fangen Sie gar nicht erst an!
----------------------------------------------
Wir machen Sie fit für die Zukunft, damit Sie Kosten sparen und SolidWorks optimieren!

SolidWorks API Programmierung; Schuler Design Automation GmbH |      kontakt@schuler-da.de

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

---

IconISOsave.zip

Zitat:

---

Original erstellt von oesy:
Haette jemand vielleicht noch ein schoenes .bmp fuer dieses Makro?

---

Hab da mal einige gepinselt.
IconISOsave.zip

------------------
There's no place like 127.0.0.1

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

---

Fehlermeldung.jpg SDA_Einstellungen.jpg

Moinsen, wenn ich das obige Makro unter SDA-4-Free beim Speichern ausführen lassse erhalte ich folgende Fehlermeldung ----->
anbei noch meine Einstellungen unter SDA ----->

Was habe ich eventuell falsch gemacht?

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

---

ModulUndProzedurInSwpMakro.jpg

Guten Morgen oesy,

Die Fehlermeldung hat folgenden Grund:
Das Angegebene Modul "Makro1" oder die Prozedur "Main" ist in deinem Makro nicht vorhanden.
Öffne das Makro einfach mal in SolidWorks und kontrolliere ob deine Angaben richtig sind.
Wenn du die Namen nicht manuell geändert hast, tippe ich das die benötigten Angaben folgende sind:
Modul: iso_speichern1
Prozedur: Main

Ich habe mal ein Bild mit einer kleinen Erklärung angehängt.

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

Beim Bill Gates, bei uns .net!
------------------

SolidWorks Programmierung; Schuler Design Automation GmbH

[Diese Nachricht wurde von tbd am 21. Feb. 2007 editiert.]

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

---

Fehlermeldung_dieZweite.jpg

Schönen Dank schon mal dafür, Daniel. Bin nämlich eigentlich eine Makro-Null.

Die zuvor genannte Fehlermeldung konnte damit behoben werden. Doch nun kriege ich, wenn ich das Teil speichern will folgende Fehlermeldung ---->
Anschließend stürzt mir dann SWX (2007 SP1.1) ab ??????

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

---

Hallo oesy,

das wird an deinem Makro liegen.
Lade das mal als Zip hoch und ich werde mal freudlicher weise reinschauen und kontrollieren woran es leigen könnte.

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

Beim Bill Gates, bei uns .net!
------------------

SolidWorks Programmierung; Schuler Design Automation GmbH

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

---

iso-speichern.swp.txt Kopievoniso-speichern.swp.txt

Das wäre super, danke.

Hatte beide Varianten, die in diesem Beitrag genannt wurden, ausprobiert. Bei beiden kam diese Fehlermeldung.

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

---

iso-speichern.swp.txt

Hallo osey,

Du hast dir den Beitrag von Micha leider nicht zu Herzen genommen.

Das Speichern darf in einem Makro für die SDA-4Free Freeware nicht mehr vorkommen. Führt zu einer Endlosschleife!
Ich habe mal das Makro angepasst, das müsste jetzt klappen:

Code:

---

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim eDocTyp As swDocumentTypes_e

Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.ActiveDoc

    If Part Is Nothing Then
        'Es gibt nichts zutun!
        Exit Sub
    End If

    'Prüfen, ob Dokument Zeichnung ist
    eDocTyp = Part.GetType()

    Select Case eDocTyp
        Case swDocDRAWING
            'Bei einer Zeichnung nur Zoomen
            Part.ViewZoomtofit2
        Case swDocASSEMBLY
            'Bei einer Baugruppe
            Part.ShowNamedView2 "*Isometrisch", 7
            Part.ViewZoomtofit2
        Case swDocPART
            'Bei einem Bauteil
            Part.ShowNamedView2 "*Isometrisch", 7
            Part.ViewZoomtofit2
        Case Else
            'Bei anderen Dokumenten nichts machen
    End Select
   
    'Das speichern wird über SolidWorks
    'und der SDA-4Free Freeware erledigt!
   
End Sub

---

EDIT
Sorry hatte mich bei der Selectcase Anweisung verschrieben. Jetzt klappts!
EDIT

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

Beim Bill Gates, bei uns .net!
------------------

SolidWorks Programmierung; Schuler Design Automation GmbH

[Diese Nachricht wurde von tbd am 21. Feb. 2007 editiert.]

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

---

Besten Dank, Daniel.
Kompliment und Units!
Es funzt nun endlich. Wie gesagt bin leider NOCH eine Makro-Null.

mfg Felix

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