---

Hallo zusammen,
ich kenn mich mit dem Programmieren von Makros nur mäßig aus, aber vllt könnt ihr mir in folgendem Fall helfen:

Ich möchte die Eigenschaften der "Kinder" in einer BG auslesen, steht eine Bestimmte Eigenschaft in der Datei und liegt diese im falschen Pfad soll diese durch eine in einem anderen Pfad befindliche ausgetauscht werden.
Bis in die IF Schleife dass es ausgetauscht werden soll komme ich, leider jedoch nicht weiter! Was mache ich falsch? Beim Smiley kommt der Fehler! :P
Danke im Voraus!

Code:

---

Sub Main()

Dim MDPro_Norm As String
Dim MDPRO_OutputPath As String
Dim Pfad As String
Dim boolstatus As Boolean
Dim childdoc As SldWorks.ModelDoc2

Set swApp = Application.SldWorks
Set AssemblyDoc = swApp.ActiveDoc
Set Configuration = AssemblyDoc.GetActiveConfiguration()
Set RootComponent = Configuration.GetRootComponent()
Set myShell = CreateObject("shell.application")

i = 0

'Kinder zählem
Children = RootComponent.GetChildren
ChildCount = UBound(Children)

Debug.Print ChildCount

Do While i <= ChildCount
    Set SWComponent = Children(i)
    Set childdoc = SWComponent.GetModelDoc()
   
    If Not childdoc Is Nothing Then
        'aktuellen Pfad ermitteln
        Pfad = childdoc.GetPathName
         
        Debug.Print Pfad
       
        'MDPro_Norm auslesen
        MDPro_Norm = childdoc.GetCustomInfoValue("", "MDPro_Norm")
        Debug.Print MDPro_Norm
       
        'MDPRO_OutputPath auslesen
        MDPRO_OutputPath = childdoc.GetCustomInfoValue("", "MDPRO_OutputPath")
        Debug.Print MDPRO_OutputPath
       
        If (Pfad Like "C:\keytech\SW*" And MDPro_Norm = "1") Then
                        boolstatus = childdoc.ReplaceComponents(MDPRO_OutputPath, "", True, True)
        End If
       
    End If
   
    i = i + 1
Loop

End Sub

---

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

---

Hallo

Um deine Frage zu beantworten musst du ein paar Fragen beantworten.

Hast du die Remarks von ReplaceComponents Method (IAssemblyDoc) beachtet?
Was steht in MDPRO_OutputPath? (Pfad und neuer Dateiname oder doch nur Pfad)

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

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

---

Hallo Henry,
in MDPro_OutputPath steht der Pfad+Dateiname+Dateiendung (C:\MDPRO_TEST\V2320\CADOutput\MTS2\ST\BS81\ST-81-D-0001139.sldprt)

Die Methode funktioniert schon auch für Teile oder?
 

EDIT:
Gerade nochmal nachgelesen, des wird mein Problem sein:
You cannot replace a selected component with a component of the same name even if the components are in different folders.

Hab jedoch auch versucht die Datei gegen eine mit anderem Namen auszutauschen und hat nicht geklappt!

[Diese Nachricht wurde von Joker15 am 30. Jan. 2018 editiert.]

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

---

Zitat:

---

... Gerade nochmal nachgelesen, des wird mein Problem sein:
You cannot replace a selected component with a component of the same name even if the components are in different folders.
...

---

Hallo,

ich würd dann probieren mit Referenzen ändern die Pfade zu korrigieren.
gibt ein externes Progrämmchen dafür, aber das sollte auch in ein Makro gehen ...

Gruß, Christian

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

---

Hallo
hast du es mit Pack &Go versucht
Gruß Nobbi

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

---

Hallo Christian,
wo find ich das Programm? Referenz kann ich ja nur beim öffnen der Baugruppe ändern oder?

Nobbi was meinst du mit Pack and go? Die Datei gibt es an 2 Pfaden und ich möchte sie nur austauschen.

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

---

Hallo,

entweder beim Öffnen oder wenn es noch zu ist mit dem Programm
ist aber beides manuell.

Gruß, Christian

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

---

Hi Jocker
SolidWorks - Datei - Pack und Go. Baugruppe sollte offen sein
Gruß Nobbi

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

---

Hallo zusammen,
ich hab meine eigene Lösung gefunden:
-ich speicher alle Dateien die falsch liegen in ein Array
-schließe die Baugruppe
-öffne alle Kinderdateien aus dem richtigen Pfad
-öffne die Baugruppe, welche auf die bereits offenen Kinder zugreift

Danke euch trotzdem allen!

Code:

---

Sub Main()

Dim MDPro_Norm As String
Dim MDPRO_OutputPath As String
Dim Pfad As String
Dim boolstatus As Boolean
Dim childdoc As SldWorks.ModelDoc2
Dim instance As IAssemblyDoc
Dim strArray(50) As String
Dim assemblydocPath As String

Set swApp = Application.SldWorks
Set AssemblyDoc = swApp.ActiveDoc
Set Configuration = AssemblyDoc.GetActiveConfiguration()
Set RootComponent = Configuration.GetRootComponent()
Set myshell = CreateObject("shell.application")

i = 0
j = 0

'Kinder zählem
children = RootComponent.GetChildren
ChildCount = UBound(children)

Debug.Print ChildCount

Do While i <= ChildCount
    Set swcomponent = children(i)
    Set childdoc = swcomponent.GetModelDoc()
  assemblydocPath = AssemblyDoc.GetPathName
  ' Set instance = swApp.children(i)
   
    If Not childdoc Is Nothing Then
        'aktuellen Kindpfad ermitteln
        Pfad = childdoc.GetPathName
       
        'Baugruppe Pfad ermitteln
        AssemblydocTitle = AssemblyDoc.GetTitle
       
        'akteullen KindTitel ermitteln
        childdoctitle = childdoc.GetTitle
        Debug.Print Pfad
       
        'MDPro_Norm auslesen
        MDPro_Norm = childdoc.GetCustomInfoValue("", "MDPro_Norm")
        Debug.Print MDPro_Norm
       
        'MDPRO_OutputPath auslesen
        MDPRO_OutputPath = childdoc.GetCustomInfoValue("", "MDPRO_OutputPath")
        Debug.Print MDPRO_OutputPath
       
        If (Pfad Like "C:\keytech\SW*" And MDPro_Norm = "1") Then
                strArray(j) = MDPRO_OutputPath & childdoctitle
                MDPRO_OutputPath = ""
                j = j + 1
               
        End If
       
    End If
   
    i = i + 1
Loop
k = 0
'Baugruppe speichern
AssemblyDoc.Save
'Baugruppe schließen
swApp.CloseDoc (AssemblydocTitle)

Do While k < j
    'Falsche Komponenten aus Outputpfad öffnen
    Set swModelTemp = swApp.OpenDoc(strArray(k), swDocPART)
    k = k + 1
Loop

'Baugruppe wieder öffnen
Set swModelTemp = swApp.OpenDoc(assemblydocPath, swDocASSEMBLY)

End Sub

---

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