Code:
'Sprache: CATScript
Sub CATMain()
Dim sInputFile As String
sInputFile = CATIA.FileSelectionBox("STL-MODEL", "*.CATPart", CatFileSelectionModeOpen)
Dim oDoc As Document
Set oDoc = CATIA.documents.Read(sInputFile)
sInputFileName = Left(sInputFile, InStrRev(sInputFile, ".") - 1)
If Len(sInputFileName) > 72 Then
sInputFileName = Left(sInputFileName, 72)
End If
Dim sInputFileNameV1 As String
sInputFileNameV1 = sInputFileName & ".cgr"
oDoc.ExportData sInputFileNameV1, "cgr"
oDoc.Close
Set oDoc = CATIA.documents.Open(sInputFileNameV1)
Dim sInputFileV2 As String
sInputFileNameV2 = sInputFileName & ".model"
Set oDoc = CATIA.documents.Read(sInputFileNameV1)
oDoc.ExportData sInputFileNameV2, "model"
oDoc.Close
Set oDoc = CATIA.documents.Open(sInputFileNameV2)
Dim docSel As selection
Set docSel = oDoc.selection
If CATIA.SystemConfiguration.Release < "16" Then
docSel.Search "Name=CAT_1000_1"
Else
docSel.Search "V4Model.MASTER"
End If
docSel.Copy
Dim iPartNumber As String
iPartNumber = Mid(sInputFileName, InStrRev(sInputFileName, CATIA.FileSystem.FileSeparator) + 1)
Set oDoc = CATIA.documents.Add("Part")
Dim iProduct As Product
Set iProduct = oDoc.Product
iProduct.PartNumber = iPartNumber
Set docSel = oDoc.selection
docSel.Add iProduct
docSel.Paste
iProduct.Update
oDoc.SaveAs sInputFileName & " (Flaechen)" & ".CATPart"
'oDoc.Close
Set oDoc = CATIA.documents.Item(CATIA.documents.Count - 1)
oDoc.Close
End Sub