[原创]一个图层工具

669423907

(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

大侠们，帮帮忙啦,实在是感激不尽了！！

669423907

怎么没人理啊！！！！

langjs

669423907 发表于 2011-2-20 17:21
(DEFUN LAYERCH(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))          ;如果已选择对象则将其转到指定的 ...

你需要什么样功能不太了解，加我QQ细谈，59509100，可以帮你改一下符合你的要求

hbshyjch

非常感谢，最好把功能大概说一下

669423907

功能：
1：按下快捷键，如果已选中对象，则把选中对象转到相应的图层，
     如果没有选中如何对象，则转到相应的图层；
2：可以设好图层名及线型、颜色；
3：如果没有相对应的图层则自动建立该图层。
我只想要第一个功能，不知哪位大侠方便版本帮忙改一下啦,感激不尽了！！！

blyl

谢谢楼主的好资料

T_T

谢谢,好东东,收下

egos

功能有介绍啊 就是新建几个标准图层，并把图纸中的图元按照不同类别归到不同图层中去。

i3ku

支持一下，能否贴个动画让大家看得更明白一些