---

Hallo,

ich brauch dringend Hilfe... Ich versuche in einem Produkt die Parts darunter anzuwählen und aus diesen dann das  komplette Paramterset zu kopieren...

Dies ist mein Quelltext dazu:
Public Function READ_PARAMS()

Set productDocument1 = CATIA.activeDocument

Set product1 = productDocument1.Product

Dim selection1 As Selection

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Set oActDoc = CATIA.activeDocument
Set oProducts = oActDoc.Product.Products

anzahl = oProducts.Count

Dim oPart As Object

Set oPart = oProducts.Item(1)

Dim part1 As Part

Set part1 = oPart ' Hier steigt das Makro aus!!

Dim Params As Parameters
Set Params = part1.Parameters

selection1.Add Params.RootParameterSet

_______________________________

Irgendwie klappt die Übergabe von Produkt zu Part nicht...Wenn ich den entsprechenden Teil des CODES nur im Part laufen lasse dann gehts einwandfrei...Ist bei mir oPart kein Objekt des typs Part...wenn ich den namen von oPart ausgeben lasse ist es der Part name...

Kann mir da jemend helfen?

Schönen Dank schon mal

Gruss Niko

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

---

Hab es hinbekommen,

is zwar nicht der schönste weg aber es funktioniert....

____________________________________________________________
Public Function READ_PARAMS()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.activeDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Clear

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Set oActDoc = CATIA.activeDocument
Set oProducts = oActDoc.Product.Products

Anzahl = oProducts.Count

Dim oPart As Object

Set oPart = oProducts.Item(1)

name = oPart.name

name = left(name, Len(name) - 1)

name = name & "CATPart"

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item(name)

Dim part1 As Part
Set part1 = partDocument1.Part

Dim Params As Parameters
Set Params = part1.Parameters

selection1.Add Params.RootParameterSet

selection1.Copy

Set productDocument1 = CATIA.activeDocument

Dim selection2 As Selection
Set selection2 = productDocument1.Selection

selection2.Clear

Set oPart = oProducts.Item(Anzahl)

name2 = oPart.name

name2 = left(name2, Len(name2) - 1)

name2 = name2 & "CATPart"

Dim partDocument2 As PartDocument
Set partDocument2 = documents1.Item(name2)

Dim part2 As Part
Set part2 = partDocument2.Part

Dim Params2 As Parameters
Set Params2 = part2.Parameters

selection2.Add Params2.RootParameterSet

selection2.Paste

_________________________________________________________

jetzt würde ich nur noch gerne wissen wie ich das eingefügte Set dann umbenenne??

Gruss Niko

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

---

Hallo,

es gibt zu deinem Problem zwei Lösungen.
Erstens du nimmst dir gleich das Selektions-Objekt und benennst das Objekt in der Selektion um

Code:

---

Selection2.Item(1).Value.Name = "Test"

---

Zweitens du sprichst das Set direkt an und benennst es um

Code:

---

Params2.RootParameterSet.Name = "Test"

---

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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