deselect objects on screen

[iconeo]

Hello all long time lurker here but I don't post much.

 

I am trying to write a lisp that zooms to extents, selects all and then deselects everything within the extents.

 

I need to do this since I'm working on some dirty files with a bunch of hideen junk that I need to purge out.

 

I've got the lisp to zoom to extents and selecting all part down and I'm stuck on the deselecting everything in the extents of the drawing part.

 

Thanks in advance.

[SOliver]

Not sure if I understand this:

 

Why not select the objects you don't want (ssget "CP", "WP") or something similar and then have the lisp select everything not in the sset?

 

Alternatively apply the above in reverse.

 

Although I can't understand why you'd select and then deselect everything. The result would be the same as doin' nothing (other than the zoom extents)

[JohnM]

what do you mean by "hidden junk"

[Tharwat]

I guess the command Zoom extents does not require to select any object . !

 

You may mean Zoom -> Object ?

[Lee Mac]

Would this work for you?

 

(defun c:test ( / s1 )
 (if (setq s1 (ssget "_X" (list (cons 410 (getvar 'CTAB)))))
   (command "_.select" s1 "_remove"
     (ssget "_W" (getvar 'EXTMIN) (getvar 'EXTMAX) (list (cons 410 (getvar 'CTAB)))) ""
   )
 )
)