;;;Erase DCA POINT blocks C:EPNT or TIN lines C:ETIN ;;; ;;; copyright 1995 Henry C. Francis ;;; 425 N. ASHE ST. ;;; Southern Pines, NC 28387 ;;; ;;; 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). ;;; (DEFUN C:EPNT (/) (SETVAR "highlight" 0) (SETQ ess (SSGET "x" '((0 . "INSERT") (2 . "POINT")))) (IF ess (PROGN (SETQ esslen (SSLENGTH ess)) (COMMAND ".erase" ess "") (PRINC (STRCAT "\n" (ITOA esslen) " POINT blocks erased. ")) ) ;_ end of PROGN (PRINC (STRCAT "\nNo POINT blocks found. ")) ) ;_ end of IF (SETVAR "highlight" 1) (PRINC) ) ;defun (DEFUN C:ETIN (/) (SETVAR "highlight" 0) (SETQ ess (SSGET "x" '((-4 . "") (-4 . "") ) ) ;_ end of ssget ) ;_ end of setq (IF ess (PROGN (SETQ esslen (SSLENGTH ess)) (COMMAND ".erase" ess "") (PRINC (STRCAT "\n" (ITOA esslen) " TIN lines or 3Dfaces erased. ")) ) ;_ end of PROGN (PRINC (STRCAT "\nNo TIN lines or 3Dfaces found. ")) ) ;_ end of IF (SETVAR "highlight" 1) (PRINC) ) ;defun ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T) ;*** DO NOT add text below the comment! ***|;