Cut Segment

Hi Guys,

I am trying to develop a script to cut the segment 2mm apart, center of the line selected by user.

but i not sure how to create script that can cut multiple segment without re-run the script.

Here is my content, hope to get some input from you.=)

axlCmdRegister( "millin2g" `cutsegment ?cmdType "general")

(defun cutsegment ()
line_ya = 0
line_yb = 0
line_xa = 0
line_xb = 0
loop = t
gap = 2

while( loop

axlClearSelSet()
axlSetFindFilter( ?enabled (list "noall" "linesegs") ?onButtons (list "alltypes"))
axlSelect()
line = car(axlGetSelSet())
line_type = line->lineType

if(line_type == nil then

axlUIWPrint(nil "Please select line" )
axlClearSelSet()
axlShell("done")
loop = t

else
line_center = axlMidPointLine(list(car(line->startEnd) car(cdr(line->startEnd))))
case( strcat(line_type)
("horizontal" ;y is same from point xa to xb
line_xa = car(axlMidPointLine(line->startEnd))- gap
line_xb = car(axlMidPointLine(line->startEnd))+ gap
line_ya = car(cdr(line_center))
line_yb = line_ya

axlShell("done")
axlClearSelSet()
_cut(line_xa line_ya line_xb line_yb)
loop = nil
)
("vertical" ;x is same from point ya to yb
line_xa = car(line_center)
line_xb = line_xa
line_ya = car(cdr(axlMidPointLine(line->startEnd)))- gap
line_yb = car(cdr(axlMidPointLine(line->startEnd)))+ gap

axlShell("done")
axlClearSelSet()
_cut(line_xa line_ya line_xb line_yb)
loop = nil
)
)
)
)
)

Eugene