---

Hallo zusammen!

Ich bin ein totaler Neuling in bezug auf Catia Makros und deshalb hab ich eine Frage an Euch:

Ich bräuchte ein catvba Makro das ein Modell dreht bzw die View ändert. Ich hab dazu mir aus dem Forum schon etwas zurecht geschnitten. Das Problem ist nun aber dass dieses Makro nur im catvbs richtig funktioniert. wenn ich das catvba Makro zuerst (nach öffnen von Catia) öffne dreht sich das Teil nicht. wenn ich aber zuerst das catvbs Makro starte dann funktioniert auch das catvba teil. also es muß irgendwas mit der aktivierung des geöffneten modells zu tun haben. Kann mir da irgendwer weiter helfen:

catvba makro:
Sub CATMain()

Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Open("W:\Catiamodelle\name.CATPart")

' Get the viewer
  Set oViewer = CATIA.ActiveWindow.ActiveViewer

' Get the viewpoint
  Set oViewpoint = oViewer.Viewpoint3D

oViewpoint.PutOrigin Array(0, 0, 0)
oViewpoint.PutSightDirection Array(0, 0, 1)

Dim a As Double
Dim Zeit, box
a = 6.3

Zeit = Timer

For X = 0 To a Step 0.001
oViewpoint.PutSightDirection Array(-Sin(X), -Cos(X), 1)
oViewpoint.PutUpDirection Array(Sin(X), -Cos(X), 0)
oViewpoint.ProjectionMode = catProjectionCylindric
oViewer.Reframe
oViewer.Update
Next

Zeit = Timer - Zeit
box = MsgBox("Das Drehen dauerte: " & Round(Zeit, 2) & "s")

Set oViewpoint = Nothing
Set oViewer = Nothing

End Sub

Vielen Dank im voraus

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