如何把图元颜色设为bylayer

sailorcwx · 发表于 2005-10-31 10:08

(setq YH_getselect (subst (cons 62 0) (assoc 62 YH_getselect) YH_getselect))设成了byblock了，bylayer怎么设

ZZXXQQ · 发表于 2005-10-31 10:25

将组码62的点对去掉就可以了。

sailorcwx · 发表于 2005-10-31 10:39

去除了后entmod更新不了图元了

(defun c:1 ()
(setq YH_layer "1")
(setq YH_selection (ssget))
(if YH_selection
    (progn
      (setq YH_repeat_times (sslength YH_selection))
      (setq YH_index 0)
      (repeat YH_repeat_times
(setq YH_getselect (entget (ssname YH_selection YH_index)))
(setq YH_getselect (subst (cons 8 YH_layer) (assoc 8 YH_getselect) YH_getselect))
(setq YH_getselect (vl-remove (assoc 62 YH_getselect) YH_getselect))
(setq YH_getselect (subst (cons 6 "bylayer") (assoc 6 YH_getselect) YH_getselect))
(entmod YH_getselect)
(setq YH_index (1+ YH_index))
)
      )
    )
(princ)
)

ZZXXQQ · 发表于 2005-10-31 10:50

用了vl-remove后为什么要还要用SUBST？

将vl-remove后的一行删去就可以了。

sailorcwx · 发表于 2005-10-31 10:59

后面是把线型改为bylayer啊。

ZZXXQQ · 发表于 2005-10-31 11:00

没有62组码就是BYLAYER！

sailorcwx · 发表于 2005-10-31 11:16

我最后的组码是6，是线型，不是颜色。
现在问题是我把62的组码去掉后更新不了图元

ZZXXQQ · 发表于 2005-10-31 11:36

组码6也要去掉才是BYLAYER。

sailorcwx · 发表于 2005-10-31 11:53

试了，不行。

ZZXXQQ · 发表于 2005-10-31 12:47

那就只好先删除再建立图元了。

(defun c:1 ()
(vl-load-com)
(setq YH_layer "1")
(if (setq YH_selection (ssget)) (progn
(setq YH_index 0)
(repeat (sslength YH_selection)
(setq YH_getselect (entget (ssname YH_selection YH_index)))
(setq YH_getselect (subst (cons 8 YH_layer) (assoc 8 YH_getselect) YH_getselect))
(setq YH_getselect (vl-remove (assoc 62 YH_getselect) YH_getselect))
(setq YH_getselect (vl-remove (assoc 6 YH_getselect) YH_getselect))
(entdel (ssname YH_selection YH_index))
(entmake YH_getselect)
(setq YH_index (1+ YH_index))
)
))
(princ)
)

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