(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 "打标线层"))
这是我从网上下的，想请大侠们帮改一下，去掉自动生成图层、线型、颜色的功能，其他的不变。谢谢了！
大侠们，帮帮忙啦,实在是感激不尽了！！
怎么没人理啊！！！！
669423907 发表于 2011-2-20 17:21 static/image/common/back.gif
(DEFUN LAYERCH(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i")) ;如果已选择对象则将其转到指定的 ...
你需要什么样功能不太了解，加我QQ细谈，59509100，可以帮你改一下符合你的要求
非常感谢，最好把功能大概说一下
功能：
1：按下快捷键，如果已选中对象，则把选中对象转到相应的图层，
如果没有选中如何对象，则转到相应的图层；
2：可以设好图层名及线型、颜色；
3：如果没有相对应的图层则自动建立该图层。
我只想要第一个功能，不知哪位大侠方便版本帮忙改一下啦,感激不尽了！！！
谢谢楼主的好资料
谢谢,好东东,收下
功能有介绍啊 就是新建几个标准图层，并把图纸中的图元按照不同类别归到不同图层中去。
支持一下，能否贴个动画让大家看得更明白一些