(DEFUN c:unapp ()
  (SETQ myappnames
         (LIST
;;;               "ABNSLEADERTOOLS"
;;;               "ACET-TEXTMASK"
;;;               "ADCADD_ZZ"
;;;               "ADE"
;;;               "ADE_PROJECTION"
;;;               "AD_FM_JUNK"
;;;               "AECBASE"
;;;               "AEC_DWGVARSSETUP_DATA"
               "AEC_ROUNDTRIP_15"
;;;               "ALIGNMENT_DB_APP"
;;;               "AME_SOL"
;;;               "ASG_DLPD500_CORE_TAGS"
;;;               "ASG_DLPD500_LINK_HANDLE"
;;;               "ASG_DLPD500_PE_INFO"
;;;               "ASG_DLPD500_TIMBERLINE_IMPORT"
;;;               "ASG_DLPD500_TL_NONCAD_VAR"
;;;               "ASG_DLPD500_WIOT"
;;;               "AUDIT_D_001218152250-0"
;;;               "AUDIT_D_010126152612-1"
;;;               "AUDIT_D_010208153202-0"
;;;               "AUDIT_D_010209141013-0"
;;;               "AUDIT_D_010212151857-0"
;;;               "AUDIT_D_011106104809-0"
;;;               "AUDIT_D_011106104809-1"
;;;               "AUDIT_D_020117164950-0"
;;;               "AUDIT_D_020120161719-0"
;;;               "AUDIT_D_020208082907-0"
;;;               "AVE_ENTITY_MATERIAL"
;;;               "AVE_FINISH"
;;;               "AVE_GLOBAL"
;;;               "AVE_MATERIAL"
;;;               "AVE_RENDER"
;;;               "CDIA_LAYERS"
;;;               "CGSURVEY_FOR_AUTOCAD8003671157"
;;;               "CIVIL_CURVE_TABLE"
;;;               "CIVIL_DRAFT"
;;;               "CIVIL_LINE_TABLE"
;;;               "CIVIL_SPIRAL_TABLE"
;;;               "CONTENTBLOCKICON"
;;;               "DCA_DTM_FAULTS"
;;;               "DCA_FIGURE_XENT"
;;;               "DCA_PIPEWKS_C_PLAN"
;;;               "DCA_PIPEWKS_C_PROF"
;;;               "DCA_PIPEWKS_C_PROF_LINES"
;;;               "DCA_PIPEWKS_C_XSEC"
;;;               "DCA_PIPEWKS_F_PLAN"
;;;               "DCA_PIPEWKS_F_PROF"
;;;               "DCA_PIPEWKS_F_XSEC"
;;;               "DCA_PIPEWKS_HYDRAULIC_GRADE"
;;;               "DCO15"
;;;               "EGPT_EPOD"
;;;               "EPDRCURVALNG"
;;;               "EPDRLINEALNG"
;;;               "ER_DAYLIGHT"
;;;               "ESRI"
;;;               "HD_APP_POND_120"
;;;               "HUA"
;;;               "PROSURV_V1_0_7047874131"
;;;               "RAK"
;;;               "SDI_PROFILE"
;;;               "SDI_SETUP"
;;;               "SDI_XSECTIONS"
;;;               "SDSK_CVP_1301"
;;;               "SDSK_DTM_CONTOUR"
;;;               "SDSK_PMN"
;;;               "SDSK_POINT"
;;;               "SVPLINE"
         ) ;_ end of list
  ) ;_ end of setq
  (MAPCAR '(LAMBDA (x / lay ent)
             (WHILE (SETQ lay (IF lay (ENTNEXT lay)(ENTNEXT)))
;;;              (if(NOT(WCMATCH(STRCASE(CDADR lay))"ACAD"))(ENTDEL(TBLOBJNAME "APPID" (CDADR lay))))
               (IF (AND (SETQ ent (ENTGET lay (LIST x))) (ASSOC -3 ent))
                 (ENTMOD (SUBST (LIST -3 (LIST x)) (ASSOC -3 ent) ent))
               ) ;_ end of if
             ) ;_ end of while
           ) ;_ end of lambda
          myappnames
  ) ;_ end of mapcar
) ;_ end of defun

;;;((LAMBDA (/ lay ent)
;;;   (WHILE (SETQ lay (TBLNEXT "layer" (NOT lay)))
;;;     (IF (AND (SETQ ent (ENTGET (TBLOBJNAME "layer" (CDR (ASSOC 2 lay))) '("APPNAME"))) (ASSOC -3 ent))
;;;       (ENTMOD (SUBST '(-3 ("APPNAME")) (ASSOC -3 ent) ent))
;;;     ) ;_ end of if
;;;   ) ;_ end of while
;;; ) ;_ end of lambda
;;;)
;;;(ALERT "Layer states cleared.")
;|«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! ***|;