Hallo Forum,
wir haben ein ähnliches Problem. Ich möchte gerne vor dem Ersten Speichern meine CATDrawing mit einem Catia Save sichern.
unter http://ww3.cad.de/foren/ubb/Forum137/HTML/003200.shtml "Test 1 zip" gibt es ein tolles Catscript welches genau dieses tut.
Ich wollte den Code nun als Smarteam Script speichern. Er stört sich leider an der Funktion "Name".
Kennt vielleicht jemand dieses Verhalten und kann mir hierzu einen Lösungsansatz posten.
Vielen Dank
Norbert
CODE
Option Explicit
Function SSC_saveCATDrawing(ApplHndl As Long,Sstr As String,FirstPar As Long,SecondPar As Long,ThirdPar As Long ) As Integer
On Error Resume Next
' Object in CATIA holen, das gerade Eingecheckt wird
Dim CATIA As Object
Set CATIA = GetObject(, "CATIA.Application")
Dim CATIADoc As Object
Dim oSelection As Object
Set CATIADoc = catia.activedocument
Set oSelection = CATIADoc.selection
Dim Dateipfad As String
Dim LoeschEndung
'Dim CATIADoc As Document
'Set CATIADoc = CATIA.ActiveDocument
If TypeName(CATIADoc) = "PartDocument" Then
CATIA.ActiveDocument.Save
End If
If TypeName(CATIADoc) = "ProductDocument" Then
CATIA.ActiveDocument.Save
End If
If TypeName(CATIADoc) = "DrawingDocument" Then
msgbox "01"
'__________________Ansicht bestimmen_________________________________
Dim drawingDocument1 'As Document
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
drawingView1.Activate
msgbox "02"
'_______________________________________________________________
'__________________________Dateipad LESEN___________________________________________
Dateipfad = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.Path
'FullName = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.Fullname
Name = drawingView1.GenerativeBehavior.document.ReferenceProduct.Parent.name
'________________________________________________________________________________________
msgbox "03"
'__________________________________Datei endung Part Loeschen____________________________
LoeschEndung = Left(Name, InStrRev(Name, ".") - 1)
'__________________________________________________________________________________________
msgbox "04"
CATIA.DisplayFileAlerts = False
Datei = Dateipfad & "\" & LoeschEndung & ".CATDrawing"
CATIA.ActiveDocument.SaveAS Datei
msgbox "05"
End If
'Next
End Function
------------------
V5R18
Catia + Smarteam
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP