临时修改颜色，任意键恢复

Lisphk · 发表于 2016-12-13 17:01:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tempcolor ( / col idx lst obj sel )
    (setq col 1)
    (if (setq sel (ssget "_:L"))
        (progn
            (repeat (setq idx (sslength sel))
                (setq obj (vlax-ename->vla-object (ssname sel (setq idx (1- idx))))
                      lst (cons (list obj (vla-get-color obj)) lst)
                )
                (vla-put-color obj col)
            )
            (princ "\nPress any key to exit...")
            (vl-catch-all-apply 'grread)
            (foreach itm lst (apply 'vla-put-color itm))
        )
    )
    (princ)
)
(vl-load-com) (princ)

xvjiex · 发表于 2021-11-14 00:15:56

感谢分享] 临时修改颜色，任意键恢复

zrednzdfn · 发表于 2022-9-7 09:15:25

感谢分享，学习了

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

[每日一码] 临时修改颜色，任意键恢复

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。