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

shang_123 · 发表于 2011-10-4 21:42:08

各位大侠帮帮忙啦！！小弟不胜感激！！

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

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

zhongys · 发表于 2011-10-5 01:20:11

(setvar "clayer" "层")
(command "-color" "bylayer")

shang_123 · 发表于 2011-10-5 12:11:50

zhongys 发表于 2011-10-5 01:20
(setvar "clayer" "层")
(command "-color" "bylayer")

有没有可以选择对象设置当前层且颜色为BYLAYER的LISP呀？

zhongys · 发表于 2011-10-5 20:00:26

(command "laycur")

cabinsummer · 发表于 2011-10-5 20:03:18

(setq ss (ssget))
(setq cl (getvar "clayer"))
(command "change" ss "" "p" "la" cl "c" "bylayer" "")

shang_123 · 发表于 2011-10-5 20:44:30

本帖最后由 shang_123 于 2011-10-5 20:45 编辑

选择对象前选择图层1对象后变为回复楼上的有点小问题就是我的意思是把选择对象的层设置为当前层，且当前层的颜色为 BULAYER

cabinsummer · 发表于 2011-10-6 05:55:23

shang_123 发表于 2011-10-5 20:44
选择对象前选择图层1对象后变为回复楼上的有点小问题就是我的意思是把选择对象的层设置为当前层，且 ...

你把这个好好研究下 http://bbs.mjtd.com/thread-89319-1-1.html

shang_123 · 发表于 2011-10-6 11:00:18

cabinsummer 发表于 2011-10-6 05:55
你把这个好好研究下

刚学LISP 呵呵！！没看懂能给写写嘛？让咱研究研究！！

shang_123 · 发表于 2011-10-7 18:50:55

那个大大给咱帮忙写下呀！！让咱研究研究呀？

gbhsu · 发表于 2011-10-9 11:09:56

本帖最后由 gbhsu 于 2011-10-9 11:11 编辑

;;看不下去了,楼主你用我的吧,线型颜色均设为当前层!
(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 "")
            (if color(command "COLOR" color)(command "COLOR" "bylayer"))
            (if ltype(command "LINETYPE" "s" ltype "")(command "LINETYPE" "s" "bylayer" ""))
            )));defun

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

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

点评

本帖子中包含更多资源

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

点评

本帖子中包含更多资源

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