The following code works in 2008 but not in 2010. Any ideas?
(setq ss (ssget "X" '((0 . "LWPOLYLINE")(8 . "0")(70 . 1))));0=Type , 8=Layer Name , 70=lypolylines closed only
(if (= ss nil)
(alert "There are NO LwPolylines!")
)
(if ss
(repeat (setq n (sslength ss))
(setq n (1- n))
(command ".-hatch" "p" "HONEY" "140" "" (ssname ss n) "")
)
)