---

Ich habe ein Makro (in Excel-VBA Code) geschreiben, das ein Axis System in Catia erzeugen soll.  Leider habe ich ein Problem mit CATSafeArrays

Hier ist der Code mit dem Fehler (ein bischen vereinfacht):

    Dim TheAxisSystemsSet As AxisSystems '(Ref:MECMOD Catia Library)
        Dim MyAxisSystem As AxisSystem '(Ref: MECMOD Catia Library)
        Dim XAxis(2) As Variant
        Set TheAxisSystemsSet = Catia.ActiveDocument.Part.AxisSystems
        Set MyAxisSystem = TheAxisSystemsSet.Add()
        XAxis(0) = 100#
        XAxis(1) = 0#
        XAxis(2) = 0#
        MyAxisSystem.PutXAxis XAxis

Laut Hilfe soll die XAxis als CATSafeArrayVariant benutz werden. Hierbei bekomme ich aber einen Fehler beim Kompilieren (in Excel):

"Funktion oder Schnittstelle kann nur eingeshcränkt verwendet werden oder verwendet einen Typ der Automatisierung, der von Visual Basic nicht unterstützt wird"

Komischerweise funktioniert es, mit

Dim MyAxisSystem (ohne "As AxisSystem")

Hat diese Problem vieleicht mit der
CATSafeArray Dim Definition zu tun ?

(Diese Problem tritt jedes mal auf, wenn ich ein Catia-Funktion mit CATSafeArray Param benutzte)

Kann mir jemand diesbezüglich helfen ?

Vielen Dank schonmal im Voraus

Gruß
Mark

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

---

Hallo markzf,

es funktioniert auch mit:

Dim MyAxisSystem As Object

oder mit folgendem aufgezeichneten Konstrukt:

Set MyAxisSystemVariant = MyAxisSystem
MyAxisSystemVariant.PutXAxis XAxis

Nach meiner Erfahrung ist aber (meist) nur VBA davon betroffen, unter CATScript funktioniert es.

mfg,
Lusilnie

------------------
------------------------------------------------------------

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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