---

Hallo,
ich selectiere über Select.Element ein Product in Baum. In diese Product möchte ich ein Part einbauen. Da es nicht sicher ist in welcher Ebene das Subproduct liegt möchte ich die Struktur nachbauen. Dazu habe ich folgendes Macro geschrieben:

Dim uArray As Array
uArray = Split(referenceObject.Displayname, "/", -1, 1)
Dim j
Dim n

'n = UBound(uArray)

'msgbox CStr(n)

'msgbox referenceObject.Displayname
else
msgbox str
End If

Dim arrayOfVariantOfBSTR1(0)
Dim ProStr As Products

On Error Resume Next
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(uArray(1))
arrayOfVariantOfBSTR1(0) = "/home/tha10y/Part11.CATPart"

If Err.Number < 0 Then

products1.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"
Err.Number = 0
Else
Dim products2 As Products
Set products2 = product2.Products

Dim product3 As Product
Set product3 = products2.Item(uArray(2))

If Err.Number < 0 Then

products2.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"
Err.Number = 0
Else
Dim products3 As Products
Set products3 = product3.Products
  Dim product4 As Product
  Set product4 = products3.Item(uArray(3))
 
  If Err.Number < 0 Then
   
    products3.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"
    Err.Number = 0
  Else
    Dim products4 As Products
    Set products4 = product4.Products
    'MsgBox CSTR(uArray(3))
    'MsgBox CSTR(Err.Number)
    products4.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"
  End If

End If

End If

Lässt sich die Produktstrukture in eine Schleife packen.
Bin über jeden Tip dankbar.
Gruß Jasiu

[Diese Nachricht wurde von Jasiu am 20. Aug. 2004 editiert.]

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

---

Hi,

ich würde folgendes Vorgehen vorschlagen:

Über die Selektion erhältst Du das PRODUCT Deines Knotens und darüber dessen PARTNUMBER. Mit folgendem Algorithmus kannst Du das passende Dokument finden und dann das CATPart einhängen:

...
Set Doc2 = FindeDokument (DEIN_PRODUCT.PartNumber)
Set Doc = CATIA.Documents.Open (DATEINAME_DEINES_CATPARTS)
Set R = Doc2.Product.Products.AddExternalComponent (Doc)
...

Function FindeDokument (SS As String) As Document

    Dim I, Richtig, S
    Richtig = False
    I = 0
    Set FindeDokument = Nothing
    Do Until Richtig
      I = I + 1
      S = ""
      On Error Resume Next
          S = CATIA.Documents.Item(I).Product.PartNumber
      On Error Goto 0
      If S = SS Then
          Richtig = True
          Set FindeDokument = CATIA.Documents.Item(I)
      End If
    Loop

End Function

------------------
Tschüß, Dieter

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