From e6456bce4ba8cf66362f41a8fd55d3d0e37978bb Mon Sep 17 00:00:00 2001
From: infeeeee <gyetpet@gmail.com>
Date: Mon, 6 May 2019 13:29:20 +0200
Subject: [PATCH] Added delete all points

---
 README.md                 |  1 +
 revitDwgImportCleaner.scr | 11 +++++++++++
 2 files changed, 12 insertions(+)

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