---

2010-04-22_162601.jpg

Hallo Leute,

folgendes Problem:

ich möchte über ein Macro zusätzliche Eigenschaften einfügen(siehe Bild).
Habe es mir aufgenommen und so gut es ging angepasst. Leider kriege ich es nicht hin    dass es auch im Produkt funktioniert.Es soll im Product in jedes Catpart die zusätzliche Eigenschaften einfügen.

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument
Set product1 = partDocument1.GetItem("")

Set parameters1 = product1.UserRefProperties

Set intParam1 = parameters1.CreateInteger("Pos", "22" )
Set strParam1 = parameters1.CreateString("Benennung", "??")
Set strParam1 = parameters1.CreateString("Material", "????")
Set strParam1 = parameters1.CreateString("DIN", "33")

End Sub

Kann mir jemand bei meinem Problem helfen?

Vielen Dank für eure Antwort!

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

---

Hallo  ,

und hier kommt die Lösung 

Code:

---

Option Explicit

Sub CATMain()
   
    '***Deklarationen
    Dim intProdDocObj As ProductDocument
    Dim intProdObj As Product
    Dim intSelObj As Selection
    Dim i As Integer
    Dim intUserParasObj As Parameters
    Dim intParaToAddObj As Parameter
   

    '***Objekte instanzieren
    On Error GoTo WrongDoc
    Set intProdDocObj = CATIA.ActiveDocument
    Set intSelObj = intProdDocObj.Selection
    intSelObj.Clear
   
    '***Bauteile suchen
    intSelObj.Search "CATAsmSearch.Part,all"
    If intSelObj.Count = 0 Then
        MsgBox "Es wurden keine Bauteile gefunden", vbExclamation, "FEHLER"
        Exit Sub
    End If
   
    '***Parameter anlegen
    On Error GoTo 0
    On Error GoTo ParaError
    For i = 1 To intSelObj.Count
        Set intProdObj = intSelObj.Item(i).Value
        Set intUserParasObj = intProdObj.ReferenceProduct.UserRefProperties
        Set intParaToAddObj = intUserParasObj.CreateInteger("Pos", "22")
        Set intParaToAddObj = intUserParasObj.CreateString("Benennung", "??")
        Set intParaToAddObj = intUserParasObj.CreateString("Material", "????")
        Set intParaToAddObj = intUserParasObj.CreateString("DIN", "33")
    Next
   
    '***Ausgabe
    MsgBox "Es wurden " & intSelObj.Count & " Bauteile geändert", vbInformation, "MAKRO BEENDET"
    intSelObj.Clear
   
    '***Kein Fehler
    Exit Sub
         
WrongDoc:
    MsgBox "Das aktive Dokument ist kein Produkt!", vbExclamation, "FEHLER"
    Exit Sub
   
ParaError:
    MsgBox "Es ist ein Fehler beim Erstellen der Parameter ausfgetretten", vbExclamation, "FEHLER"
    Exit Sub
   
End Sub

---

------------------
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

---

2010-04-22_231142.jpg

Hallo Daniel,

Vielen Dank für die schnelle Antwort, habe es auch gleich versucht, aber dabei kam diese Fehlermeldung: (siehe Bild)
Würde es gern auch selbst korrigieren, aber habe davon ja keine Ahnung.    

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

---

Hallo  ,

das liegt an deiner *.CATvbs. *.CATvbs deklariert die Datentypen selbständig. D.h. in CATvbs werden keine "DIM" Anweisungen verwendet. Du hast jetzt folgende Möglichkeiten:

1. Du kopierst den Code in ein neues *.CATScript
2. Du kopierst den Code in ein neues *.CATbva Modul
3. Du löschst alle "DIM" Anweisungen aus dem obigen Code (oder kommentierst sie mit einem Hochkomma aus)

------------------
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

---

2010-04-23_102233.jpg

Hallo Daniel,

danke für deine Hilfe.
Leider bleibt es jetzt an einer anderen Stelle hängen (siehe Bild).
Kannst du mir weiter hälfen?
Vielen Dank im Voraus.

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

---

Fehlermeldungen sind immer hilfreich, aber ich vermute mal, dass ein GoTo nicht funktioniert.
Also keine Sprungmarken.
In dem Fall vielleicht ein On Error Resume Next einbauen und dann prüfen ob die Objekte leer (Nothing) sind.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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