[LISP程序]：如何实现执行某个命令时打开,关闭指定层???

linhui12

如何实现执行某个命令时打开,关闭指定层,待该命令执行完后再将图层开与关还原呢???

chengzhang

我的方法很笨，如尺寸线层：直接在标注工具栏自定义，每个命令前加入“尺寸线”图层创建命令；
程序如下：
改变图元所在层或变换图层.lsp
---------------------------------------------------------
;引用程序PM 05:46 2000/4/13
(DEFUN LAYERCH(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;?选择集
   (command "_.change" LAYCH "" "_p" "_LT" "BYLAYER" "_C" "BYLAYER" "_la" mylsp "")
   (cond
     ((or (= MYLSP "尺寸线") (= MYLSP "细实线")) (command "_layer" "m" mylsp  "c" "4" mylsp "" "cecolor" "bylayer"))
     ;CECOLOR设置新对象的颜色
     ((= MYLSP "粗实线") (command "_layer" "m" mylsp "" "cecolor" "bylayer"))
     ((= MYLSP "虚线") (command "_layer" "m" mylsp "c" "1" mylsp "L" "DASHED2" mylsp "" "cecolor" "bylayer"))
     ((= MYLSP "中心线") (command "cecolor" "bylayer" "_layer" "m" mylsp "c" "1" mylsp "L" "CENTER" mylsp "" ))
     ((= MYLSP "双点划线") (command "_layer" "m" mylsp "c" "2" mylsp "L" "PHANTOM2" mylsp "" "cecolor" "bylayer"))
     
   );?建立图层
)
  (princ (strcat "\n当前层已经设为" "\"" mylsp "\"" "，也可以选择对象后按鼠标右键，改变对象所在层！"))
   (princ)
)
(DEFUN C:cc() (LAYERCH "尺寸线"))          ;输入新图层?
(DEFUN C:cs() (LAYERCH "粗实线"))
(DEFUN C:sd() (LAYERCH "双点划线"))
(DEFUN C:xs() (LAYERCH "细实线"))
(DEFUN C:xx() (LAYERCH "虚线"))
(DEFUN C:zx() (LAYERCH "中心线"))