CODE --> vba

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.ActiveSheet

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.ActiveView

Dim viewLinks1 As DrawingViewGenerativeLinks
Set viewLinks1 = drawingView1.GenerativeLinks
viewLinks1.RemoveAllLinks

Dim partDocument1 As Document
Set partDocument1 = CATIA.Documents.Item("square.CATPart")

Dim viewBehavior As DrawingViewGenerativeBehavior
Set viewBehavior = drawingView1.GenerativeBehavior
viewBehavior.Document = partDocument1
viewBehavior.Update

End Sub