How to use enterPath() and rodCreatePath() create three Multiple path?

There is the code of one multiple path：

procedure(test_enterPath()
let(()
enterPath(
?prompt list("Enter the first point" "Enter the next point")
?pathStyle "Truncate"
?pathWidth 2
?doneProc "test_DonePath"
)
t
)
)

procedure(test_DonePath(w done pts)
let(()
if(done then
rodCreatePath(
?layer list("AA" "drawing")
?width 1.0
?choppable t
?endType "truncate"
?beginExt 0.0
?endExt 0.0
?offset 0.0
?justification "center"
?pts pts
?cvId geGetEditCellView()
?encSubPath list(
list(
?layer list("M1" "drawing")
?enclosure 0.0
?choppable t
?beginOffset 0.0
?endOffset 0.0
)
list(
?layer list("SP" "drawing")
?enclosure -0.18
?choppable t
?beginOffset 0.0
?endOffset 0.0
)
)
?subRect list(
list(
?layer list("CT" "drawing")
?width 0.22
?length 0.22
?space 0.28
?choppable t
?justification "center"
?sep 0.0
?beginSegOffset 0.0
?endSegOffset 0.0
?beginOffset -0.14
?endOffset -0.14
?gap "distribute"
)
)
);end rodCreatePath
else println("Path entry aborted.")
);end if
);end let
);end proc