lisp天正图元位置修改_关于图元改层的，请求大佬帮助 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

(defun c:zjtc()

(princ "\n增加1-9号图层")

(setvar "cmdecho" 0)                  ; 关闭命令提示

(Setq osmode_bak (getvar "osmode"))   ;_记录捕捉

(Setvar "osmode" 0)                   ;_关闭捕捉

(command "layer" "new" "_1" "c" "7" "_1" "")

(command "layer" "new" "_2" "c" "5" "_2" "")

(command "layer" "new" "_3" "c" "6" "_3" "")

(command "layer" "new" "_4" "c" "4" "_4" "")

(command "layer" "new" "_5" "c" "3" "_5" "")

(command "layer" "new" "_6" "c" "2" "_6" "")

(command "layer" "new" "_7" "c" "30" "_7" "")

(command "layer" "new" "_8" "c" "8" "_8" "")

(command "layer" "new" "_9" "c" "1" "_9" "")

(setvar "cmdecho" 1)                  ; 打开命令提示

(Setvar "osmode" osmode_bak)          ;_还原捕捉

(PRINC))

;;;图层切换

(defun c:1 ()

(setvar "clayer" "_1")(princ))

(defun c:2 ()

(setvar "clayer" "_2")(princ))

(defun c:3 ()

(setvar "clayer" "_3")(princ))

(defun c:4 ()

(setvar "clayer" "_4")(princ))

(defun c:5 ()

(setvar "clayer" "_5")(princ))

(defun c:6 ()

(setvar "clayer" "_6")(princ))

(defun c:7 ()

(setvar "clayer" "_7")(princ))

(defun c:8 ()

(setvar "clayer" "_8")(princ))

(defun c:9 ()

(setvar "clayer" "_9")(princ))

;;;图元改层

(defun c:11 ()

(setvar "cmdecho" 0)

(setq sset (ssget))

(command"change"sset"" "p" "LA" "_1" "")

(setvar "cmdecho" 1)

(princ))

(defun c:22 ()

(setvar "cmdecho" 0)

(setq sset (ssget))

(command"change"sset"" "p" "LA" "_2" "")

(setvar "cmdecho" 1)

(princ))

(defun c:33 ()

(setvar "cmdecho" 0)

(setq sset (ssget))

(command"change"sset"" "p" "LA" "_3" "")

(setvar "cmdecho" 1)

(princ))

(defun c:44 ()

(setvar "cmdecho" 0)

(setq sset (ssget))

(command"change"sset"" "p" "LA" "_4" "")

(setvar "cmdecho" 1)

(princ))

(defun c:55 ()

(setvar "cmdecho" 0)

(setq sset (ssget))

(command"change"sset"" "p" "LA" "_5" "")

(setvar "cmdecho" 1)

(princ))

(defun c:66 ()

(setvar "cmdecho" 0)

(setq sset (ssget))

(command"change"sset"" "p" "LA" "_6" "")

(setvar "cmdecho" 1)

(princ))

(defun c:77 ()

(setvar "cmdecho" 0)

(setq sset (ssget))

(command"change"sset"" "p" "LA" "_7" "")

(setvar "cmdecho" 1)

(princ))

(defun c:88 ()

(setvar "cmdecho" 0)

(setq sset (ssget))

(command"change"sset"" "p" "LA" "_8" "")

(setvar "cmdecho" 1)

(princ))

(defun c:99 ()

(setvar "cmdecho" 0)

(setq sset (ssget))

(command"change"sset"" "p" "LA" "_9" "")

(setvar "cmdecho" 1)

(princ))

自己整理的，凑合着用也不错，