Change to gray

[CornDawgPower]

I would like for programmer to change the color inside a block, inside a block. It will change the object that the user pick to the color that i set. I just can't get it to work inside a block. I know all the varaible (cmdecho....) are not in yet.

Please HELP Corn

Explode is not an option....

(defun changetoexisting ( / )
  (setq ss_nam 0)
  (setq ss_clr 8)
  (setq sset (ssget))
  (setq ss_len (sslength sset))
  (repeat ss_len
    (setq ss_ent (ssname sset ss_nam))
    (setq ss_end (entget ss_ent))
    (if (assoc 62 ss_end)
      (setq ss_end (subst (cons 62 ss_clr)(assoc 62 ss_end) ss_end))
      (setq ss_end (append ss_end (list (cons 62 ss_clr))))
      );end of if
    (entmod ss_end)
    (if (= "INSERT" (cdr (assoc 0 ss_end)))
      (progn
	(setq ssbk_nam (cdr (assoc 2 ss_end)))
	(setq ssbk_ent (cdr (assoc -2 (tblsearch "BLOCK" ssbk_nam))))
	(setq ssbk_end (entget ssbk_ent))
	(if (assoc 62 ssbk_end)
	  (setq ssbk_end (subst (cons 62 ss_clr)(assoc 62 ssbk_end) ssbk_end))
	  (setq ssbk_end (append ssbk_end (list (cons 62 ss_clr))))
	  );end of if
	(entmod ssbk_end)
	(setq sstx_end (entget ssbk_ent))
	(while ssnx_ent
	  (setq ssnx_ent (entnext (cdr (assoc -1 sstx_end))))
	  (setq ssnx_end (entget ssnx_ent))
	  (if (assoc 62 ssnx_end)
	    (setq ssnx_end (subst (cons 62 ss_clr)(assoc 62 ssnx_end) ssnx_end))
	    (setq ssnx_end (append ssnx_end (list (cons 62 ss_clr))))
	    );if
	  (entmod ssnx_end)
	  );while
	(setq ss_all_blocks (ssget "x" (list (cons 2 ssbk_nam))))
	(setq bk_count 0)
;;;	(while
;;;	  (setq blk_ent (ssname ss_all_blocks blk_count))
;;;	  (setq blk_count (+ 1 blk_count))
;;;	  (entupd blk_ent)
;;;	  );while
	);end of progn
      );end of if
    (setq ss_nam (+ ss_nam 1))
    );end of repeat
  (princ)
  );---< end of defun >---

(defun c:ccc (/)
  (changetoexisting)
  (princ)
  )

[T.Willey]

The problem is your while statement is never true. You never set the variable ' ssnx_ent ' before you start the while, so it will always get skipped.

Also, you should make your variables local.