Catia V5 windows arrangement
Catia V5 windows arrangement
(OP)
Hello to all,
When I run code to cursor everything works well (Catia windows arranged vertically).
But when I run the same code in auto mode nothing happens (no arrangement).
I just want to open file, copy named feature and past it into another CATPart using SelectElement2.
I dont want to switch between windows that is why I want to use arrangement.
Any help will be greatly appresiated,
Jenia Ladkov.
When I run code to cursor everything works well (Catia windows arranged vertically).
But when I run the same code in auto mode nothing happens (no arrangement).
CODE --> vb.net
Dim Part As Document
Part = myCatia.Documents.Open("xxxxxxxxxxxxxxxx.CATPart")
Part = myCatia.ActiveDocument
'----Arrange Catia V5 windows----
Dim CatiaWindows As Windows
CatiaWindows = myCatia.Windows
CatiaWindows.Arrange(CatArrangeStyle.catArrangeTiledVertical)
'----Feature select and copy----
Dim MySelection As Selection
MySelection = myCatia.ActiveDocument.Selection
MySelection.Search("CATStFreeStyleSearch.GSM3DCurveOffset + CATGmoSearch.GSM3DCurveOffset,all")
myCatia.StartCommand("copy") I just want to open file, copy named feature and past it into another CATPart using SelectElement2.
I dont want to switch between windows that is why I want to use arrangement.
Any help will be greatly appresiated,
Jenia Ladkov.





RE: Catia V5 windows arrangement
CODE --> vb.net
'----Arrange Catia V5 windows---- Dim CatiaWindows As Windows CatiaWindows = myCatia.Windows CatiaWindows.Arrange(CatArrangeStyle.catArrangeTiledVertical)With me is working fine.
Tiago Figueiredo
Tooling Engineer
RE: Catia V5 windows arrangement
In auto mode I get following
Only works for me if I move code after message box right before selection
CODE --> vb.net
MsgBox("Select Geometrical set where copied element will be inserted.", vbOKOnly, "Features to copy") Dim CatiaWindows As Windows CatiaWindows = myCatia.Windows CatiaWindows.Arrange(CatArrangeStyle.catArrangeTiledVertical) status = PasteSel.SelectElement2(ObjectFilter, "Select Geometrical set...", False) myCatia.StartCommand("paste")RE: Catia V5 windows arrangement
Probably Catia don't have time to arrange the windows before message box.
you can try the following if you really want that message:
CODE --> vb.net
Dim CatiaWindows As Windows CatiaWindows = myCatia.Windows CatiaWindows.Arrange(CatArrangeStyle.catArrangeTiledVertical) status = PasteSel.SelectElement2(ObjectFilter, "Select Geometrical set...", False) myCatia.StartCommand("paste") myCatia.RefreshDisplay = True MsgBox("Select Geometrical set where copied element will be inserted.", vbOKOnly, "Features to copy")Tiago Figueiredo
Tooling Engineer
RE: Catia V5 windows arrangement
RE: Catia V5 windows arrangement
Tiago Figueiredo
Tooling Engineer
RE: Catia V5 windows arrangement
RE: Catia V5 windows arrangement
Tiago Figueiredo
Tooling Engineer