Topic: Combining SSGet Mode Strings?

[Lee Mac]

OK, I'm completely drawing a blank on this one -

How do you combine multiple ssget mode strings?

For example, select all Lines not on locked layers:

Code: [Select]

(ssget "[color=red]_X:L[/color]" '((0 . "LINE")))

But whatever combination of "X" and ":L" I try, I get the usual "bad ssget mode string error".

Any help is appeciated of course,

Cheers,

Lee

[hmspe]

Pulled from a post by Princess Jamie in the autodesk customization forum:

    the "X" will search the database. notice that even if the layer is off it will grab the entities.

I suspect you'll need to filter similar to what Jeff Mishler did here:

    (setq ss (ssget "x" '((0 . "*POLYLINE")(-4 . "< NOT")(-4 . "/=")(42 . 0.0)(-4 . "NOT >"))))

[Lee Mac]

Thanks for your reply,

I realise that I could create a list of locked layers and add that filter to the ssget filter list, but I wondered if it was possible to combine the already available "avoid locked layer" mode (:L). 

Thanks,

Lee

[Jeff_M]

Hi Lee,
I'm pretty sure that you cannot combine "X" with anything. You will need to build a filter to omit the layers which are locked.

[wizman]

i thought (ssget "_all") honors locked layers but trying here is not, maybe it's only on lower version?

[CAB]

ALL filters FROZEN layers.

[CAB]

Try these:

Code: [Select]

  ;; filter locked layers
  (setq filter "")
   (vlax-for layobj (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
     (if (= (vla-get-lock layobj) ':vlax-true)
       (setq filter (strcat filter (vla-get-name layobj) ","))
     )
   )
   (and (= filter "")(setq filter "*"))
   (setq SS (ssget "_X" (list (cons 0 "INSERT") (cons 8 filter))))   
   

Code: [Select]

  ;; filter locked layers
  (setq filter "")
  ;;  get a list of layer name in the drawing
  (while (setq elst (tblnext "layer" (null elst)))
    (if (= 4 (logand 4 (cdr (assoc 70 elst))))
      (setq filter (strcat filter (cdr (assoc 2 elst)) ","))
    )
  )
  (and (= filter "")(setq filter "*"))
  (setq SS (ssget "_X" (list (cons 0 "INSERT") (cons 8 filter))))

[wizman]

ALL filters FROZEN layers.

Thank you Cab, as always, got to correct that in my notes...

[Lee Mac]

Thanks Guys,

Thanks for the code Alan, I had wondered if I had to make a filter list manually - but its a shame they haven't made it possible to combine :L and X....

Thanks for all the replies guys, appreciated.

Lee 

[ribarm]

Try these:

Code: [Select]

  ;; filter locked layers
  (setq filter "")
   (vlax-for layobj (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
     (if (= (vla-get-lock layobj) ':vlax-true)
       (setq filter (strcat filter (vla-get-name layobj) ","))
     )
   )
   (and (= filter "")(setq filter "*"))
   (setq SS (ssget "_X" (list (cons 0 "INSERT") (cons 8 filter))))   
   

Code: [Select]

  ;; filter locked layers
  (setq filter "")
  ;;  get a list of layer name in the drawing
  (while (setq elst (tblnext "layer" (null elst)))
    (if (= 4 (logand 4 (cdr (assoc 70 elst))))
      (setq filter (strcat filter (cdr (assoc 2 elst)) ","))
    )
  )
  (and (= filter "")(setq filter "*"))
  (setq SS (ssget "_X" (list (cons 0 "INSERT") (cons 8 filter))))

CAB, I've noticed mistake here :

Code: [Select]

(and (= filter "")(setq filter "*"))

It should be :

Code: [Select]

(and (= filter "")(setq filter "~*"))

Thanks for your snippet, I've just used it successfully in my code (but had to correct this "*" to "~*")

M.R.