图块改色

hrbustmqc · 发表于 2015-1-31 15:59:39

本帖最后由 hrbustmqc 于 2015-1-31 16:01 编辑

图块改色中遇到问题，组成图块的个子元素有的定义为bylayer，图块改为250色的时候，实际显示的还是子图元所在layer颜色。
请高手帮忙修改下。
(defun c:TT()
      (IF (AND (PRINC "\nSelect Block with attribute 选择图块 :")  (SETQ SS (SSGET '((0 . "INSERT") (8 . "~AXIS")))))
            (PROGN
         (SETQ I -1)
      (REPEAT (SSLENGTH SS)
         (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I)))))
                                 (SETQ ENT1 ENT)
      (SETQ ENT1 (SUBST (CONS 62 250) (ASSOC 62 ENT1) ENT1))
                                    (ENTMOD ENT)

      )
)
  )
      (princ)
  (princ "\nc:TT")
)

鱼与熊掌 · 发表于 2015-1-31 19:10:28

vla-put-color

llsheng_73 · 发表于 2015-3-9 22:53:44

(SETQ ENT1 (SUBST (CONS 62 250) (ASSOC 62 ENT1) ENT1))
改为(SETQ ENT1(append'(62 . 50)(vl-remove(ASSOC 62 ENT1)ENT1)))
最后的(ENTMOD ENT)应该改为(ENTMOD ENT1)

hrbustmqc · 发表于 2015-4-1 22:50:32

llsheng_73 发表于 2015-3-9 22:53
(SETQ ENT1 (SUBST (CONS 62 250) (ASSOC 62 ENT1) ENT1))
改为(SETQ ENT1(append'(62 . 50)(vl-remove(AS ...

按照你的方法有效果

dingtiedt · 发表于 2015-4-28 14:24:24

llsheng_73 发表于 2015-3-9 22:53
(SETQ ENT1 (SUBST (CONS 62 250) (ASSOC 62 ENT1) ENT1))
改为(SETQ ENT1(append'(62 . 50)(vl-remove(AS ...

执行后，出现; error: bad list: 50

自贡黄明儒 · 发表于 2015-4-28 15:33:53

高飞写过过图改色程序了！！！

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

[提问] 图块改色

相关帖子