Seznam příspěvků uživatele

Sub CATMain()

Dim acDoc

Dim acProd

Dim tmpString

Dim FileName

Dim  FileSeparator

FileSeparator = CATIA.FileSystem. FileSeparator



Set acDoc = CATIA.ActiveDocument

Set acProd = acDoc.Product



acProd.ApplyWorkMode  DESIGN_MODE



'SETS THE PartNumber = FileName For ALL DOCUMENTS OPEN IN CATIA.

'WILL CRASH If DRWAING ECT ARE OPEN!

For Each oDoc IN CATIA.Documents

tmp = SPLIT(oDoc.FullName, FileSeparator)

tmpString = tmp(UBOUND(tmp))

tmp = SPLIT(tmpString,".")

FileName = tmp(0)

oDoc.Product.PartNumber = FileName

NEXT

InstanceName acProd

WalkThroughTree acProd



End SUB

'-------------------------------------



'-------------------------------------

Sub WalkThroughTree(oParent)

Dim iProduct

Dim oChild

For iProduct = 1 TO oParent.Products.Count

Set oChild = oParent.Products.Item(iProduct)

InstanceName oChild.ReferenceProduct

WalkThroughTree oChild.ReferenceProduct

NEXT

End SUB

'-------------------------------------



'-------------------------------------

Sub InstanceName (oParent)

Set oDict = CreateObject("Scripting.Dictionary")

ON ERROR RESUME NEXT

Dim iProduct

Dim oItemToRename

Dim ItemPartNumber

For Each oItemToRename IN oParent.Products

ItemPartNumber = oItemToRename.PartNumber

If oDict.Exists(ItemPartNumber) Then

oDict.Item(ItemPartNumber) =oDict.Item(ItemPartNumber) +1

Else

oDict.Add ItemPartNumber,  1

End If

'rename Parts

oItemToRename.Name = ItemPartNumber & "--tmpStringToStopERRORS" & oDict.Item(ItemPartNumber)

NEXT

oDict.RemoveAll



For Each oItemToRename IN oParent.Products

ItemPartNumber = oItemToRename.PartNumber

If oDict.Exists(ItemPartNumber) Then

oDict.Item(ItemPartNumber) =oDict.Item(ItemPartNumber) +1

Else

oDict.Add ItemPartNumber,  1

End If

'rename Parts

oItemToRename.Name = ItemPartNumber & "." & oDict.Item(ItemPartNumber)

NEXT

oDict.RemoveAll

End SUB

Dim answer



'-------------------------------------------

Sub CATMain()

Dim acDoc

Dim acProd

Set acDoc = CATIA.ActiveDocument

Set acProd = acDoc.Product



acProd.ApplyWorkMode  DESIGN_MODE



answer = MSGBOX("Do you wish to delete the original file?",36,"DELETION")



WalkThroughTree acProd

CATIA.DisplayFileAlerts = true

END_MESSAGE

End SUB

'-------------------------------------



'-------------------------------------

Sub WalkThroughTree(oParent)

Dim iProduct

Dim oChild



For iProduct = 1 TO oParent.Products.Count

Set oChild = oParent.Products.Item(iProduct)

If oChild.Parameters.Count <> 0 THEN

If oChild.Parameters.Item(oChild.Parameters.Count).ValueAsString = "true" THEN

'--------------------

'ADDS PARTNUMBER AND OLD INSTANCE NUMBER As NEW INSTANCENAME

tmp = SPLIT(oChild.Name,".")

oChild.Name = oChild.PartNumber & "." & tmp(UBOUND(tmp))

'--------------------

'SENDS CHILDREN WITH NO CHILDREN TO SAVE AND CHILDREN WITH CHILDERN TO WALTHROUGH (BOTTOM UP)

If oChild.Products.Count = 0 THEN

SaveAsPartNumber oChild.ReferenceProduct

ELSE

WalkThroughTree oChild.ReferenceProduct

End IF

End IF

End IF

NEXT

'--------------------

'SENDS THE PRODUCT TO SAVE AFTER ALL CHILDREN HAVE BEEN SAVED

If oChild.Parameters.Item(oChild.Parameters.Count).ValueAsString = "true" THEN

If oParent.Products.Count > 0 THEN

SaveAsPartNumber oParent

End IF

End IF

End SUB

'-------------------------------------



'-------------------------------------

Sub SaveAsPartNumber (oProd)

Dim objToDelete

Dim orginalPath

Dim oDoc

CATIA.DisplayFileAlerts = false

For Each oDoc IN CATIA.Documents

If TYPENAME(oDoc) = "ProductDocument" OR TYPENAME(oDoc) = "PartDocument" THEN

If oDoc.Product.PartNumber = oProd.PartNumber THEN

objToDelete = oDoc.FullName

orginalPath = oDoc.Path & "\"

If oProd.HasAMasterShapeRepresentation Then 'A PART HAs A MASTERSHAPEREPREASENTATION

If CATIA.FileSystem.FileExists(orginalPath & oProd.PartNumber & ".CATPart") = False THEN

oDoc.SaveAs(orginalPath & oProd.PartNumber & ".CATPart")

If answer = 6 Then CATIA.FileSystem.DeleteFile(objToDelete)

End IF

ELSE

If CATIA.FileSystem.FileExists(orginalPath & oProd.PartNumber & ".CATProduct") = False THEN

oDoc.SaveAs(orginalPath & oProd.PartNumber & ".CATProduct")

If answer = 6 Then CATIA.FileSystem.DeleteFile(objToDelete)

End IF

End IF

End IF

End IF

NEXT

End SUB

'-------------------------------------

'----------------------------------------

Sub END_MESSAGE()

MSGBOX "MACRO_NAME" 

End SUB

Sub CATMain()



Set oPubs = CATIA.ActiveDocument.Product.Publications



For i = 1 To oPubs.Count



     oPubs.Remove (oPubs.Item(1).Name)



Next



End Sub