GenerateCATPartFromProduct

From scripting
Revision as of 05:36, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Sub GenerateCATPartFromProduct() Dim ActDoc As ProductDocument Set ActDoc = CATIA.ActiveDocument Dim MySel As Selection Set MySel = CATIA.ActiveDocument.Selection MySel....")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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