Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  Makro ausführen schlägt fehl

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
  
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


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

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 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 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



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

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 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 Beere 10 Unities + Antwort hilfreich

Sind vermutlich Verweise.

Wäre hilfreich, wenn Du die Zeile posten könntest, in der der Fehler ausgelöst wird.

Gruß, Torsten

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

Beere
Mitglied
Dipl.-Ing. Maschinenbau


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

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 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

---------------------------------------------------------------------
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


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

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 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 Beere 10 Unities + Antwort hilfreich

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



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

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 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 Beere 10 Unities + Antwort hilfreich

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


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

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 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

@Torsten

Ja! Das war's.
Mit VBA läuft es auf jedem Rechner.

Vielen Dank!

------------------
"Mächtiges Badabum"

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

Christian_W
Ehrenmitglied V.I.P. h.c.
Konstrukteur (Dipl-Ing)


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

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 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 Beere 10 Unities + Antwort hilfreich

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

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