Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Makro Bestätigung konvertieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS
  
SolidCAM im Einsatz bei der August Weckermann KG
Autor Thema:  Makro Bestätigung konvertieren (446 mal gelesen)
Oberli Mike
Ehrenmitglied V.I.P. h.c.
Dipl. Maschinen Ing.



Sehen Sie sich das Profil von Oberli Mike an!   Senden Sie eine Private Message an Oberli Mike  Schreiben Sie einen Gästebucheintrag für Oberli Mike

Beiträge: 3814
Registriert: 29.09.2004

SOLIDWORKS 2024 SP1.0
SOLIDWORKS 2023 SP5.0
SOLIDWORKS 2022 SP5.0
SOLIDWORKS 2021 SP5.1
SOLIDWORKS 2020 SP5
SOLIDWORKS 2019 SP5 (VM)

erstellt am: 28. Nov. 2008 08:23    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

Mit Bezug auf dieses Thema erstelle ich gerade ein Makro.
Der code unten läuft soweit auch ganz gut, nur sollte ich dem SolidWorks
zwischen Öffnen und Speichern noch beibringen, dass das Fenster mit dem Inhalt
"Die folgenden Dokument werden beim Speichern konvert werden:..." Automatisch
geschlossen wird, damit das Makro weiter laufen kann.

Der Recorder von SolidWorks zeichnet das nicht auf, und ich kenne mich etwas zu wenig aus
mit den Makros.


Code:

Sub main()

  Set swApp = Application.SldWorks
  Set Part = swApp.ActiveDoc

pfad = "D:\Working\Bibliotheks-Features\Duesnplattenloecher\"
file = "Duesenloch_mit_fase.sldlfp"

pfadfile= pfad & file

swApp.OpenDoc6 pfadfile, 1, 0, "", longstatus, longwarnings

    Set Part = swApp.ActivateDoc2(file, False, longstatus)
    retval = Part.SaveAs2(pfadfile, 0, False, False)
   
    swApp.CloseDoc file

End Sub


Gruss
Mike

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

The Power Of Dreams

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

tbd
Mitglied
Teamleiter


Sehen Sie sich das Profil von tbd an!   Senden Sie eine Private Message an tbd  Schreiben Sie einen Gästebucheintrag für tbd

Beiträge: 825
Registriert: 26.01.2006

Dell Percision T5400
Intel(R) Xeon(R) CPU
X5460 @ 3.16GHz
3,25 GB RAM
Nvidia Quadro FX 4600
-----
Win XP Prof SP 3
SW 2008 SP 5.0
PARTsolutions 8.1.08
Cideon SAP PLM 5.103.5.17
Visual Studio 2008

erstellt am: 28. Nov. 2008 08:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Oberli Mike 10 Unities + Antwort hilfreich

Hallo Mike,

es gibt bei den Optionen immer die Einstellung Silent, das wäre für:

OpenDoc6 der dritte Parameter und die Konstante swOpenDocOptions_e.swOpenDocOptions_Silent

und

für die etwas veraltete Methode SaveAs2 der vierte Parameter auf true

Damm müssten eigentlich alle Hinweise und Meldungen weg sein.

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

www.MySldWorks.de - SolidWorks Api Snippets

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

Oberli Mike
Ehrenmitglied V.I.P. h.c.
Dipl. Maschinen Ing.



Sehen Sie sich das Profil von Oberli Mike an!   Senden Sie eine Private Message an Oberli Mike  Schreiben Sie einen Gästebucheintrag für Oberli Mike

Beiträge: 3814
Registriert: 29.09.2004

SOLIDWORKS 2024 SP1.0
SOLIDWORKS 2023 SP5.0
SOLIDWORKS 2022 SP5.0
SOLIDWORKS 2021 SP5.1
SOLIDWORKS 2020 SP5
SOLIDWORKS 2019 SP5 (VM)

erstellt am: 28. Nov. 2008 09:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke dir, funktioniert wunderbar.

Mal sehen ob ich den Rest jetzt hinbekomme wie ich mir das so vorstelle.

Gruss
Mike

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

The Power Of Dreams

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz