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 static/image/common/back.gif
(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 static/image/common/back.gif
(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

高飞写过过图改色程序了！！！
页: [1]
查看完整版本: 图块改色