Hi :)
I try to Convert CATParts to CATProducts with use :
CATIA.StartCommand ("Generate CATpart from product...")
But no works, I need to do ENTER, but Enter is oki in VBA windows, impossible to activate the little Windows messages for do OKI.
Idea?
Option Explicit
Sub CATMain()
Dim Doc
Set Doc = CATIA.ActiveDocument
Dim StrProd
Set StrProd = Doc.Product
Dim Sel1
Set Sel1 = Doc.Selection
Sel1.Add StrProd
CATIA.StartCommand ("Generate CATpart from product...")
AppActivate ("CATIA V5")
Dim ActWin As Window
Set ActWin = CATIA.Windows.Item(Doc.Name)
ActWin.Activate
Application.Wait (Now + TimeValue("00:00:01"))
AppActivate ("Generate CATPart from Product")
SendKeys "{Enter}", True
End Sub