Hallo,
ich hab ein Drawing mit Vorderansicht, einer Seitenansicht erstellt und wollte noch eine Schnittansicht einfügen. Allerdings bekomme ich immer folgende Fehler-Meldung:
Compile error:
Function or interface marked as restricted, or function uses an Automation type not supported in Visual Basic
Mein Code:
Dim obj_offsetView As DrawingView
Dim obj_offsetViewGB As DrawingViewGenerativeBehavior
Set obj_offsetView = obj_sheet.Views.Add("Offset A-A")
Set obj_offsetViewGB = obj_offsetView.GenerativeBehavior
obj_offsetView.X = 50
obj_offsetView.Y = 300
Dim ary_offsetLine(3)
ary_offsetLine(0) = 10#
ary_offsetLine(1) = 60#
ary_offsetLine(2) = 10#
ary_offsetLine(3) = -60#
obj_offsetViewGB.DefineSectionView ary_offsetLine, "SectionView", "Offset", 0, obj_frontViewGB
Dim obj_offsetViewGL As DrawingViewGenerativeLinks
Set obj_frontViewGL = obj_offsetView.GenerativeLinks
Set obj_offsetViewGL = obj_frontView.GenerativeLinks
obj_offsetViewGL.CopyLinksTo obj_frontViewGL
obj_offsetViewGB.Update
obj_offsetView.ReferenceView = obj_frontView
obj_offsetView.AlignedWithReferenceView
(Mit obj_frontView hab ich zuvor schon eine linke Seitenansicht erstellt)
Kann es sein das die Funktion nur im Script funktioniert und nicht in einem CATvba? Denn wenn ichs aufzeichne funktionierts. Ich hab Catia V5 R18.
Kann mir da jemand weiterhelfen?
Ich sag schon mal danke,
Gruß
Markus
[Diese Nachricht wurde von TVcad am 28. Jan. 2010 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP