---

Hallo an alle.
Ich habe folgendes Problem:
Ich habe ein Product.1 und ich möchte hier einen neuen Mechanismus erzeugen, der Line.1 im Part.1 und Line.1 im Part.2 als Join verbindet.

Leider scheitert es bereits an der Erstellung des Mechanismus. Die Hilfe brachte mich leider auch nicht weiter.

Dim NewMechanism As Mechanism
    Set NewMechanism = TheMechanisms.Add()

Dieser 2Zeiler erzeugt in Visual Basic leider einen Fehler.

Grüße Manrok

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

---

Servus
Du musst den Mechanismus richtig deklarieren. Ich vermute:

Code:

---

dim product1 as product
set product1 = catia.activedocumet
dim mechanismus as mechanism
set machanismus = product1.mechanisms.add()

---

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 19. Jan. 2009 editiert.]

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

---

Geht leider so nicht.

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

---

Servus
Wie lautet die Fehlermeldung?
Schreib das ganze mal im VB-Editor (Alt + F11) (ein VBA Projekt muss erstellt und als Bibliothek eingebunden werden). Dann werden die verfügbaren Befehle/Deklarationen angezeigt.

Gruß
Bernd

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

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

---

der Fehler lautet:

runtime 438

object doesen´t support this property or methode

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

---

Du musst den Mechansimus als Object dimensionieren, dann sollte es
klappen

dim mechanismus as Object

oder die Zeile auskommentieren

Gruß
Joachim

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

---

geht leider auch nicht als Object.

Selbst das Script aus der Catia-Hilfe funzt nicht.

Wie erstellt ihr denn einen neuen Mechanismus in VBA?

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

---

Zitat:

---

Original erstellt von mutzi:
Du musst den Mechansimus als Object dimensionieren, dann sollte es
klappen

dim mechanismus as Object

oder die Zeile auskommentieren

Gruß
Joachim

---

Hallo,

dann gehts IMHO auch nicht. Schau dir mal folgenden Code an. Erstens musst du beim Produktobjekt (hier oProd) auch das Produkt ansprechen und nicht nur das ActiveDocument. Zweitens musst du dir dann vom Produktobjekt die Mechanisms-Collection holen (mit den GetTechnologicalObject). In die Collection kannst du dann ein neues Objekt einfügen. Das ist dein neuer Mechanismus.

Hier der Code:

Code:

---

Sub CATMain()

    Dim oProd As Product
    Dim onewMech As Mechanism

    Set oProd = CATIA.ActiveDocument.Product
    Set oMech = oProd.GetTechnologicalObject("Mechanisms")
    Set onewMech = oMech.Add()

End Sub

---

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

---

Super vielen Dank

auf einmal habe ich einen neuen Mechanismus^^

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

---

gleich noch eine Frage 

Wie kann ich dort ein Part fix setzen?
Im Beispielskript steht leider nur ein Produkt.
Ich habe aber 2 Parts und das eine davon soll fix gesetzt werden.

vielen Dank

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

---

Hallo,

in dem Beispiel ist auch Part definiert, und zwar "Item(1)", das erste Part

Dim oProductToFix As Product
    Set oProductToFix = oRootProduct.Products.Item(1)

da kannst du je nach dem , dein gewünschten Part eingeben 1 oder 2.

Gruß

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

---

Hallo Manrok,

1:
von welchen Beispielskript redet ihr? Hab nichts in den Beiträgen gelesen. Es wäre schön wenn ihr zu Vollständigkeit noch angebt wo sich das Skript befindet (bzw. welchen Namen es trägt) damit andere Nutzer auch dein Problem nachvollziehen können

2:
@Manrok: Lass dich nicht von den Namen der Variablen bzw. Objekte täuschen. Nur weil das Teil "ProductToFix" heißt muss es kein Produkt sein. Innerhalb einer Produktstruktur sind in einem Skript alle Teile eines CATPrudkts zunächst einmal PRODUKTE.

3:
ogard1 hat recht.

------------------
MFG Daniel

Die KATJA ist halt doch nur ne zickige Französin

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

---

Hallo Daniel,
das Script heißt: CAAKiiMechanismCreation.CATScript, ist ein Beispiel aus der CAA

Gruß

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

---

Hey,
ich befasse mich auch gerade mit der Kinematik in VBA.
Ich habe mal versucht die von denjo1 geschriebenen zeilen zu übernehmen, allerdings bekomme ich dann in der Zeile

"omech = oProd.GetTechnologicalObject("Mechanisms")"

immer folgende Fehlermeldung:

Das COM-Objekt des Typs "System.__ComObject" kann nicht in den Schnittstellentyp "KinTypeLib.Mechanism" umgewandelt werden. Dieser Vorgang konnte nicht durchgeführt werden, da der QueryInterface-Aufruf an die COM-Komponente für die Schnittstelle mit der IID "{D194AC30-475C-11D4-8539-00008634168F}" aufgrund des folgenden Fehlers nicht durchgeführt werden konnte: Schnittstelle nicht unterstützt (Ausnahme von HRESULT: 0x80004002 (E_NOINTERFACE)).

Ist jemandem diese Fehlermeldung bekannt oder weiß Abhilfe? Die KinTypeLib habe ich ordnungsgemäß hinzugefügt, daran dürfte es nicht liegen.
Vielen Dank.

stpl2

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

---

Hey,
habe das Problem gelöst, es hing mit der Deklaration von omech zusammen.
Allerdings habe ich noch eine Frage:

Wie kann ich in einem Produkt mit mehreren Mechanismen einen bestimmten auswählen?

Vielen Dank.

MfG stpl2

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

---

Servus
Gemäß Dok sollte es so gehen (wie fast überall in CATIA):
Dim ThisMechanism As Mechanism
Set ThisMechanism = TheMechanisms.Item(3)
Dim ThatMechanism As Mechanism
Set ThatMechanism = CATIA.Mechanisms.Item("MyMechanism")

Gruß
Bernd

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

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

---

Um an die Collection "Mechanisms" zukommen kann folgendermaßen Vorgegangen werden:

    Dim TheKinWorkbench As Workbench
    Set TheKinWorkbench = CATIA.ActiveDocument.GetWorkbench ( "KinematicsWorkbench" )
    Dim TheMechanisms As Mechanisms
    Set TheMechanisms = TheKinWorkbench.Mechanisms

Gruß Tobias

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