这是不进CAD图层对框话可以建图层的最好办法,现在想修改.

caoyin

2. (defun c:TT (/ a col lty txt)
3.    (setq a   (entget (tblobjname "layer" (getvar "clayer")))
4.          col (getvar "cecolor")
5.          lty (getvar "celtype")
6.    )
7.    (if (setq txt (entsel "\n选择文字: "))
8.      (if (snvalid (setq txt (cdr (assoc 1 (entget (car txt))))))
9.        (setq a (subst (cons 2 txt) (assoc 2 a) a))
10.        (princ "\n** 文字内容不能作为有效层名 **")
11.      )
12.    )
13.    (if (not (wcmatch col "BY*"))
14.      (setq a (subst (cons 62 (atoi col)) (assoc 62 a) a))
15.      (princ (strcat "\n当前颜色 " col " 无意义。"))
16.    )
17.    (if (not (wcmatch lty "By*"))
18.      (setq a (subst (cons 6 lty) (assoc 6 a) a))
19.      (princ (strcat "\n当前线型 " lty " 无意义。"))
20.    )
21.    (entmod a)
22.    (princ)
23. )

(defun c:TT (/ a col lty txt)    (setq a   (entget (tblobjname "layer" (getvar "clayer")))          col (getvar "cecolor")          lty (getvar "celtype")    )    (if (setq txt (entsel "\n选择文字: "))      (if (snvalid (setq txt (cdr (assoc 1 (entget (car txt))))))        (setq a (subst (cons 2 txt) (assoc 2 a) a))        (princ "\n** 文字内容不能作为有效层名 **")      )    )    (if (not (wcmatch col "BY*"))      (setq a (subst (cons 62 (atoi col)) (assoc 62 a) a))      (princ (strcat "\n当前颜色 " col " 无意义。"))    )    (if (not (wcmatch lty "By*"))      (setq a (subst (cons 6 lty) (assoc 6 a) a))      (princ (strcat "\n当前线型 " lty " 无意义。"))    )    (entmod a)    (princ) )