357785513 发表于 2013-2-3 00:38:21

看到这样了一个工具,感觉非常不好,能不能指定它只排列几个常用的图层,因为做图时层多

看到这样了一个工具,感觉非常不好,能不能指定它只排列几个常用的图层,因为做图时层多了就麻烦了,而我们做图时通常只用到几个图层,我想想把这几个常用的图层这样排在下方,以便切换就行,看看看能不能,

357785513 发表于 2013-2-3 01:02:18

就是它了,它图层多了,如果有引用文件它还直接退出CAD,不行太不好了,看看大家有没有没LSP版的,因这样样切换图层非常方便,直观嘛,

smartstar 发表于 2013-2-3 10:01:13

这个工具不错！

lizhu 发表于 2013-2-8 22:13:28

不一样的思路。

tangjunasd58 发表于 2013-4-5 23:33:20

;设当前图层为layer1层
(defun c:MX_1 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer1")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer1" "s" "layer1" "C" 1 "" "L" "Continuous" "" "LW" 0 "" "")
))
   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--当前图层已切换为layer1层")(princ))





;设当前图层为layer2层
(defun c:MX_2 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer2")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer2" "s" "layer2" "C" 2 "" "L" "Continuous" "" "LW" 0 "" "")

))
   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为layer1层")(princ))



;设当前图层为layer3层
(defun c:MX_3 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer3")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer3" "s" "layer3" "C"3 "" "L" "Continuous" "" "LW" 0 "" "")

))
   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为layer3层")(princ))





;设当前图层为layer4层
(defun c:MX_4 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer4")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer4" "s" "layer4" "C" 4 "" "L" "Continuous" "" "LW" 0 "" "")

))
   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为layer4层")(princ))





;设当前图层为layer5层
(defun c:MX_5 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer5")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer5" "s" "layer5" "C" 5 "" "L" "Continuous" "" "LW" 0 "" "")

))
   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为layer5层")(princ))





;设当前图层为layer6层
(defun c:MX_6 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer6")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer6" "s" "layer6" "C" 6 "" "L" "Continuous" "" "LW" 0 "" "")

))
   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为layer6层")(princ))





;设当前图层为layer7层
(defun c:MX_7 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer7")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer7" "s" "layer7" "C" 7 "" "L" "Continuous" "" "LW" 0 "" "")
))
   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为layer7层")(princ))





;设当前图层为layer8层
(defun c:MX_8 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer8")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer8" "s" "layer8" "C" 8 "" "L" "Continuous" "" "LW" 0 "" "")
))   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为layer8层")(princ))





;设当前图层为layer9层
(defun c:MX_9 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer9")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer9" "s" "layer9" "C" 171 "" "L" "Continuous" "" "LW" 0 "" "")
))
   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为layer9层")(princ))





;设当前图层为layer0层
(defun c:MX_0 ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "layer0")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "layer0" "s" "layer0" "C" 42 "" "L" "Continuous" "" "LW" 0 "" "")
))   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为layer0层")(princ))





;设当前图层为临时层
(defun c:MX_LS ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "临时")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "临时" "s" "临时" "C" 7 "" "L" "Continuous" "" "LW" 0.2 "" "")
))   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为临时层")(princ))





;设当前图层为文字层
(defun c:MX_WZ ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "文字")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "文字" "s" "文字" "C" 212 "" "L" "Continuous" "" "LW" 0.2 "" "")
))   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用--《模型工具箱》--   当前图层已切换为文字层")(princ))






;设当前图层为标注层
(defun c:MX_BZ ()
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq layer "标注")(if (not (tblsearch "layer" layer ))

(progn (command "layer" "new" "标注" "s" "标注" "C" 212 "" "L" "Continuous" "" "LW" 0.2 "" "")
))   (setvar"CLAYER" layer)
   (PRINC "\n欢迎使用《模型工具箱》   当前图层已切换为标注层")(princ))






;将所有标注改为标注层
(defun C:MX_BZC (/ ss)
   (setvar "cmdecho" 0) ;指令执行过程不响应
(setq ss (ssget "X" '((0 . "DIMENSION"))))
(command "Chprop" ss "" "LA" "标注   dim" "")
   (PRINC "\n欢迎使用--《模型工具箱》--   将所有标注改为标注层完成！")(PRINC))



----------------------------------------选择对象到图层


;;;
(DEFUN C:MX_00 ()
      (princ "\n 选择对象到layer0层:)")
              (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer0" "")
   (PRINC "\n欢迎使用--《模型工具箱》--选择对象到layer0层完成！")(PRINC))
;;;
(DEFUN C:MX_11 ()
      (princ "\n 选择对象到layer1层:)")
      (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer1" "")   
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到layer1层完成！")(PRINC))
;;;
(DEFUN C:MX_22 ()
        (princ "\n 选择对象到layer2层 :)")      
      (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer2" "")
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到layer2层完成！")(PRINC))
;;;
(DEFUN C:MX_33 ()
        (princ "\n 选择对象到layer3层:")                     
      (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer3" "")
   (PRINC "\n欢迎使用--《模型工具箱》--选择对象到layer3层完成！")(PRINC))
;;;
(DEFUN C:MX_44 ()
      (princ "\n 选择对象到 layer4层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer4" "")
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到layer4层完成！")(PRINC))
;;;
(DEFUN C:MX_55 ()
      (princ "\n 选择对象到 layer5层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer5" "")
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到layer5层完成！")(PRINC))
;;;
(DEFUN C:MX_66()
      (princ "\n 选择对象到 layer6层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer6" "")
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到layer6层完成！")(PRINC))
;;;
(DEFUN C:MX_77()
      (princ "\n 选择对象到 layer7层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer7" "")
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到layer7层完成！")(PRINC))
;;;
(DEFUN C:MX_88()
      (princ "\n 选择对象到 layer8层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer8" "")
   (PRINC "\n欢迎使用--《模型工具箱》--选择对象到layer8层完成！")(PRINC))
;;;
(DEFUN C:MX_99()
      (princ "\n 选择对象到 layer9层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer9" "")
   (PRINC "\n欢迎使用--《模型工具箱》--   选择对象到layer9层完成！")(PRINC))
;;;
(DEFUN C:MX_001 ()
      (princ "\n 选择对象到 layer10层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "layer10" "")
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到layer10层完成！")(PRINC))
;;;
(DEFUN C:MX_LSS ()
      (princ "\n 选择对象到临时层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "临时" "")
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到临时层完成！")(PRINC))
;;;
(DEFUN C:MX_WZZ ()
      (princ "\n 选择对象到文字层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "文字" "")
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到文字层完成！")(PRINC))
;;;
(DEFUN C:MX_BZZ ()
      (princ "\n 选择对象到标注层:")
        (SETQ SS(SSGET))
        (COMMAND "CHANGE" SS "" "PROPERTIES" "la" "标注" "")
   (PRINC "\n欢迎使用--《模型工具箱》-- 选择对象到标注层完成！")(PRINC))
;;;
页: [1]
查看完整版本: 看到这样了一个工具,感觉非常不好,能不能指定它只排列几个常用的图层,因为做图时层多