How to make Catia active during running a macro

[Macro2015]

Hello,

I can not figure it out how to make Catia active during macro is running.

I mean when I run a macro and everything is done and Msgbox is displayed, I would like to scroll the expand tree or zoom in/zoom out/rotate the model.

I just want to be Part design active during macro is running. How to do that?


Thank you in advance for any suggestions,

 

[HarunMusic]

Can u give more info, what are u doing with macro, etc

 

[Macro2015]

Hello,

I appreciate if you could help me with this, when msgbox appears i would like to be able to click on tree and rotate the model..please see below
thanks in advance

Sub CATMain()

Dim partdocument1
Set partdocument1 = CATIA.ActiveDocument
Set part1 = partdocument1.Part

Set selection1 = partdocument1.Selection
'selection1.Search "CATPrtSearch.PartDesign Feature.Activity=FALSE"
selection1.Search "((((((CATStFreeStyleSearch.Point + CAT2DLSearch.2DPoint) + CATSketchSearch.2DPoint) + CATDrwSearch.2DPoint) + CATPrtSearch.Point) + CATGmoSearch.Point) + CATSpdSearch.Point),all"


'************************ here I want to be a Part design active! I want to roate the model, clicking on tree...
MsgBox("The number of points is: " & selection1.Count )

End Sub

 

[HarunMusic]

U want to make a macro who will count points in part or? And if u want to make a selecetion u must do it like this

Dim InputObject(0)
Dim oStatus
oStatus = oSel.SelectElement2(InputObject, "Select the Sketch, points etc", True)

with this u can select one element, if u want more u must use multiselection

 

[ferdo]

Please see this thread as example, is same thing.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

https://picasaweb.google.com/103462806772634246699/

- EU