Headbanging lisp

(defun getroomidblocks (roomblocklayer / ctr3)
(if (= scheduletype "A")
(progn
(prompt "\nSelect Simple Room ID Blocks: ")
(setq ss2 (ssget (list '(0 . "INSERT")(cons 8 roomblocklayer)))
ctr3 0)
(while (< ctr3 (sslength ss2))
(setq ent2 (ssname ss2 ctr3) entdat (entget ent2) ctr3 (+ 1
ctr3))
(entmod (subst (cons 8 "0")(assoc 8 entdat) entdat))
)
(prompt "\nSelect Complex Room ID Blocks: ")
(setq ss3 (ssget (list '(0 . "INSERT")(cons 8 roomblocklayer)))
ss1`ss2)
)
(setq ss1 (ssget "X" (list '(0 . "INSERT")'(66 . 1)(cons 8
roomblocklayer))))
)
(princ (strcat "\nSorting " (itoa (sslength ss1)) " " schedulename "
Tags......"))
)


Not sure why this doesn't work...any help would be appreciated

(I test for the existance of ss1 elsewhere)

Jamie Duncan

Consulting - If you're not part of the solution, there's good money in
prolonging the problem.