Leaderboard

Missed that it was in an if statement. Attached amended, minimally tested and working on my system. bf.lsp

There is also a (now free) CUIX Tools which should take a CUIx file, change and fix the icon transparency in a single step.

There are a bunch of FREE or very cheap APPs and programs for removing the backgrounds of images, either for the computer or online. GIMP is easy enough for me, very similar to Photoshop. https://www5.lunapic.com/editor/?action=transparent actually works for me for the Lunpic site. Just as crazy and random here. Yes, unfortunately many CAD sites are listed as blog sites and blocked or Social Media (though I can use Facebook and LinkedIn, which is odd). I do get YouTube now, but that was unblocked due to all of the help and instructional videos for the Laser Engraver are all YouTube.

Give this a try: (defun c:foo (/ a d tc) (vl-load-com) (vlax-for l (vla-get-layers (setq d (vla-get-activedocument (vlax-get-acad-object)))) (cond ((= -1 (vlax-get l 'lock)) (vlax-put l 'lock 0) (setq a (cons l a)))) ) (vlax-for b (vla-get-blocks d) (vlax-for o b (and (setq tc (vla-get-truecolor o)) (equal '(255 0 0) (mapcar '(lambda (x) (vlax-get tc x)) '(red green blue))) (progn (vla-put-colorindex tc 1) (vl-catch-all-apply 'vla-put-truecolor (list o tc))) ) ) ) (foreach l a (vlax-put l 'lock -1)) (princ) )