Hi,CATIA Community users,

I'm looking to create a macro that sketches a crossline at the origin of a tangent plane to a point. Since I have multiple planes and points, it's too cumbersome to sketch them one by one. 

In CATIA Part Design, there are Geometrical Sets named "Surface," "Intersection," "Plane," and "Sketch." Within the Geometrical Set "Surface," there is one surface named "Surface.1." In the Geometrical Set "Intersection," there are 34 points on Surface.1, named Point.1 through Point.34. In the Geometrical Set "Plane," there are 34 planes named Plane.1 through Plane.34.

I want to create a macro to automate the following tasks:

Enter the Positioned Sketch inside the Geometrical Set "Sketch."
Set the Planar support Type to Positioned.
Set the Reference to Plane.1.
Set the Origin to Projection point with Reference to Point.1.
Create a sketch with a crossline at the sketch origin, with the crossline arms measuring 1 inch.

Since doing this manually is cumbersome, I would like to create a macro. I want the sketches inside the Geometrical Set "Sketch" to be named as Sketch.1, Sketch.2, and so on.