---

I found product part copy from point but I got stuck from recording of macro.

I used "Add User Companent" command in tg1 licence. Any idea how can I get this code?

I used recording and it gave me this:

Code:
Language="VBSCRIPT"
Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set product1 = productDocument1.Product

Set products1 = product1.Products

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item("Part2_11.CATPart")

Set product2 = partDocument1.GetItem("Part2_11")

Set product3 = products1.AddComponent(product2)

Set partDocument2 = documents1.Item("Part2_1.CATPart")

Set product4 = partDocument2.GetItem("Part2_1")

Set product5 = products1.AddComponent(product4)

Set partDocument3 = documents1.Item("Part2_2.CATPart")

Set product6 = partDocument3.GetItem("Part2_2")

Set product7 = products1.AddComponent(product6)

Set partDocument4 = documents1.Item("Part2_3.CATPart")

Set product8 = partDocument4.GetItem("Part2_3")

Set product9 = products1.AddComponent(product8)

Set partDocument5 = documents1.Item("Part2_4.CATPart")

Set product10 = partDocument5.GetItem("Part2_4")

Set product11 = products1.AddComponent(product10)

Set partDocument6 = documents1.Item("Part2_5.CATPart")

Set product12 = partDocument6.GetItem("Part2_5")

Set product13 = products1.AddComponent(product12)

Set partDocument7 = documents1.Item("Part2_6.CATPart")

Set product14 = partDocument7.GetItem("Part2_6")

Set product15 = products1.AddComponent(product14)

Set partDocument8 = documents1.Item("Part2_7.CATPart")

Set product16 = partDocument8.GetItem("Part2_7")

Set product17 = products1.AddComponent(product16)

Set partDocument9 = documents1.Item("Part2_8.CATPart")

Set product18 = partDocument9.GetItem("Part2_8")

Set product19 = products1.AddComponent(product18)

Set partDocument10 = documents1.Item("Part2_9.CATPart")

Set product20 = partDocument10.GetItem("Part2_9")

Set product21 = products1.AddComponent(product20)

End Sub

------------------
I don't know what I am doing

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

---

Hi,

What are you trying to achieve?
Copy points in product context?
Position parts in a product?

regards,
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Snipaste_2023-08-26_16-09-30.jpg Snipaste_2023-08-26_16-10-34.jpg

In product you select a part and selecting a sketch which is have points. And this command makes copies of part in product.

------------------
I don't know what I am doing

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

---

Hi,

Per macro this becomes difficult.
Manually I would proceed like this:
- pattern a 3d line in the part with the sketch
- reuse the pattern in the assembly

------------------
Warum einfach, wenn es auch kompliziert geht.

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