[讨论]：怎么样用数字按键改层？

opop

在CAD2002中怎么样能像R14那样按数字按键改层呢？

tw7777

能不能哟。

xjiansh

那你在R14中是怎么按数字按键改层呢？是用lisp吗？那么在2002中应该也可以的呀。

离开

是啊！有没有什么方法可以快速更改图层得？

yhtwa

用ET附赠工具吧，改层很方便。

dlldll

如果14下可以改，在200X下也应该可以吧。
如果是lisp写的要改一下在200X下才能用

colatree

最初由 opop 发布
[B]在CAD2002中怎么样能像R14那样按数字按键改层呢？ [/B]

我再R12時寫過一個類似的程式
我改過給2002用沒問題，=只是合不合你用，程式如下:

(defun layers (n / ocmd)
  (setq ocmd (getvar "CMDECHO"))
  (setvar "cmdecho" 0)
  (if (= (type n) 'INT)
   (progn
    (if (= n 0)
     (command "-layer" "s" n "")
     (command "-layer" "m" n "c" n n "")
    )
    (setq n (itoa n))
   )
    (command "-layer" "s" n "")
  )
  (setvar "cmdecho" 1)
  (prompt (strcat "\nWATCH! LAYER change to [" n "]"))
  (setvar "CMDECHO" ocmd)
  (princ)
)
(defun colors (n / ocmd)
  (setq ocmd (getvar "CMDECHO"))
  (setvar "cmdecho" 0)
  (command "color" n)
  (setvar "cmdecho" 1)
  (prompt (strcat "\nWATCH! COLOR change to [" n "]"))
  (setvar "CMDECHO" ocmd)
  (princ)
)

(defun c:0 ()
  (layers 0)
)

(defun c:1 ()
  (layers 1)
)

(defun c:2 ()
  (layers 2)
)

(defun c:3 ()
  (layers 3)
)

(defun c:4 ()
  (layers 4)
)

(defun c:5 ()
  (layers 5)
)

(defun c:6 ()
  (layers 6)
)

(defun c:7 ()
  (layers 7)
)

(defun c:B ()
  (layers "BORDER")
)

(defun c:C ()
  (layers "CENTER")
)

(defun c:D ()
  (layers "DIM")
)

(defun c:DD ()
  (layers "DASHED")
)

(defun c:H ()
  (layers "HIDDEN")
)

(defun c:T ()
  (layers "TEXT")
)

(defun c:P ()
  (layers "P")
)

;----------------------
(defun c:c1 ()
  (colors "1")
)

(defun c:c2 ()
  (colors "2")
)

(defun c:c3 ()
  (colors "3")
)

(defun c:c4 ()
  (colors "4")
)

(defun c:c5 ()
  (colors "5")
)

(defun c:c6 ()
  (colors "6")
)

(defun c:c7 ()
  (colors "7")
)

(defun c:c10 ()
  (colors "10")
)

(defun c:c11 ()
  (colors "11")
)

(defun c:c12 ()
  (colors "12")
)

(defun c:cl ()
  (colors "bylayer")
)

(defun c:cb ()
  (colors "byblock")
)

(princ)