How to get points from pathSeg ?

Hi,

I made simple script which put automaticaly ruller on all selected pathes.

But if the path is created as pathSeg I have a problem to get the points.

There are just beginPt and endPt for each segment. :( 

Is there anybody who can help me with it ?

The script should do same as for pathes:

(if you select couple of pathes and call script....it puts ruller on each of selected pathes)

procedure( Ruler_on_Path()
prog((winId cvId selObj)
winId = hiGetCurrentWindow()
cvId = getEditRep(winId)
selObj = geGetSelSet(cvId)
if(selObj then
        foreach(shape selObj
                case( shape~>objType                  
                ("path"
                points = shape~>path
                leCreateRuler(cvId points)
                )
                );case
                );foreach
                );if
    );prog
);procedure

Thanks for any advice.

Robert