Question

CAD LSP图层

(command "RECTANGLE" newpt1 newpt2)
(setvar "CECOLOR" oldcolor)
(command "layer" "M" "DIM" "")
(command "dimlinear" newpt2 newpt3 "m" "<>" newpt4))
这段代码，画一个矩形，然后给矩形标一个尺寸。想让这个尺寸标在dim层上。。。。。。。这句(command "layer" "M" "DIM" "")是间插进去的。现在的问题是标出来尺寸是在dim层上了，但是，当前图层也随着切换到了dim层上了，所以要人工更换回去原来的图层，反而增加了工作量。那位有办法解决这问题？标完尺寸后，自动切换回原图层，谢谢

Answer 1

(command "RECTANGLE" newpt1 newpt2)
(setvar "CECOLOR" oldcolor)
(setq oldlay (getvar "clayer")
(command "layer" "M" "DIM" "")
(command "dimlinear" newpt2 newpt3 "m" "<>" newpt4))
(setvar "clayer" oldlay)