How to use translate function in CATIA V5

Question

I am studying CATIA VBA. The version is V5. I wrote the following code based on the book and help, but it gives me an error.

Sub CATMain()
Dim oViewer3D As Viewer3D
Dim translationVector(2) As Variant

translationVector(0)=0
translationVector(1)=0
translationVector(2)=0

Set oViewer3D = CATIA.ActiveWindow.ActiveViewer
Dim oCamera As Camera3D
Set oCamera3D = CATIA.ActiveDocument.Cameras.Item(1)

oViewer3D.Viewpoint3D = oCamera3D.Viewpoint3D
oViewer3D.Translate translationVector '<-Error

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

How can I resolve this error?

oViewer3D.Translate translationVector '<-Error

I would like to resolve an error that occurs on this line. However, I have no information and am having trouble.

Try to declare _oViewer3D_ as _Object_ – Shrotter Jun 28 '23 at 14:52 — Shrotter, Jun 28 '23 at 14:52
Thank you for your advice. It's worked! – Kflower Jul 01 '23 at 05:49 — Kflower, Jul 01 '23 at 05:49

score 0 · Accepted Answer · answered Jul 01 '23 at 05:51

0

Thank you for comment. It's worked. the correct code is the below.

Dim oViewer3D As Object 'Viewer3D

answered Jul 01 '23 at 05:51

Kflower

11
5

How to use translate function in CATIA V5

1 Answers1