boundary sketch for selected surface?

Is there any macro to create  boundary sketch for selected surface in specified plane. Not 3D sketch.

Please refer the attached part.

Thanks

SolidworksApi macros