---

Hallo Zusammen,

ich habe ein kleines Makro geschrieben, welches mir eine bestimmte Konfiguration aktiviert, indem ich vorher den Wert einer konfigurationsspez. Dateieigenschaft abgefragt habe:

Dim swApp                   As Object
Dim swModel                 As Object
Dim AktiveKonfig            As Object
Dim vConfNameArr            As Variant
Dim bShowConfig             As Boolean
Dim i                       As Integer
Dim MaterialnummerGesucht   As String
Dim sConfigName             As String
Dim Materialnummer          As String

Sub main()

    Set swApp = CreateObject("SldWorks.Application")
    Set swModel = swApp.ActiveDoc
   
    MaterialnummerGesucht = InputBox("Materialnummer eingeben:")
   
    vConfNameArr = swModel.GetConfigurationNames
   
    For i = 0 To UBound(vConfNameArr)
        sConfigName = vConfNameArr(i)
        bShowConfig = swModel.ShowConfiguration2(sConfigName)
        Set AktiveKonfig = swModel.GetActiveConfiguration
        Materialnummer = swModel.CustomInfo2(sConfigName, "Materialnummer")
        If Materialnummer = MaterialnummerGesucht Then Exit Sub
    Next i

    MsgBox ("Materialnummer nicht vorhanden" & MaterialnummerGesucht)

End Sub

Leider ist die Durchlaufzeit des Makros sehr lange bei komplexen Teilen mit vielen Konfigs.

Gibt es eine Möglichkeit das Makro zu optimieren, um eine schnellere Abarbeitungszeit zu erhalten?

Gruß Bernd

[Diese Nachricht wurde von Bernd Knab am 22. Sep. 2006 editiert.]

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

---

Zitat:

---

Original erstellt von Bernd Knab:
Hallo Zusammen,
    For i = 0 To UBound(vConfNameArr)
        sConfigName = vConfNameArr(i)
        bShowConfig = swModel.ShowConfiguration2(sConfigName)
        Set AktiveKonfig = swModel.GetActiveConfiguration
        Materialnummer = swModel.CustomInfo2(sConfigName, "Materialnummer")
        If Materialnummer = MaterialnummerGesucht Then Exit Sub
    Next i
End Sub

---

Hi,

1. siehe->  http://ww3.cad.de/foren/ubb/Forum2/HTML/010758.shtml#000008

und 2.
Warum aktivierst du jede Konfig? Kannste nicht besser hingehen und wenn deine Mat# gefunden wurde diese Konfig Aktivieren ?

If Materialnummer = MaterialnummerGesucht Then
  bShowConfig = swModel.ShowConfiguration2(sConfigName)
  Exit Sub
end if

Gruß
Micha 

------------------
Manche Menschen gehen so plötzlich, daß die Zeit für einen Abschied nicht reicht…

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hallo Micha,

danke für den 2. Tip. Ich habe mir aus einem alten Makro die Zeilen herausgenommen. Dort schreibe ich aber in jeder Konfig etwas und mußte sie deshalb aktivieren. Ich habe nicht daran gedacht, daß ich nur zum Lesen der konfigspez. Eigenschaft nichts aktivieren muß.

Danke
Bernd

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

---

Vorschlag zum Komfort: Ich würde am Anfang des Makros die Konfigurationseigenschaften auslesen und eine Combobox damit füllen, so dass der Anwender nur noch den Namen aus der Liste auswählen muss und nicht tippen muss.

Piet

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

---

Hallo Piet,

danke für den Vorschlag. Aber hier ist es schneller eine 6-stellige Zahl einzugeben, als durch eine Auswahl zu scrollen und die Nummer zu suchen.

Gruß Bernd

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