Text dotazu:
Dobrý deň,

vedel by mi niekto poradiť kde robím chybu v makre, resp upraviť makro tak aby vkladalo scenu z produktu na vykres?

Sub CATMain()

Dim drawingDocument1 As DrawingDocument

Set drawingDocument1 = CATIA.ActiveDocument



Dim drawingSheets1 As DrawingSheets

Set drawingSheets1 = drawingDocument1.Sheets



Dim drawingSheet1 As DrawingSheet

Set drawingSheet1 = drawingSheets1.Item("Sheet.1")



Dim drawingViews1 As DrawingViews

Set drawingViews1 = drawingSheet1.Views



Dim drawingView1 As DrawingView

Set drawingView1 = drawingViews1.Add("AutomaticNaming")



Dim drawingViewGenerativeLinks1 As DrawingViewGenerativeLinks

Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks



Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior

Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior



Dim documents1 As Documents

Set documents1 = CATIA.Documents



Dim productDocument1 As ProductDocument

Set productDocument1 = documents1.Item("zost4.CATProduct")



Dim reference1 As Reference

Set reference1 = productDocument1.GetItem("zost4")



Dim productScenes1 As ProductScenes

Set productScenes1 = reference1.GetTechnologicalObject("ScenesCollection")



Dim productScene1 As ProductScene

Set productScene1 = productScenes1.Item(1)



drawingViewGenerativeLinks1.AddLink (productScene1)



drawingViewGenerativeBehavior1.DefineIsometricView -0.755871, 0.651121, 0.068561, -0.25853, -0.393038, 0.882431



drawingView1.X = 210#

drawingView1.Y = 150#

drawingView1.[Scale] = 1#



Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior

drawingViewGenerativeBehavior1.Update

End Sub