Filter seclection in Lisp

[Eng.minamaged]

I want to select only lines, arcs and opened polylines 

[Steven P]

see if this helps:

 

http://lee-mac.com/ssget.html

 

[robierzo]

Try this code

(setq conj (ssget "_X" '((-4 . "<OR")
             (-4 . "<AND")
                   (0 . "ARC,LINE")
             (-4 . "AND>")
             (-4 . "<AND")
                           (0 . "LWPOLYLINE")
                   (-4 . "<OR")
                      (70 . 128)
                      (70 . 0)
                   (-4 . "OR>")
                         (-4 . "AND>")
             (-4 . "OR>")
             
                   )
      )
)

 

[Lee Mac]

@robierzo Rather than accepting bit codes other than closed, it may be wiser to reject the closed bit code, as this will continue to function if additional bit codes are added in future.

 

(ssget "_X" 
   '(
        (-4 . "<OR")
            (0 . "ARC,LINE")
            (-4 . "<AND")
                (0 . "LWPOLYLINE")
                (-4 . "<NOT")
                    (-4 . "&=")
                    (70 . 1)
                (-4 . "NOT>")
            (-4 . "AND>")
        (-4 . "OR>")
    )
)