Added delete all points

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