---

Hallo!

Ich habe folgendes Problem. Ich füge mit dem unten stehenden Programm ein existierendes Part in ein Product ein. Und genau dieses Part soll dann als Part deklariert/aktiviert werden.

Das müsste doch eigendlich mit der Funktion Selection.search funktionieren? Oder?
Ich weiß aber nicht, wie dann der Suchbefehl heißen muss, der auf die Dateinamen zugreift. Bin bisher im Forum auch nicht fündig geworden.

Wenn mir jemand helfen könnte wäre ich wirklich sehr dankbar.

Vielleicht kann mir auch jemand noch eine weitere Informationsquelle ausser diesem Forum und dem Buch vom Herrn Dieter Ziethen nennen. Vorallem was die Arbeit im Product angeht fehlt mir einfach das Grundwissen.

Viele liebe Grüße,
und vielen Dank im Vorraus!!!

Yvonne

'--------------------------------------------------------------------
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim Datei(0)
Datei(0) = CATIA.FileSelectionBox ("Datei auswaehlen", "*.CATPart", CATFileSelectionModeOpen)
If Datei(0) <> "" Then products1.AddComponentsFromFiles Datei, "All"

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

---

Hallo yvi5555,

was meinst Du mit "als Part deklariert/aktiviert werden"?
Wenn Du das soeben eingefügte Part ansprechen willst, sollte dies mit:

Code:

---

Dim iPart As Part
Set iPart = products1.Item(products1.Count)

---

funktionieren. Alle Operationen und Kommandos, die Du dann auf "iPart" beziehst, werden in diesm Part ausgeführt!

zu Frage 2 (Informationsquellen):
  - http://catia.cad.de/v5/didaktv5.htm
  - Visual Basic Editor (Ist bei Windows-CATIA-Version enthalten) - damit kann man auch CATScript (mit kleinen Anpassungen nachher) programmieren, wenn man auf spezielle VBA-Features verzichtet!

mfg,
Lusilnie

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

---

Vielen Dank,

genau das hab ich gemeint. Hab mich vieleicht etwas ungeschickt ausgedrückt.

Ich werde gleich mal testen, ob/wie es fuktioniert.

Viele Grüße,
Yvonne

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

---

Sorry yvi5555,

ich glaube, ich war gestern abend nicht mehr ganz fit!
Es muß natürlich lauten:

Code:

---

Set iPart = products1.Item(products1.Count).ReferenceProduct.Parent.Part

---

mfg,
Lusilnie

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

---

Vielen Danke!

Hab mich schon gefragt, was ich falsch gemacht hab. (Ist immer meine erste Vermutung)

Nun funktionierts.

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

---

Hallo zusammen,

ich habe da, glaube ich, ein ähnliches Problem. Mein Makro läuft, wenn nur das Part offen ist, oder das Part in einem neuen Fenster geöffnet ist, aber nicht, wenn es nur aktiviert in einem Produkt ist.
Hat jemand vielleicht eine Idee ?

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies
Set hybridBodies2 = part1.HybridBodies
Set hybridBodies3 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Add()
Set hybridBody2 = hybridBodies2.Add()
Set hybridBody3 = hybridBodies3.Add()

hybridBody1.NAME = "Import"
hybridBody2.NAME = "Export"
hybridBody3.NAME = "Konstruktion"

part1.Update

End Sub

------------------
Gruss
Stefan Inderbitzin

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