(defun C:D1 ()
  (command "erase" (ssget "x" '((0 . "DIMENSION") (42 . 0.0))) "")
  (princ)
)