Difference between revisions of "GenerateCATPartFromProduct"
From scripting
(Created page with " Sub GenerateCATPartFromProduct() Dim ActDoc As ProductDocument Set ActDoc = CATIA.ActiveDocument Dim MySel As Selection Set MySel = CATIA.ActiveDocument.Selection MySel....") |
(No difference)
|
Latest revision as of 05:36, 22 April 2017
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