---

Hallo Zusammen, hat schon jemand Macros die in SW2003 wunderbar laufen unter SW2004 benutzt.

Ich habe das versucht und festgestellt, das mansche befehle wie z.B. "DATE" nicht mehr funktionieren. Die Fehlermeldung lautet: Projekt oder Bibliothek nicht gefunden, obwohl die Bibliothek vorhanden ist. Weis hier jemand Rat an was das liegt?

Gruß

Marco

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

---

Hallo Marco,

und herzlich willkommen im Forum  

Ich vermute, du hast noch den Verweise noch auf die SW2003 TypeLibrary gesetzt, den mußt du umsetzen auf die SW2004 TypeLibrary. Oder ganz wegnehmen und nicht mit Early-Binding arbeiten (also alle Objekte als Object deklarieren, nicht als SldWorks.ModelDoc2 etc.)

Das ist übrigens auch der Grund, warum ich nicht gerne mit Early-Binding arbeite, es gibt immer Streß bei einem Versionswechsel.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de
KLAMM? Was ist KLAMM?

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

---

Hallo Stefan,

Danke erst mal für das schnelle Feedback. Ich soll also alle Objekte als Objekt deklarieren, nicht als z.B. SldWorks.ModelDoc2 etc. Wie funktioniert den das?

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

---

Hallo Marco,

das musst du nicht machen, du kannst auch mit Early-Binding und dem Verweis auf die TypeLibrary arbeiten, aber dann mußt du die eben statt auf die 2003 auf die 2004er Version zeigen lassen.

Wenn du es mit Late-Binding machst hast du den Vorteil, dass es besser zwischen den Versionen ausgetauscht werden kann. Eine Objektdeklaration sieht dann so aus:

Code:

---

Dim SldWorks As Object
Dim ModelDoc As Object

---

Aber dann mußt du selbst auf die korrekte Schreibweise achten usw.

Schau dir am besten einfach mal ein paar Makros von mir aus der MakroMania an ( http://solidworks.cad.de/mm_index.htm ), dann verstehst du schnell, wie es gemeint ist.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de
KLAMM? Was ist KLAMM?

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

---

Hallo Stefan,

Hier ist der Code, der zu der Felemeldung führt. Die Objekte sind doch richtig deffiniert, oder?

Sub berSfAuslesen()

    Dim sldWorks As Object
    Dim swApp As Object
    Dim ModelDoc As Object
    Dim Configuration As Object
    Dim ConfName As Variant
    Set swApp = CreateObject("SldWorks.Application")
    swApp.Visible = True
    Set ModelDoc = swApp.ActiveDoc
   
    If ModelDoc Is Nothing Then
        Call MsgBox("Keine Datei geöffnet", vbOKOnly + vbInformation, "Information")
        Exit Sub
    End If
   
   
    Set Configuration = ModelDoc.GetActiveConfiguration
    ConfName = Configuration.Name
       
    ' Description
    txtSfDescription.text = ModelDoc.CustomInfo("Description")
    ' Number
    txtSfEndNumber.text = ModelDoc.CustomInfo("EndNumber")
    ' Zeichnungsnummer
    txtSfZeichnungsnummer2.text = ModelDoc.CustomInfo("Number")
    ' Variantennummer
    txtSfVarNR.text = ModelDoc.CustomInfo2(ConfName, "Variantennummer")
    ' Revision
    txtSfRevision.text = ModelDoc.CustomInfo("Revision")
    ' Status
    txtSfStatus.text = ModelDoc.CustomInfo("Status")
    ' Name
    cmbSfName.text = ModelDoc.CustomInfo("Name")
    ' Projekt
    cmbSfProject.text = ModelDoc.CustomInfo("Project")
    ' Baugruppe
    cmbSfBaugruppe.text = ModelDoc.CustomInfo2(ConfName, "Baugruppe")
    ' Datum
    If MultiPage1.Value = 1 Then
     
        txtSfDatum2.CheckBox = True
        txtSfDatum2.Value = Date
        txtSfDatum2.Value = ModelDoc.CustomInfo2(ConfName, "Datum")
        txtSfDatum2.CheckBox = False
       
    End If
    ' Status
    txtSfStatus.text = ModelDoc.CustomInfo("Status")
    ' Liferant
    txtSfLieferant2.text = ModelDoc.CustomInfo2(ConfName, "Lieferant")
    ' Author
    txtSfAuthor.text = ModelDoc.CustomInfo("Author")
   
End Sub

Der Befehl "date" wird nicht erkannt.

Ich verstehe es echt nicht

Gruß

Marco

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

---

Hallo Marco,

hast du das gcheckt mit den Verweisen auf die TypeLibrary? Der Date-Befehl steckt auch in einer TypeLib (der VBA), deswegen kann es sein, dass der Fehler bei diesem Befehl kommt, der aber gar nix damit zu tun hat!

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de
KLAMM? Was ist KLAMM?

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

---

Hallo Stefan,

Sorry, jetzt hat es bei mir geschnackelt. Ich hatte zwar den Verweis auf SW2004 gesetzt allerdings zwei andere Verweise vergessen.

Jetzt klappt alles wunderbar.

Nochmals vielen Dank!

Gruß

Marco

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