Topic: ssget filters

[ronjonp]

Why won't this work:

Code: [Select]

(setq ent (entsel "\n Select entity to set layer to total"))
(setq lay (cdr (assoc 8 (entget (car ent)))))
(setq sl
(ssget '((0 . "LWPOLYLINE,CIRCLE,POLYLINE,ELLIPSE,REGION,SPLINE")
      (8 . lay)
)
   )
)

Thanks,

Ron

[SMadsen]

Coz' of a quoted symbol. Try

Code: [Select]

(ssget
  (list
    '(0 . "LWPOLYLINE,CIRCLE,POLYLINE,ELLIPSE,REGION,SPLINE")
    (cons 8 lay)
  )
)

[ronjonp]

Thanks stig.