Jamie Duncan
Usenet Archive
- Joined
- Jun 27, 2003
- Messages
- 177
- Reaction score
- 0
(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.
(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.
