求助在多段线中切换弧线和直线

cafa

是否可以实现pline命令后如果画弧则按A并以选择第二的点(也就是S)无限画弧，按L则继续画直线，按C则闭合。主要是想解决原始pline命令若以第二点画弧（S）每画一个弧都要按一次S，想省略总是按S这一环节，弧线和直线转换PL线不中断。
(command "PLINE" pause "a" (while (setq p (getpoint"\n指定圆弧上的第二个点:")) (command "s" "non" p pause)))
是不是要用到       (initget 1 "a l"),但本人对lisp没什么基础，实在不知该如何加入这个命令，望老师不吝赐教