;;;Erase DCA POINT blocks C:EPNT or TIN lines C:ETIN
;;;
;;;
;;;	Block name must be POINT.  To adapt for use with other
;;;	block names just replace the string "POINT" below with
;;;	the quoted block name desired (in caps).
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1995  Henry C. Francis
;;;>		   EDITED: 04-12-1997
;;;
(DEFUN C:EPNT (/)
  (setvar "highlight" 0)
  (setq ess (ssget "x" '((0 . "INSERT") (2 . "POINT"))))
  (setq esslen (sslength ess))
  (command ".erase" ess "")
  (setvar "highlight" 1)
  (princ (strcat "\n" (itoa esslen) " POINT blocks erased. "))
  (princ)
);defun
(DEFUN C:ETIN (/)
  (setvar "highlight" 0)
  (setq ess (ssget "x" '((0 . "LINE") (8 . "SRF-VIEW"))))
  (setq esslen (sslength ess))
  (command ".erase" ess "")
  (setvar "highlight" 1)
  (princ (strcat "\n" (itoa esslen) " TIN lines erased. "))
  (princ)
);defun