(defun c :DELDEFPOINTS()
  (vl-load-com)
  (vlax-for ITEM (vla-get-layers(vla-get-activedocument(vlax-get-acad-object)))                        
    (if (=(strcase(vla-get-name ITEM))"DEFPOINTS")
      (vla-delete ITEM)  
    )
  )
)