Advanced Meshing Tools with CATVBA

[AkRaMuS]

Hello everybody,

beforehand, I apologize for my English.
It's my first time here. My name is Akram and I am a mechanical engineer in aeronautic.
I usely work with VBA & CATVBA to automate part design (Parts & Products).

But this time I have to work on Analysis.
the operation is quite easy. I just have to execute a circular repetition on a part surface (already meshed).
But when I tried to record the operation on CATIA, it's give my nothig uhelpful:

"Dim specsAndGeomWindow1 As SpecsAndGeomWindowk
Set specsAndGeomWindow1 = CATIA.ActiveWindow

Dim viewer3D1 As Viewer3D
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer

Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D”

here is a pic for more information
Before operation
Link
After operation
Link

Thanks

 

[ferdo]

Hi,

I believe you need to work with AddNewCircPattern....an example can be found in v5automation file - Creating a Simplified Camshaft

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

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