(DEFUN C:DELSPOTLDR ( / SS SSCNT) (SETQ SS (SSGET "X" '((0 . "LEADER")))) (SETQ SSCNT 0) (IF SS (WHILE (< SSCNT (SSLENGTH SS)) (IF (MEMBER (CONS 3 "SPOTLEADER") (ENTGET (SSNAME SS SSCNT))) (ENTDEL (SSNAME SS SSCNT)) ) ;_ end of IF (SETQ SSCNT (1+ SSCNT)) ) ;_ end of WHILE ) (SETQ SS (SSGET "X" '((1 . "###.##")))) (SETQ SSCNT 0) (IF SS (WHILE (< SSCNT (SSLENGTH SS)) (ENTDEL (SSNAME SS SSCNT)) (SETQ SSCNT (1+ SSCNT)) ) ;_ end of WHILE ) (PRINC) ) ;|«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! ***|;