Added delete all points

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

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