请教：如何返回原图层？

xzd716

原来一直用顾文伟老师编的Specifylayer.ARX程序来自动分层，非常好用，但在AutoCAD2007/2008中不能用，不知各位老师有何解决办法？

也想采用下面的笨办法，定制新的“绘图”、“标注”工具条，功能与原“绘图”、“标注”相同，但加入图层设置，在绘图前设置当前图层，绘图结束后将当前图层设回原图层，比如粗直线希望放在“1”层上，用lisp编了如下程序，但红色部分程序执行不到，画线结束后不能返回原图层，请各位老师指点，谢谢！

; 1line.lsp
;绘制图层1直线。

(defun C:1line (/ old_l p0)
   (setvar "CMDECHO" 1)
   (setq old_l (getvar "clayer"))
   (command "-layer" "s" "1" "")
   (setq p0 (getpoint "\n请输入起点:"))
   (command "line" p0 )
   (command "-layer" "s" old_l "")
   (command "redraw")
   (setvar "cmdecho" 1)
   (setvar "osmode" oldsnap)
   (princ)
   )

王咣生

(command "line" p0 )画线命令还没执行完呢,要传入两个点啊?

xzd716

传入两个点只能划一条直线，如果要连续画几条首尾相连的直线，是不是要循环利用getpoint 传入所有的点？能不能利用执行autocad原命令在命令行的提示交互输入参数，执行完命令还能执行后面的程序，画线是最简单的，没有选项，如果画圆也通过getpoint传入点，就繁琐，有没有简单的办法？比如程序中调用circle命令，利用circle命令在命令行产生的提示输入所需参数，而不利用getpoint取点，执行完circl后，还能执行写在command "circl" 后的语句？请各位大虾指点，谢谢！

wandong

画圆：(command "circle" pause pause)

画线有不确定的点数要输入，故不太好实现，可用循环，显得繁琐，最好知道点数，比如三个点，(command "line" pause pause pause ""),可以实现。

xzd716

谢谢wandong老师指点！