---

Hallo Zusammen,

ich möchte einen Part ins Subprodukt einfügen. Der User das Subprodukt vorher auswählen.
(Im Prinzip möchte ich die Funktion "Neues Teil" einfügen nachbasteln)
Wie kann ich sowas machen? Ich bin am verzweifeln!!!

Danke für eure Hilfe

------------------
Gruss BADU

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

---

Baum.JPG

Hallo Zusammen,

ich bin mittlerweile ein bischen weitergekommen. Ich habe die Selektion definiert und klappt es aber nur für dei 1. Ebene (siehe Anhang).

wie muss ich die Selektion (oder die Einfügeoperation) definieren dass für alle Ebenen wirksam ist?

Skript:
----------------------------------------------------------------------
Sub CATMain()

Dim Was(0)

Was(0) = "Product"

Set UserSel = catia.ActiveDocument.Selection
UserSel.Clear
E = UserSel.SelectElement2(Was, "Produkt wählen", True)
If E = "Normal" Then
Else
MsgBox ("Abbruch")
End If

Name = UserSel.Item(1).value.Name

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 product2 As Product
Set product2 = products1.Item(Name)

Dim products2 As Products
Set products2 = product2.Products

Dim product3 As Product
Set product3 = products2.AddNewComponent("Part", "")
-------------------------------------------------------------------
Wenn ihr Zeit habt könnt ihr ja mal rüberschauen.

Danke

------------------
Gruss BADU

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