---

Hallo,
ich wollte fragen ob in der V5Automation.chm Funktionen aufgeführt sind, die ich in cATVBA nicht verwenden kann.
Ich wollte folgende Funktion verwenden:

Code:

---

Dim TransformationArray(11)
'Rotation( 45 degrees around the x axis) components
TransformationArray(0) = 1#
TransformationArray(1) = 0
TransformationArray(2) = 0
TransformationArray(3) = 0
TransformationArray(4) = 0.707
TransformationArray(5) = 0.707
TransformationArray(6) = 0
TransformationArray(7) = -0.707
TransformationArray(8) = 0.707
'Translation Vector (10,20,30)
TransformationArray(9) = 10#
TransformationArray(10) = 20#
TransformationArray(11) = 30#

EngineMoveObject.Apply TransformationArray

---

Dazu erhalte ich als Fehlermeldung:

Zitat:

---

Compile error:
Function or interface marked as restricted, or the function uses an Automation type not supported in Visual Basic.

---

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

---

Hallo,

du kannst ALLE Funktionen verwenden die dort aufgeführt sind. Das Problem ist hierbei nicht die Funktion selber sondern die Deklaration der Variable. Es gibt Funktionen deren Objekte nicht als native CATIA Datentypen deklariert werden dürfen. Suche hierzu z.B. mal nach "SelectElement" im Board.

In deinem Fall deklariere mal das "EngineMoveObject" als Objekt und nicht als nativen CATIA Datentyp. Du wirst sehen es geht. Nachteil an der Sache ist die IntelliSense (Autovervollständigung fällt bei solchen Deklarationen weg).

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

---

Wieso steht das in der Doku denn anders? Typisch
Trotzdem Danke für deine Antwort!

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

---

Hallo   ,

ähm wo genau steht das du es in einem CATvba nicht verwenden kannst? Habe gerade mal geschaut und nichts dergleichen gefunden  

[EDIT]
Hier nochmal der Code den ich zum Testen verwendet habe. Der Code bewegt das erste Produkt (Part) im Root-Produkt um die angegebenen Werte:

Code:

---

Sub CATMain()

    Dim intDocObj As ProductDocument
    Dim intProdObj As Product
    Dim intMoveObj As Object 'Move
    Dim intTransArray(11)

    Set intDocObj = CATIA.ActiveDocument
    Set intProdObj = intDocObj.Product.Products.Item(1)
    Set intMoveObj = intProdObj.Move

    'Rotation( 45 degrees around the x axis) components
    intTransArray(0) = 1#
    intTransArray(1) = 0
    intTransArray(2) = 0
    intTransArray(3) = 0
    intTransArray(4) = 0.707
    intTransArray(5) = 0.707
    intTransArray(6) = 0
    intTransArray(7) = -0.707
    intTransArray(8) = 0.707
    'Translation Vector (10,20,30)
    intTransArray(9) = 10#
    intTransArray(10) = 20#
    intTransArray(11) = 30#

    intMoveObj.Apply intTransArray

End Sub

---

[/EDIT]

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