---

Hallo an alle,

ich habe ein kleines (oder großes) API-Verständnis-Problem. Ich möchte gerne die Dateieigenschaften (Datei->Eigenschaften->Benutzerdefiniert) von allen Teilen einer Baugruppe auslesen.

Mein Ziel ist es, lackierte Teile nach Kundenwunsch einzufärben, nicht aber Kaufteile oder anders beschichtete Teile. Dazu habe ich in den Dateieigenschaften der Lackierten Teile einen Vermerk eingetragen, um diese zu erkennen.

Für das "Durchkämmen" der Baugruppe habe ich schöne Beispiele bei solidworks.cad.de und in der Solidworks-Online-Hilfe gefunden (Traverse...). Danach habe ich folgendes ausprobiert:

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set Configuration = Part.GetActiveConfiguration()
Set RootComponent = Configuration.GetRootComponent()
Children = RootComponent.GetChildren()
For i=0 to UBound(Children)
  Set Child = Children(i)
  Infos = Child.GetCustomInfoNames <-- ...unterstützt diese Methode nicht
  Lackieren = Infos(0)
  If Lackieren = "Farbe1" Then
    ...
  End If
Next i

...und bin bei Child.GetCustomInfoNames gescheitert.

Was gibt die Methoden ModelDoc2::GetChildren zurück ...Eine Liste von Objekten, aber was für Objekte? Brauchen würde ich ein ModelDoc2-Objekt für die Methode ModelDoc2::GetCustomInfoNames2.

Kann mir jemand helfen?

Vielen Dank,
Euer Jürgen

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

---

Hi Jürgen,

Du bist schon ganz dicht dran.
Hier eine korrigierte Version Deines Makros:

[---snip---]
Sub main()

Dim swApp As Object
Dim part As ModelDoc2
Dim configuration As configuration
Dim rootcomponent As Component2
Dim child As Component2
Dim doc As ModelDoc2
Dim configname As String

Set swApp = CreateObject("SldWorks.Application")
Set part = swApp.ActiveDoc
Set configuration = part.GetActiveConfiguration()
Set rootcomponent = configuration.GetRootComponent()
Children = rootcomponent.GetChildren()
For i = 0 To UBound(Children)
  Set child = Children(i)
  Set doc = child.GetModelDoc
  If doc.GetCustomInfoCount2("") > 0 Then
    infos = doc.GetCustomInfoNames2("")
    MsgBox (infos(0))
  End If
Next i

End Sub
[---snap---]

Zur Erläuterung:
ModelDoc2.ActiveConfiguration liefert ein Configuration-Objekt.
Configuration.GetRootComponent liefert ein Component-Objekt.
Component.GetModelDoc liefert ein ModelDoc2-Objekt.

Gruß,
  Danny

------------------
Danny Reinhold
Reinhold Software & Services

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

---

Hallo Jürgen,

Danny hat dir schon das Makro so aufgebohrt, wie du es brauchst, deswegen nur noch eben explizit auf deine Frage geantwortet:

> Was gibt die Methoden ModelDoc2::GetChildren zurück ...Eine Liste
> von Objekten, aber was für Objekte?

Du bekommst ein Feld von Component-Objekten zurück, und du mußt dir dann eben noch von der Komponente mit .GetModelDoc das dazu passende ModelDoc holen. Dann hast du ja selbst schon gesehen, kommst du weiter.

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

Vielen Dank an Danny und Stefan (Prima Sache, Das :-) !). So komme ich gut weiter! Ich hoffe nur, dass ich auch mal helfen kann, und nicht immer nur Infos brauche.

Gruß
Euer Jürgen

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