TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: ronjonp on March 08, 2005, 07:10:06 PM

Title: ssget filters
Post by: ronjonp on March 08, 2005, 07:10:06 PM

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

Title: ssget filters
Post by: SMadsen on March 08, 2005, 07:15:54 PM

Coz' of a quoted symbol. Try

Code: [Select]

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

Title: ssget filters
Post by: ronjonp on March 08, 2005, 07:38:22 PM

Thanks stig.  :)