Dim oDocs As Documents
Set oDocs = CATIA.Documents
Dim oDOc As DrawingDocument
Set oDOc = CATIA.ActiveDocument
Dim oDoc1 As Document
Set oDoc1 = oDocs.Item("1.CATPart")
Dim oDRoot As DrawingRoot
Set oDRoot = oDOc.DrawingRoot
Dim oSheet As DrawingSheet
Set oSheet = oRoot.Item("Sheet.1")
Dim...
