---

Hello Community!

I need your help again 

I'm trying to write a macro,which will basically create an allcatpart form product, but at the same time copy source body color for the target body 
At the end: I want allcatpart with original colors. Here what I have so far:

Code:

---

Sub main()
Dim oSource As Product
Dim oDummy_sel As Selection
Dim oTarget As Product
Dim oSel
Set oDummy_sel = CATIA.ActiveDocument.Selection
Set oSel = oDummy_sel
oDummy_sel.Clear
oSel.Clear
Dim InputObjectType(0)
  Dim Status
  InputObjectType(0) = "Product"
'choose target part
  Status = oSel.SelectElement3(InputObjectType, "Wska¿ part docelowy", True, CATMultiSelTriggWhenUserValidatesSelection, False)
Set oTarget = oSel.Item(1).value '.Part
oSel.Clear

'choose source assembly
  Status = oSel.SelectElement3(InputObjectType, "Wska¿ produkt Ÿród³owy", True, CATMultiSelTriggWhenUserValidatesSelection, False)
  oDummy_sel.Search ("((((FreeStyle.Body + 'Part Design'.Body) + 'Generative Shape Design'.Body) + 'Functional Molded Part'.Body) + 'Functional Molded Part'.Body),sel")
'creates collection of bodies to copy
Dim oCol As New VBA.Collection
For i = 1 To oDummy_sel.Count
    oCol.Add oDummy_sel.Item(i).value
Next
oDummy_sel.Clear
Dim Vis_prop As VisPropertySet
Set Vis_prop = oDummy_sel.VisProperties
Dim r As Long
Dim g As Long
Dim b As Long
'loop through bodies collection
For i = 1 To oCol.Count
    oDummy_sel.Add oCol.Item(i)
    Set Vis_prop = oDummy_sel.VisProperties
    Vis_prop.GetRealColor r, g, b
    oDummy_sel.Copy
    oDummy_sel.Clear
    oDummy_sel.Add oTarget.ReferenceProduct.Parent.Part.Bodies
    oDummy_sel.PasteSpecial "CATPrtResultWithOutLink"
    Vis_prop.SetRealColor r, g, b, 0
    oDummy_sel.Clear
    oTarget.Update
Next
End Sub

---

The problem is: when I hava complex product (~2k of bodies) CATIA hangs and I need to terminate it. Could you take a look and check what is wrong with my code?

Thanks in advance

Lucas

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

---

Hello
so in general your macro is running. That it will crash with you, I suspect, is due to the amount of bodies to be copied.
Apart from that, you have the problem with your macro that only the body of the first instance copies repeat parts.

Greetings Randle

------------------
Planung ersetzt Fehler durch Irrtum!

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