(defun C:D1()
(setq a (ssget "x" '((-4 . "<AND")(0 . "DIMENSION")(42 . 0.0)(-4 . "AND>"))))
(command "erase" a "")
(princ)
)