---

Hallo Forenmitglieder,

ich wende mich an euch, da ich mich gerade ein einem Makro versuche mit dem ich aus einer Excel-Tabelle ein CATProduct generieren kann.

Ich stelle mir das ganze folgendermaßen vor:

In einer Spalte stehen meine Teilenummern untereinander. Ich möchte nun einen Bereich davon markieren und über einen "Generate-Button" ein Product mit Parts erstellen.
Die erste Zeile der Auswahl ist das Product, die darunterliegenden sind die Parts.

Leider kenne ich mich bis jetzt noch nicht wirklich mit dem Thema VBA-Makroprgrammierung aus.

Das einzige was ich einigermaßen passend zu Thema in Internet gefunden habe ist ein Auszug aus dem Buch:

"VB Scripting for CATIA V5: How to program CATIA V5 macros, Band 5"

http://books.google.de/books?id=8x9UAgAAQBAJ&pg=PA131&lpg=PA131&dq=new+product++excel+catia&source=bl&ots=Wbz83WUDjT&sig=AquKWB4j0JjErCQVTdmRtDsF0i0&hl=de&sa=X&ei=RmDfU5TnGLCV7Ab9q 4DwCQ&ved=0CDMQ6AEwAQ#v=onepage&q=new%20product%20%20excel%20catia&f=false

Leider funktioniert aber nicht einmal dieses Makro bei mir. Es kommt immer eine Fehlermeldung
Dim oProdDoc As ProductDocument --> "Fehler beim Kompilieren, Benutzerdefinierter Typ nicht gefunden.

Ich würde mich über eure Hilfe sehr freuen.

Ich nutze Catia V5 R20 und Excel 2010

Viele Grüße

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

---

Hallo lepmerk,

der Fehler

"Fehler beim Kompilieren, Benutzerdefinierter Typ nicht gefunden.

deutet drauf hin, dass nicht alle Bibliotheken referenziert wurden.
Deswegen kennt Excel den Datentyp 'ProductDocument' nicht.
Das steht in dem Artikel aber auch im Absatz darüber.

Tschau,
Joe

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

---

Ok, danke für den Tipp, aber wie mache ich das denn jetzt?

Bei mir gibt es keine Tools>References.

Ich kann im Excel VBA-Editor nur den Objektkatalog bzgl. Bibliotheken finden. Hier kann ich aber keine Catia-Bibliotheken anwählen.

Grüße

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

---

Servus
Hast du Excel auf deutsch eingestellt?
Dann unter (im VBA-Editor) Extras -> Verweise die entsprechenden Bibliotheken anwählen.

Gruß
Bernd

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

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

---

Super,

hab ich hinbekommen, jetzt läuft es und erstellt mir das gewünschte Product.

Wie mach ich jetzt weiter?

Anstelle der vordefinierten Namen möchte ich ja die Namen der Zellen und die Anzahl der Parts entsprechend der ausgewählten Anzahl der Zellen.

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

---

Servus
Du arbeitest dich am besten zuerst in VBA allgemein (zB Excel) (bzw auch VB 6.0) ein. Dazu solltest du genügend Lernmaterial finden. Danach kannst du dich mit passender Literatur an VBA in CATIA einarbeiten.

Gruß
Bernd

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

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

---

Hallo zusammen,

bin jetzt ein Stück weiter. Makro erstellt mir jetzt ein Product mit so vielen Parts wie ausgewählt sind. Leider klappt aber die Benennung der Parts noch nicht ganz. Es kommt immer ein Laufzeitfehler in Zeile

Set newPart = oProductsRoot.AddNewComponent("Part", Selection.Cells(i + 1).Value)

Wenn ich die Zeile weglasse werden mir die richtigen Werte in den Boxen angezeigt.

Was ist falsch?

Jemand ein Tipp für mich?

So sieht es bis jetzt aus:

Sub ExcelToCatia()

Dim CATIA As INFITF.Application
On Error Resume Next
Set CATIA = GetObject("CATIA.application")

If Err.Number <> 0 Then
    Set CATIA = CreateObject("CATIA.application")
    CATIA.Visble = True
End If
    On Error GoTo 0
   
'active worksheet
Dim oWB As Excel.Workbook
Set oWB = Excel.ActiveWorkbook
Dim oSh As Excel.Worksheet
Set oSh = oWB.ActiveSheet

'create a new product
Dim oProdDoc As ProductDocument
Set oProdDoc = CATIA.Documents.Add("Product")

Dim oRootProd As Product
Set oRootProd = oProdDoc.Product

'rename newly created product to "Example"
oRootProd.PartNumber = ActiveCell.Value

Dim oProductsRoot As Products
Set oProductsRoot = oRootProd.Products

'create new parts named like active cells

Dim Anzahl As Integer
Dim i As Integer
Dim newPart As Product

Anzahl = Selection.Count

MsgBox Anzahl

For i = 1 To Anzahl - 1

MsgBox (Selection.Cells(i + 1))

Set newPart = oProductsRoot.AddNewComponent("Part", Selection.Cells(i + 1).Value)

Next i

'Update the product
oRootProd.Update

End Sub

Grüße

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

---

Hallo lepmerk,

änder mal Deine Code so ab:

Code:

---

'create new parts named like active cells

Dim Anzahl As Integer
Dim i As Integer
Dim newPart As Product

i = 1

While oSh.Cells(i, 1).Value <> ""

  Set newPart = oProductsRoot.AddNewComponent("Part", oSh.Cells(i, 1).Value)
  i = i + 1

Wend

'Update the product

---

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

---

Habs jetzt hinbekommen.

Weis zwar nicht ob das so "schön" geschrieben ist, aber es funktioniert.

Private Sub CommandButton1_Click()
'Sub ExcelToCatia()

Dim Auswahl As Range

Set Auswahl = Application.InputBox("Zeichnungsnummern auswählen", , , , , , , 8)

Dim CATIA As INFITF.Application
On Error Resume Next
Set CATIA = GetObject("CATIA.application")

If Err.Number <> 0 Then
    Set CATIA = CreateObject("CATIA.application")
    CATIA.Visble = True
End If
    On Error GoTo 0
   
'active worksheet
Dim oWB As Excel.Workbook
Set oWB = Excel.ActiveWorkbook
Dim oSh As Excel.Worksheet
Set oSh = oWB.ActiveSheet

'create a new product
Dim oProdDoc As ProductDocument
Set oProdDoc = CATIA.Documents.Add("Product")

Dim oRootProd As Product
Set oRootProd = oProdDoc.Product

'rename newly created product to Auswahl
oRootProd.PartNumber = Auswahl(1)
Dim oProductsRoot As Products
Set oProductsRoot = oRootProd.Products

'create new parts named like Auswahl

Dim Anzahl As Integer
Dim i As Integer

Dim newPart As Product

Anzahl = Auswahl.Count

'MsgBox Anzahl

For i = 1 To Anzahl - 1
On Error Resume Next

'MsgBox (Auswahl(i + 1))

Set newPart = oProductsRoot.AddNewComponent("Part", Auswahl(i + 1))

Next i

'Update the product
oRootProd.Update

End Sub

Jetzt will ich nur noch einbauen, dass ausgeblendete Zeilen nicht mit ausgewählt werden.

Dann kann ich schon ganz gut damit arbeiten.

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