---

Hallo!

Ich brauche dringende Hilfe in Sachen Makroprogrammierung.
Ich möchte in einer aufgerufenen Baugruppe ein gewisses Teil per Makro durch ein Anderes ersetzen.
Das in Solidworks aufgezeichnete Makro is nicht lauffähig und ich finde auch nirgends Infos zum Syntax.

Könnt ihr mir helfen?

Das aufgezeichnete Makro sieht folgendermaßen aus:
Dim swApp As Object
Dim Part 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
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("122101-SPT-001-1@110786-SAT-001", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID("122101-SPT-001-1@110786-SAT-001", "COMPONENT", 0, 0, 0, False, 0, Nothing)
Part.ClearSelection2 True
Part.ReplaceComponents "U:\Makro\122101-SPT-001-neu.SLDPRT", "", False, 0, True
End Sub

Die boolstatus ist immer wahr, bei der Replace anweisung bringt er folgenden Fehler:

Laufzeitfehler 450:
Falsche Anzahl an Argumenten oder ungültige Zuweisungen zu einer Eigenschaft

Danke und Gruß Sebastian

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

---

Hallo bastl.
Aus der API-Help:
Sub main()
    Const sFileName            As String  "c:\samples\whistle.sldprt"
    Dim swApp                  As SldWorks.SldWorks
    Dim swModel                As SldWorks.ModelDoc2
    Dim swAssy                  As SldWorks.AssemblyDoc
    Dim swSelMgr                As SldWorks.SelectionMgr
    Dim swSelComp              As SldWorks.Component2
    Dim swSelModel              As SldWorks.ModelDoc2
    Dim nErrors                As Long
    Dim bRet                    As Boolean

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
    Set swAssy = swModel
    Set swSelMgr = swModel.SelectionManager
    Set swSelComp = swSelMgr.GetSelectedObjectsComponent(1)
    bRet = swAssy.ReplaceComponents(sFileName, "", True, True)
End Sub

Du hast beim Befehl "ReplaceComponents" die Klammern vergessen. Vielleicht war's das?!?

------------------
Gruss
Andreas
A+E Müller AG

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

---

...nicht ganz!
Zudem hast Du vermutlich ein Argument zuviel. Im API-Beispiel sind 4, bei deinem Script aber 5 drin!

------------------
Gruss
Andreas
A+E Müller AG

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

---

Hallo Andreas,

programmieren kann so einfach sein!
Danke für deine Antwort, es hat perfekt funktioniert!
Hatte außer dem aufgezeichneten Code und dem Ersetzen-Befehl nichts und mir hatten da wohl noch paar Konstanten gefehlt.

Also Danke und frohes Schaffen!

Gruß Sebastian

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