For all of you that might have exploded dimensions or lost points flying around, this will remove them.
; Pointkill - removes all points from a drawing.
; By SW for Rocket Software Copyright 1991
; Sorry, Suerat.
(DEFUN C:PKILL (/ hi ss pos num rad so txa pa dell)
(setvar "cmdecho" 0)
(setq hi (getvar "highlight"))
(setq ss (ssget "X" '((0 . "POINT"))))
(setq pos 0)
(if ss
(progn
(setq num (itoa (sslength ss)))
(write-line (strcat "Points found: " num))
(setq
rad (/ (- (car (getvar "extmax")) (car (getvar "extmin"))) 25)
)
(while (setq so (ssname ss pos))
(setq pa (cdr (assoc 10 (entget so))))
(grdraw (polar pa (/ pi 4) rad)
(polar pa (* 1.25 pi) rad)
7
)
(grdraw (polar pa (* pi 0.75) rad)
(polar pa (* pi 1.75) rad)
7
)
(setq pos (1+ pos))
)
(setq dell (getstring "Eradicate them? <Y>: "))
(if (or (= dell "Y") (= dell "y") (= dell ""))
(progn
(command "erase" ss "")
(write-line (strcat "\nPoints destroyed: " num))
)
)
)
(write-line "No points found.")
)
(setvar "highlight" hi)
(PRINC)
)