(DEFUN c:chkapps ()
  (SETQ appidlst (LIST (CDR (ASSOC 2 (TBLNEXT "appid" T)))))
  (WHILE (SETQ it (TBLNEXT "appid"))
    (SETQ appidlst (APPEND appidlst (LIST (CDR (ASSOC 2 it)))))
  ) ;_ end of WHILE
  (FOREACH n appidlst
    (SETQ prevent (ENTNEXT))
    (PRINC "\n\n\t\t")
    (PRINC n)
    (WHILE (ENTNEXT prevent)
      (SETQ it (ENTGET (ENTNEXT prevent) (LIST n)))
      (SETQ nextent (CDR (ASSOC -1 it)))
      (COND
        ((ASSOC -3 it)
          (PRINC "\n")
          (PRINC (CDR(ASSOC 0 it)))
          (PRINC "\n")
          (PRINC (ASSOC -3 it))
          (IF (AND del_alljunk
                 (OR
                   (WCMATCH (CAADR(ASSOC -3 it)) "ADCADD*")
                   (WCMATCH (CAADR(ASSOC -3 it)) "TEC_*")
                   (WCMATCH (CAADR(ASSOC -3 it)) "SDSK*")
                   (
                    WCMATCH (CAADR(ASSOC -3 it)) "DCA*")
                   (WCMATCH (CAADR(ASSOC -3 it)) "CIVIL*")
                   (WCMATCH (CAADR(ASSOC -3 it)) "AEC*")
                 )
            )
          (ENTDEL (CDR(ASSOC -1 it)))
        ))
      )
      (SETQ prevent nextent)
    ) ;_ end of while
  ) ;_ end of progn
) ;_ end of DEFUN
(defun c:killallapps ()

  (dictremove (namedobjdict) "ADE_PROJECTION")

  (dictremove (namedobjdict) "ADE")

  (dictremove (namedobjdict) "CIVIL_DRAFT")

  (dictremove (namedobjdict) "CIVIL_LINE_TABLE")

  (dictremove (namedobjdict) "CIVIL_CURVE_TABLE")

  (dictremove (namedobjdict) "CIVIL_SPIRAL_TABLE")

  (dictremove (namedobjdict) "AUTOCAD_POSTSCRIPT_FIGURE")

  (dictremove (namedobjdict) "ADCADD_ZZ")

  (dictremove (namedobjdict) "SDSK_PMN")

  (dictremove (namedobjdict) "SDSK_POINT")

  (dictremove (namedobjdict) "SDI_XSECTIONS")

  (dictremove (namedobjdict) "DCO15")

  (dictremove (namedobjdict) "AEC_DWGVARSSETUP_DATA")

  (dictremove (namedobjdict) "DCA_FIGURE_XENT")

  (dictremove (namedobjdict) "AECBASE")

  (dictremove (namedobjdict) "ER_DAYLIGHT")

  (dictremove (namedobjdict) "AEC_DISPREPCONFIG_DATA")

  (dictremove (namedobjdict) "AEC_DISPREPSET_DATA")

  (dictremove (namedobjdict) "AECC_ROUNDTRIP_15")

  (dictremove (namedobjdict) "AEC_ROUNDTRIP_15")

  (dictremove (namedobjdict) "RAK")

  (dictremove (namedobjdict) "AVE_RENDER")

  (dictremove (namedobjdict) "AVE_ENTITY_MATERIAL")

  (dictremove (namedobjdict) "AVE_FINISH")

  (dictremove (namedobjdict) "AVE_MATERIAL")

  (dictremove (namedobjdict) "AVE_GLOBAL")

  (dictremove (namedobjdict) "ALIGNMENT_DB_APP")

  (dictremove (namedobjdict) "SDI_PROFILE")

  (dictremove (namedobjdict) "CONTENTBLOCKICON")

  (dictremove (namedobjdict) "DCA_DTM_FAULTS")

  (dictremove (namedobjdict) "ACAECLAYERSTANDARD")

  (dictremove (namedobjdict) "DCA_PIPEWKS_C_PLAN")

  (dictremove (namedobjdict) "DCA_PIPEWKS_F_PLAN")

  (dictremove (namedobjdict) "DCA_PIPEWKS_C_PROF")

  (dictremove (namedobjdict) "DCA_PIPEWKS_C_PROF_LINES")

  (dictremove (namedobjdict) "DCA_PIPEWKS_HYDRAULIC_GRADE")

  (dictremove (namedobjdict) "DCA_PIPEWKS_F_PROF")

  (dictremove (namedobjdict) "DCA_PIPEWKS_C_XSEC")

  (dictremove (namedobjdict) "DCA_PIPEWKS_F_XSEC")

  (dictremove (namedobjdict) "ACET-TEXTMASK")

)

;;; End of text
;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 1 0 nil T nil T)
;*** DO NOT add text below the comment! ***|;