Language="VBSCRIPT"

Sub CATMain()

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

drawingDocument1.ExportData "C:\temp\TXT2CATPART.dwg", "dwg"

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

specsAndGeomWindow1.Close 

Set drawingDocument1 = CATIA.ActiveDocument

drawingDocument1.Close 

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim document1 As Document
Set document1 = documents1.Open("C:\temp\TXT2CATPART.dwg")

Dim drawingDocument2 As Document
Set drawingDocument2 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = drawingDocument2.Selection

selection1.Search "CATSketchSearch.2DPolyline,all"

Set drawingDocument2 = CATIA.ActiveDocument

Dim selection2 As Selection
Set selection2 = drawingDocument2.Selection

'selection2.Clear 

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument2.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Item("Model")

Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Item("Main View")

selection2.Add drawingView1

selection2.Copy 

Dim result
Dim params()
result = CATIA.SystemService.ExecuteScript("c:\CATSCRIPTS_GOOD\", catScriptLibraryTypeDirectory, "CAAInfCreateDocument.CATScript", "CATMain", params)
call CATIA.SystemService.ExecuteProcessus("c:\CATSCRIPTS_GOOD\CAAInfCreateDocument.CATScript")


End Sub