求助图层LISP编写，谢谢！

zhangying__8

例：我图层有UP，UP_om，UB，UB_om等
      假如当前图层是UP层，在我输入自定义命令后LISP就自动加开UP_om层;假如当前图层是UB层，在我输入自定义命令后LISP就自动加开UB_om层.

请高手帮忙编写此LISP，谢谢！！

xianaihua

简单一点可以这样做

2. (setq oldclay (getvar "clayer"));获得当前图层
3. (command "layer" "s" "UP_om" "");设置新的图层（该图层必须已经生成）
4. ;中间过程
5. ;;;
6. (command "layer" "s" oldclay "");恢复以前图层

(setq oldclay (getvar "clayer"));获得当前图层 (command "layer" "s" "UP_om" "");设置新的图层（该图层必须已经生成） ;中间过程 ;;; (command "layer" "s" oldclay "");恢复以前图层