For a different flavor, I use the following:
Toolbar for your menu file:
**ARCH_SSET
[_Toolbar("Selection Set", _Floating, _hide, 225, 200, 1)]
[_Button("Selection Set A", ARCH_SELECTA, ARCH_SELECTA)]^p(if (/= sela nil)(setq sela sela)(progn (setq sela (ssget))+
(ARCH:ChangeBitmap "ARCH" "Selection Set" "Selection Set A" "ARCH_SELECTAX")));
[_Button("Selection Set B", ARCH_SELECTB, ARCH_SELECTB)]^p(if (/= selb nil)(setq selb selb)(progn (setq selb (ssget))+
(ARCH:ChangeBitmap "ARCH" "Selection Set" "Selection Set B" "ARCH_SELECTBX")));
[_Button("Selection Set C", ARCH_SELECTC, ARCH_SELECTC)]^p(if (/= selc nil)(setq selc selc)(progn (setq selc (ssget))+
(ARCH:ChangeBitmap "ARCH" "Selection Set" "Selection Set C" "ARCH_SELECTCX")));
[--]
[_Button("Clear Set A B C", ARCH_CLEARALL, ARCH_CLEARALL)](ARCH:CLEARGROUPS);
;;;;;;;;;;;;;;;;;;;;;;;;; Clear Selection Set Groups Function ;;;;;;;;;;;;;;;;;;;;;;;
(defun ARCH:CLEARGROUPS ()
(setvar "cmdecho" 0)
(setq sela nil
selb nil
selc nil)
(princ "\n* All Selection Set Groups have been Cleared *")
(ARCH:ChangeBitmap
"ARCH"
"Selection Set"
"Selection Set A"
"ARCH_SELECTA")
(ARCH:ChangeBitmap
"ARCH"
"Selection Set"
"Selection Set B"
"ARCH_SELECTB")
(ARCH:ChangeBitmap
"ARCH"
"Selection Set"
"Selection Set C"
"ARCH_SELECTC")
(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Change Bitmap Button Function ;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;from acadx.com
(defun ARCH:ChangeBitmap (mnuGroup tbrName btnName bitmap)
(vl-load-com)
(vla-setbitmaps
(vla-item
(vla-item
(vla-get-toolbars
(vla-item (vla-get-menugroups (vlax-get-acad-object)) mnuGroup))
tbrName)
btnName)
bitmap
bitmap)
(princ))
;|
Purpose
Changes the button top for the specified toolbar button
Arguments
The name of the menu group, the name of the toolbar, the name of the toolbar button and the bitmap to use
Example
(ax:ChangeBitmap "acad" "dimension" "linear dimension" "arch.bmp")
Notes
If the bitmap is not in the AutoCAD search path, you must specify the full path to file
(ARCH:ChangeBitmap "acad" "dimension" "linear dimension" "arch.bmp")
(ARCH:ChangeBitmap "ARCH" "Arch Program©" "SYMS" (strcat ARCH#IMAF "ARCH_SYMSX.bmp"))
|;
Gary