| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| |
| Planen, Verwalten, Kostenoptimieren: Effizienter Layoutentwurf Ihrer Industrieanlagen mit Draftsight |
Autor
|
Thema: Makro ausführen schlägt fehl (1493 mal gelesen)
|
Beere Mitglied Dipl.-Ing. Maschinenbau
Beiträge: 1437 Registriert: 31.07.2001 Pro/E 2001 Wildfire 2 SWX 2013 HP Z400; 4GB
|
erstellt am: 21. Okt. 2013 10:36 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, ich habe, dank der perfekten Hilfe hier aus dem Forum, ein Makro zusammengehäkelt, um Zeichnungen als TIF abzulegen. Das Makro funktioniert. Ich weiß nicht warum, aber es geht. Das Makro liegt auf dem Netzlaufwerk lässt sich aber nur auf meinem Rechner ausführen! Auf alle anderen Rechnern gibt es eine Fehlermeldung "Fehler beim kompilieren, Projekt oder Bibliothek nicht gefunden" 2013 SP2.0 und SP4.0 zeigen gleiches Verhalten. Für mich ist nur erkennbar, das auf meinem Rechner eine "Professional" läuft und auf den anderen Rechnern "Standard" installiert ist. Schreibrechte sind es auch nicht .... Was kann das sein? ------------------ "Mächtiges Badabum" Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Torsten Niemeier Ehrenmitglied V.I.P. h.c. Maschinenbau Ingenieur
Beiträge: 3682 Registriert: 21.06.2001 "ZUSE I.36", 8 BIT, 32 Lämpchen, Service-Ölkännchen "ESSO-Super", Software: AO auf Kuhlmann-Parallelogramm-Plattform ** CSWP 04/2011 ** ** CSWE 08/2011 **
|
erstellt am: 21. Okt. 2013 12:05 <-- editieren / zitieren --> Unities abgeben: Nur für Beere
|
Beere Mitglied Dipl.-Ing. Maschinenbau
Beiträge: 1437 Registriert: 31.07.2001 Pro/E 2001 Wildfire 2 SWX 2013 HP Z400; 4GB
|
erstellt am: 21. Okt. 2013 12:41 <-- editieren / zitieren --> Unities abgeben:
--------------------------------------------------------------------- Dim swApp As Object Dim Part As Object Dim DrawingDoc As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object Dim saveFileName As String Dim Datei As String Dim Titel As String Dim pfad As String
Sub main()
Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Set DrawingDoc = swApp.ActiveDoc swApp.ActiveDoc.ActiveView.FrameState = 1 swApp.ActiveDoc.ActiveView.FrameState = 1 Part.EditSketch boolstatus = swApp.SetUserPreferenceIntegerValue(swUserPreferenceIntegerValue_e.swTiffPrintPaperSize, swDwgPaperSizes_e.swDwgPaperA4sizeVertical) If (swApp.ActiveDoc.GetPathName = "") Then 'Abfrage ob Name vergeben wurde MsgBox ("Bitte zuerst Zeichnung speichern!") Exit Sub End If Titel = DrawingDoc.GetTitle If (InStr(Titel, "- Blatt1") > 0) Then Datei = Left(Titel, InStr(Titel, "- Blatt1") - 1) Else Datei = Titel End If Datei = "K:\SWX\steenparts_swx\Tif-Uebergangsordner_prt\" & Datei & ".tif" Part.SaveAs2 Datei, 0, True, False Set swApp = Application.SldWorks End Sub --------------------------------------------------------------------- @Torsten ich vergaß ... Sub main () wird gelb markiert und "Left" wird blau markiert .... ------------------ "Mächtiges Badabum" Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
THSEFA Mitglied Konstrukteur/CAD-Admin
Beiträge: 1141 Registriert: 27.11.2002 SWX 2020 SP5.0 Premium Windows 10 Pro 64Bit Citrix VM Intel(R) XEON(R) Gold 6146 CPU @ 3.20GHz 24 GB Ram<P>Windows 10 Pro 64Bit
|
erstellt am: 21. Okt. 2013 13:28 <-- editieren / zitieren --> Unities abgeben: Nur für Beere
Wenn du mal wider auf einem der anderen Rechner bist, versuche folgendes: - Makro öffnen - Im Makroeditor unter Extras/Verweise nachschauen, ob alle notwendigen Verweise für dein Makro richtig gesetzt sind Am besten, du machst einen Screenshot von deinen verwendeten Verweisen. Dann schauen wir mal weiter... ------------------ Viele Grüße, THSEFA "Nichts ist so hart wie das Leben! Wenn man sagt, was man denkt, muss man mehr als alles geben!..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Torsten Niemeier Ehrenmitglied V.I.P. h.c. Maschinenbau Ingenieur
Beiträge: 3682 Registriert: 21.06.2001 "ZUSE I.36", 8 BIT, 32 Lämpchen, Service-Ölkännchen "ESSO-Super", Software: AO auf Kuhlmann-Parallelogramm-Plattform ** CSWP 04/2011 ** ** CSWE 08/2011 **
|
erstellt am: 21. Okt. 2013 14:13 <-- editieren / zitieren --> Unities abgeben: Nur für Beere
Wenn der Fahler bei solchen Sachen wie Left, Right oder Mid auftritt, empfiehlt es sich meistens, im Makro dort "VBA." davorzuschreiben. Also statt 'Left(tüdeldü...' => VBA.Left(tüdeldü...' Zumindest das ist dann eindeutig. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beere Mitglied Dipl.-Ing. Maschinenbau
Beiträge: 1437 Registriert: 31.07.2001 Pro/E 2001 Wildfire 2 SWX 2013 HP Z400; 4GB
|
erstellt am: 21. Okt. 2013 15:15 <-- editieren / zitieren --> Unities abgeben:
|
Christian_W Ehrenmitglied V.I.P. h.c. Konstrukteur (Dipl-Ing)
Beiträge: 3189 Registriert: 04.04.2001 CSWP 12/2015<P>SWX2021sp5 Win10/11 (SWX2016, SWX2012) proAlpha6.2e00/calinkV9 (Tactonworks) (Medusa7, NesCAD2010, solidEdge19)
|
erstellt am: 21. Okt. 2013 16:47 <-- editieren / zitieren --> Unities abgeben: Nur für Beere
Zitat: ... "Fehler beim kompilieren, Projekt oder Bibliothek nicht gefunden" ...
Bei uns waren es gerade auch Verweise ... und dann tarnt sich der Fehler sehr geschickt Makros kommen wie bei euch vom Netzlaufwerk, bisher mit SWX2008 auf xp am laufen gehabt, andere Pfade. bei einem Kollegen mit SWX2008-64 auf Win7-64 aufgerufen kam auch diese Fehlermeldung, aber er hat keinen fehlenden Verweis angezeigt. --> da gibt es einen Verweis auf swcommand.tlb, der wurde bei einigen Makros nicht gefunden. hatte man ihn für ein makro richtig, wurde er bei den anderen zwar als gefunden angezeigt, nur bei der Ausführung kam der Fehler .... also 2 Möglichkeiten: * SWX neu starten und ein nicht funktionierendes Makros als erstes öffnen --> fehlender Verweis wurde angezeigt, gezielt neu zuweisen. * im Blindflug diesen Verweis bei den anderen nicht funktionierenden Makros neu zuweisen. danach ging es Vielleicht hilft das jemandem ... Gruß, Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |