自动在CAD建立新层的原代码

2010wu

将下面的文字复到记事本中，将记事本后缀名更改为LSP加载后即可用
(DEFUN LAYERCH(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;如果已選擇圖形則將選擇的圖形轉換到指定的層
   (command "_.change" LAYCH "" "_p" "_LT" "BYLAYER" "_C" "BYLAYER" "_la"  mylsp "")
   (command "_layer" "m" mylsp  "")    ;否則將指定的層轉換為當前層
)
   (princ)
)
(DEFUN C() (LAYERCH "0"))            ;Q命令使换0层
;-----------------------------------------------------------------------------------
(DEFUN lyh(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;如果已選擇圖形則將選擇的圖形轉換到指定的層
   (command "_.change" LAYCH "" "_p" "_LT" "BYLAYER" "_C" "BYLAYER" "_la" mylsp "")
;下面这一行是建立图层时的设置，可把线型、颜色设置好。
   (command "_layer" "m" mylsp "L" "CENTER" mylsp "C" "RED" mylsp "LW" "0.13" mylsp "")    ;否則將指定的層轉換為當前層
)
   (princ)
)
(DEFUN C:cen() (lyh "CENTER"))
;-----------------------------------------------------------------------------------
(DEFUN lyh2(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;如果已選擇圖形則將選擇的圖形轉換到指定的層
   (command "_.change" LAYCH "" "_p" "_LT" "BYLAYER" "_C" "BYLAYER" "_la" mylsp "")
;下面这一行是建立图层时的设置，可把线型、颜色设置好。
   (command "_layer" "m" mylsp "L" "HIDDEN" mylsp "C" "BLUE" mylsp "LW" "0.13" mylsp "")    ;否則將指定的層轉換為當前層
)
   (princ)
)
(DEFUN C:hi() (lyh2 "HIDDEN"))
;-----------------------------------------------------------------------------------
(DEFUN lyh4(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;如果已選擇圖形則將選擇的圖形轉換到指定的層
   (command "_.change" LAYCH "" "_p" "_LT" "BYLAYER" "_C" "BYLAYER" "_la" mylsp "")
;下面这一行是建立图层时的设置，可把线型、颜色设置好。
   (command "_layer" "m" mylsp "L" "CONTINUOUS" mylsp "C" "CYAN" mylsp "LW" "0.13" mylsp "")    ;否則將指定的層轉換為當前層
)
   (princ)
)
(DEFUN C:di() (lyh4 "DIM"))
;-----------------------------------------------------------------------------------
(DEFUN lyh5(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;如果已選擇圖形則將選擇的圖形轉換到指定的層
   (command "_.change" LAYCH "" "_p" "_LT" "BYLAYER" "_C" "BYLAYER" "_la" mylsp "")
;下面这一行是建立图层时的设置，可把线型、颜色设置好。
   (command "_layer" "m" mylsp "L" "HANTOM" mylsp "C"  "RED" mylsp "LW" "0.13" mylsp "")    ;否則將指定的層轉換為當前層
)
   (princ)
)
(DEFUN C:ba() (lyh5 "双点画线"))
;-----------------------------------------------------------------------------------
(DEFUN lyh7(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;如果已選擇圖形則將選擇的圖形轉換到指定的層
   (command "_.change" LAYCH "" "_p" "_LT" "BYLAYER" "_C" "BYLAYER" "_la" mylsp "")
;下面这一行是建立图层时的设置，可把线型、颜色设置好。
   (command "_layer" "m" mylsp "L" "CONTINUOUS" mylsp "C" "GREEN" mylsp "LW" "0.13" mylsp "")    ;否則將指定的層轉換為當前層
)
   (princ)
)
(DEFUN C:be() (lyh7 "BEND"))
;-----------------------------------------------------------------------------------
(DEFUN lyh8(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;如果已選擇圖形則將選擇的圖形轉換到指定的層
   (command "_.change" LAYCH "" "_p" "_LT" "BYLAYER" "_C" "BYLAYER" "_la" mylsp "")
;下面这一行是建立图层时的设置，可把线型、颜色设置好。
   (command "_layer" "m" mylsp "L" "CONTINUOUS" mylsp "C"  "GREEN" mylsp "LW" "0.13" mylsp "")    ;否則將指定的層轉換為當前層
)
   (princ)
)
(DEFUN C:ma() (lyh8 "MARK"))
;-----------------------------------------------------------------------------------
(DEFUN lyh9(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;如果已選擇圖形則將選擇的圖形轉換到指定的層
   (command "_.change" LAYCH "" "_p" "_LT" "BYLAYER" "_C" "BYLAYER" "_la" mylsp "")
;下面这一行是建立图层时的设置，可把线型、颜色设置好。
   (command "_layer" "m" mylsp "L" "CONTINUOUS" mylsp "C" "YELLOW" mylsp "")    ;否則將指定的層轉換為當前層
)
   (princ)
)
(DEFUN CB() (lyh9 "打标线层"))