快速切换图层,修改图元图层,函数有点小问题不知道这么忙解决了!

cq4920

(defun C:AA-窗 ( / #g k1 kw1)
        (setvar "cmdecho" 0)
        (setvar "blipmode" 0)
          (setq n "A-窗"
                            b 14 )
    (mc:newlayer n b)  
        (princ "\n请选择要改变图层的对象")
        (if (setq kw1 (ssget));选择对象
(mc:gtc kw1 n))
        (princ)
)

;; 检查新建图层
;; (setq a "1" b 2)(mc:newlayer a b)
(defun mc:newlayer(tcname tccol)
(if (null (tblsearch "layer" tcname))
                (entmake (list '(0 . "LAYER")
                                                         '(100 . "AcDbSymbolTableRecord")
                                                         '(100 . "AcDbLayerTableRecord")
                                                         (CONS 6  "Continuous")
                                                         (cons 62 tccol)
                                                         '(370 . 0)
                                                         '(70 . 0)
                                                         (cons 2 tcname)))
        )
)


;改图层(mc:gtc ss name)
(defun mc:gtc (ss name)
                        (while (setq k1 (ssname ss 0))
                                (setq ss (ssdel k1 ss))
                                (setq #g (entget k1))
                                (setq #g (subst '(8 . name) (assoc 8 #g) #g))
                                (entmod #g);刷新图元
                        );while
                (setvar "clayer" name );设置图层为当前
        )

edata

2. (setq #g (subst (cons 8 name) (assoc 8 #g) #g))

(setq #g (subst (cons 8 name) (assoc 8 #g) #g))