CATIA Automation (VBA, VB.net), Sketch Constraint "FIX TOGETHER"

[MarcoSFO]

Hello,

I have a contour in a CATIA sketch which I would like to move around and rotate. My plan is to fix the geometric elements together to be able to do so without changing the shape of the contour.

Is it possible to create this kind of constraint?
I haven't found anything in AutomationV5.chm and Macro Recording doesn't help neither.

Please help.


Thank you

 

[ferdo]

Hi

You need to modify according to your needs.

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = partDocument1.Selection

selection1.Search "CATSketchSearch.2DGeometry,all"

CATIA.StartCommand "Fix Together"

End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU

 

[MarcoSFO]

Thank you!

That's a good start I guess but how do i hit the ok button afterwards automatically? The selected items just get referenced in the fix-together command field but it doesn't actually execute the command unless the user hits ok???

Thank you again for your help

 

[ferdo]

You can do it in catvba with SendKeys.

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

- Romania

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

- EU

 

[MarcoSFO]

AppActivate("CATIA")
SendKeys.Send("{ENTER}")

like this or do you have a better idea? thanks

 

[MarcoSFO]

And another question, is there a method to rotate geometric elements?
Sometimes I have the Problem that my contour is 90° rotated, which is wrong. Now I have to rotate it.