diff --git a/README.md b/README.md
index 9a86789..0e6b260 100644
--- a/README.md
+++ b/README.md
@@ -6,6 +6,7 @@ Clean dwg files before linking them to Revit
 
 - change to model space
 - remove all xlines from model space and from blocks
+- delete all points from modelspace
 - move hatches to separate layers
 - attribute definitions not in block to txt because they are not showing up in Revit
 - purge
diff --git a/revitDwgImportCleaner.scr b/revitDwgImportCleaner.scr
index 894ee53..cb3aa5b 100644
--- a/revitDwgImportCleaner.scr
+++ b/revitDwgImportCleaner.scr
@@ -23,6 +23,17 @@
 )
 dax
 ;------------------------------------------------------------
+;deleteAllPoints: deletes all points in modelspace
+(defun C:dap (/ ss)
+    (graphscr)
+    (setq ss (ssget "_A" '((0 . "POINT"))))
+    (if ss
+        (command "._erase" ss "")
+    )
+    (princ)
+)
+dap
+;------------------------------------------------------------
 ;rxl.lsp: removes xlines from blocks:
 (defun c:rxl (/ b d l lo nl x)
     ;; RJP - 04.30.2018