(DEFUN c:striplay () (SETQ this_layer (TBLNEXT "layer" T) this_layer_ename (TBLOBJNAME "LAYER" (CDR (ASSOC 2 this_layer))) this_layer_ent (ENTGET this_layer_ename) ) ;_ end of SETQ (IF (WCMATCH (CDR (ASSOC 2 this_layer_ent)) "00-BASE HARNETT$0$*") (PROGN (SETQ this_layer_ent (SUBST (CONS 2 (SUBSTR (CDR (ASSOC 2 this_layer_ent)) 19)) (ASSOC 2 this_layer_ent) this_layer_ent ) ;_ end of SUBST ) ;_ end of SETQ (ENTMOD this_layer_ent) ) ;_ end of PROGN ) ;_ end of IF (IF (WCMATCH (CDR (ASSOC 6 this_layer_ent)) "00-BASE HARNETT$0$*") (PROGN (SETQ this_layer_ent (SUBST (IF (WCMATCH (CDR (ASSOC 6 this_layer_ent)) "*BARBWIRE*") (CONS 6 "WIREFENCE") (CONS 6 (SUBSTR (CDR (ASSOC 2 this_layer_ent)) 19))) (ASSOC 6 this_layer_ent) this_layer_ent ) ;_ end of SUBST ) ;_ end of SETQ (ENTMOD this_layer_ent) ) ;_ end of PROGN ) ;_ end of IF (WHILE (AND (SETQ this_layer (TBLNEXT "layer")) (SETQ this_layer_ename (TBLOBJNAME "LAYER" (CDR (ASSOC 2 this_layer)))) (SETQ this_layer_ent (ENTGET this_layer_ename)) ) ;_ end of AND (IF (AND (WCMATCH (CDR (ASSOC 2 this_layer_ent)) "00-BASE HARNETT$0$*") (NOT (TBLSEARCH "LAYER" (SUBSTR (CDR (ASSOC 2 this_layer_ent)) 19))) ) ;_ end of AND (PROGN (SETQ this_layer_ent (SUBST (CONS 2 (SUBSTR (CDR (ASSOC 2 this_layer_ent)) 19)) (ASSOC 2 this_layer_ent) this_layer_ent ) ;_ end of SUBST ) ;_ end of SETQ (ENTMOD this_layer_ent) ) ;_ end of PROGN ) ;_ end of IF (IF (WCMATCH (CDR (ASSOC 6 this_layer_ent)) "00-BASE HARNETT$0$*") (PROGN (SETQ this_layer_ent (SUBST (CONS 6 (SUBSTR (CDR (ASSOC 6 this_layer_ent)) 19)) (ASSOC 6 this_layer_ent) this_layer_ent ) ;_ end of SUBST ) ;_ end of SETQ (ENTMOD this_layer_ent) ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of WHILE ) ;_ end of DEFUN (DEFUN c:stripltyp () (SETQ this_ltype (TBLNEXT "ltype" T) this_ltype_ename (TBLOBJNAME "LTYPE" (CDR (ASSOC 2 this_ltype))) this_ltype_ent (ENTGET this_ltype_ename) ) ;_ end of SETQ (IF (WCMATCH (CDR (ASSOC 2 this_ltype_ent)) "00-BASE HARNETT$0$*") (PROGN (SETQ this_ltype_ent (SUBST (CONS 2 (SUBSTR (CDR (ASSOC 2 this_ltype_ent)) 19)) (ASSOC 2 this_ltype_ent) this_ltype_ent ) ;_ end of SUBST ) ;_ end of SETQ (ENTMOD this_ltype_ent) ) ;_ end of PROGN ) ;_ end of IF (WHILE (AND (SETQ this_ltype (TBLNEXT "ltype")) (SETQ this_ltype_ename (TBLOBJNAME "LTYPE" (CDR (ASSOC 2 this_ltype)))) (SETQ this_ltype_ent (ENTGET this_ltype_ename)) ) ;_ end of AND (IF (AND (WCMATCH (CDR (ASSOC 2 this_ltype_ent)) "00-BASE HARNETT$0$*") (NOT (TBLSEARCH "LTYPE" (SUBSTR (CDR (ASSOC 2 this_ltype_ent)) 19))) ) ;_ end of AND (PROGN (SETQ this_ltype_ent (SUBST (CONS 2 (SUBSTR (CDR (ASSOC 2 this_ltype_ent)) 19)) (ASSOC 2 this_ltype_ent) this_ltype_ent ) ;_ end of SUBST ) ;_ end of SETQ (ENTMOD this_ltype_ent) ) ;_ end of PROGN ) ;_ end of IF ) ;_ end of WHILE ) ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 1 nil nil nil nil T) ;*** DO NOT add text below the comment! ***|;