Question about selection set method (ssget)??

Hi every one.

I'm trying to erase some entities by selecting them with this routines:

 
(setq dwleft (getpoint "\nPick the lower-left point of drawing:"))
(setq xdwleft (nth 0 dwleft)
        ydwleft (nth 1 dwleft)
        zdwleft (nth 2 dwleft)
);_setq
(setq sdel (ssget [color=red]"c"[/color] (list (+ xdwleft 46.5) (+ ydwleft 0.5) zdwleft) (list (+ xdwleft 100000) (+ ydwleft 20) zdwleft) '((0 . "text"))))
;
;
;function to erase them
;

or

 
(setq dwleft (getpoint "\nPick the lower-left point of drawing:"))
(setq xdwleft (nth 0 dwleft)
        ydwleft (nth 1 dwleft)
        zdwleft (nth 2 dwleft)
);_setq
(setq sdel (ssget [color=red]"_c"[/color] (list (+ xdwleft 46.5) (+ ydwleft 0.5) zdwleft) (list (+ xdwleft 100000) (+ ydwleft 20) zdwleft) '((0 . "text"))))
;
;
;function to erase them
;

Both of them work similar for me.

But my problem is:

When I zoom to the lower-left point to pick it and do not zoom back, the program erases all entities that locate in the zoom window and do not erase the other entities in the area that i defined for it.

Please tell me what is wrong in this routine?

How i can solve it?

(I 'm using AUTOCAD 2008 NOW).

Thanks.

Try after pick just zoom to a preset scale based around getpoint, sometimes Autocad has to "see" what its doing to work. I have had this problem before.

zoom c dwleft 100

So so thanks Dear BIGAL.

It solved my problem.

In my drowing I need to zoom "e". So in some cases that drawing has lots of entities, this command may use long time a bit.

Is there any solution that can solve this problem?

So thanks for attention...