GenerateCATPartFromProduct

From scripting
Jump to: navigation, search
Sub GenerateCATPartFromProduct()
Dim ActDoc As ProductDocument
Set ActDoc = CATIA.ActiveDocument
Dim MySel As Selection
Set MySel = CATIA.ActiveDocument.Selection
MySel.Add ActDoc.Product         '.Products.Item(1) 

CATIA.RefreshDisplay = True
CATIA.StartCommand "Generate CATPart from Product..."
CATIA.RefreshDisplay = True 

Dim PauseTime, Start, Finish, TotalTime
PauseTime = 0.5
Start = Timer
Do While Timer < Start + PauseTime
    DoEvents
Loop
Finish = Timer
TotalTime = Finish - Start 

CATIA.RefreshDisplay = True
SendKeys "{Enter}", True
End Sub