Add filtered selections and SSADD

[Anonymous]

Why is this failing?

(while
(setq a (getpoint "\nSpecify first corner: "))
(progn (initget 32)
(setq b (getcorner a "\nSpecify other corner: "))
)
(setq tmpsol (ssget "C" a b '((0 . "3DSOLID"))))
(repeat (sslength tmpsol)
(setq ent (ssname tmpsol cnt)
cnt (1+ cnt)
)
(ssadd ent sol1)
);end repeat
);end while

[Anonymous]

You should have (setq cnt 0) somewhere at the beginning of the code.

Paul

"Jason Rhymes" wrote in message
news:5884074@discussion.autodesk.com...
> Why is this failing?
>
> (while
> (setq a (getpoint "\nSpecify first corner: "))
> (progn (initget 32)
> (setq b (getcorner a "\nSpecify other corner: "))
> )
> (setq tmpsol (ssget "C" a b '((0 . "3DSOLID"))))
> (repeat (sslength tmpsol)
> (setq ent (ssname tmpsol cnt)
> cnt (1+ cnt)
> )
> (ssadd ent sol1)
> );end repeat
> );end while

[Anonymous]

Thanks Paul, that was it.

[Anonymous]

Well I thought it worked but still not working

(while
(setq a (getpoint "\nSpecify first corner: "))
(setq b (getcorner a "\nSpecify other corner: "))
(setq cnt 0)
(setq tmpsol (ssget "C" a b '((0 . "3DSOLID"))))
(repeat (sslength tmpsol)
(setq ent (ssname tmpsol cnt)
cnt (1+ cnt)
)
(ssadd ent sol1)
);end repeat
);end while

[Anonymous]

Never mind. Needed (setq sol1 (ssadd))