this code assumes you have already selected your AxisSystem. I retrieve all the info from this axis system (origo, axis coordinates) and create two lines that will span the plane.
Sub CATMain()
Dim partDocument1 As partDocument
Set partDocument1 = CATIA.ActiveDocument
Dim part1 As part
Set...