Lisp needed

Hi everyone

Does anyone know of a lisp (lisps) that can:
- select objects that don't have color and/or linetype "by layer"
- select objects that don't have linetype scale "1.0"

Need it for IntelliCad so Acad's filter and qselect are not an option.


Thanks in advance!

 

(ssget "x" '((-4 . "<NOT")(62 . 256)(-4 . "NOT>")))
returns objects with color not BYLAYER.

(ssget "x" '((-4 . "<NOT")(6 . "BYLAYER")(-4 . "NOT>")))
returns objects with linetypes other than BYLAYER.

(ssget "x" '((-4 . "<NOT")(48 . 1.0)(-4 . "NOT>")))
returns objects with LTSCALE not equal to 1.0.

You can do all at once with

(setq ss
(ssget "x"
'((-4 . "<OR")
((-4 . "<NOT")(62 . 256)(-4 . "NOT>"))
((-4 . "<NOT")(6 . "BYLAYER")(-4 . "NOT>"))
((-4 . "<NOT")(48 . 1.0)(-4 . "NOT>"))
(-4 . "OR>"))
)
)
___

 

Oops ... that should be
(setq ss
(ssget "x"
'((-4 . "<OR")
(-4 . "<NOT")(62 . 256)(-4 . "NOT>")
(-4 . "<NOT")(6 . "BYLAYER")(-4 . "NOT>")
(-4 . "<NOT")(48 . 1.0)(-4 . "NOT>")
(-4 . "OR>"))
)
)

Sorry.
___

 

Thanks Paul, works great!