(defun c:stripcdm ()
  (dictremove (namedobjdict) "DWGPROPS")
  (dictremove (namedobjdict) "CDM")
  (princ)
)