谁帮我做个设置当前层且颜色能设置为 Bylayer

gbhsu · 发表于 2011-10-9 11:17:51

;强制随层修改为:
(defun c:ty(/ ss ent layer color)
         (setq ss (entsel))
         (if ss (progn
            (setq ent(entget(car ss)))
            (setq layer (cdr(assoc 8 ent)))
            ;(setq color (cdr(assoc 62 ent)))
            ;(setq ltype (cdr(assoc 6 ent)))
            (command "layer" "M" layer "")
            (command "COLOR" "bylayer")
            (command "LINETYPE" "s" "bylayer" "")
            )));defun

ruirui999 · 发表于 2011-10-9 12:49:13

高手如云呐！！

vormittag · 发表于 2011-10-9 17:57:41

本帖最后由 vormittag 于 2011-10-13 10:22 编辑

楼主是想要这个吧？

(defun c:dqc()
(setvar "CLAYER" (cdr (assoc 8 (entget (car (entsel))))))
(setvar "CECOLOR" "256")
(princ)
)

sdls · 发表于 2019-1-25 23:34:40

楼上的都是大神，全收下了！

账号		自动登录	找回密码
密码			注册

谁帮我做个设置当前层 且颜色能设置为 Bylayer

点评

谁帮我做个设置当前层且颜色能设置为 Bylayer