(DEFUN c:civltypes () (IF (SETQ found_civillin (FINDFILE "CIVIL.LIN")) (PROGN (SETQ civltype_cmdecho (GETVAR "cmdecho")) (SETVAR "cmdecho" 0) (IF (TBLSEARCH "LTYPE" "12in W") nil (COMMAND "-linetype" "load" "12in W" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "1in W") nil (COMMAND "-linetype" "load" "1in W" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "2in W") nil (COMMAND "-linetype" "load" "2in W" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "4in W") nil (COMMAND "-linetype" "load" "4in W" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "6in W") nil (COMMAND "-linetype" "load" "6in W" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "8in W") nil (COMMAND "-linetype" "load" "8in W" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "BOUNDARY2") nil (COMMAND "-linetype" "load" "BOUNDARY2" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "CATV") nil (COMMAND "-linetype" "load" "CATV" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "CLEARING") nil (COMMAND "-linetype" "load" "CLEARING" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "CME") nil (COMMAND "-linetype" "load" "CME" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "COLDWR") nil (COMMAND "-linetype" "load" "COLDWR" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "DEMO") nil (COMMAND "-linetype" "load" "DEMO" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "DITCH") nil (COMMAND "-linetype" "load" "DITCH" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "DOM2.5") nil (COMMAND "-linetype" "load" "DOM2.5" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "EASEMENT") nil (COMMAND "-linetype" "load" "EASEMENT" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "ELECTRIC") nil (COMMAND "-linetype" "load" "ELECTRIC" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "FENCE") nil (COMMAND "-linetype" "load" "FENCE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "FENCELINE1") nil (COMMAND "-linetype" "load" "FENCELINE1" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "FENCELINE3") nil (COMMAND "-linetype" "load" "FENCELINE3" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "FIBER_OPTIC") nil (COMMAND "-linetype" "load" "FIBER_OPTIC" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "FORCE_MAIN") nil (COMMAND "-linetype" "load" "FORCE_MAIN" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "GAS_LINE") nil (COMMAND "-linetype" "load" "GAS_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "GRID20") nil (COMMAND "-linetype" "load" "GRID20" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "GRID30") nil (COMMAND "-linetype" "load" "GRID30" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "GRID40") nil (COMMAND "-linetype" "load" "GRID40" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "GRID50") nil (COMMAND "-linetype" "load" "GRID50" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "IRRIGATION_REUSE") nil (COMMAND "-linetype" "load" "IRRIGATION_REUSE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "LOD") nil (COMMAND "-linetype" "load" "LOD" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "MINI20") nil (COMMAND "-linetype" "load" "MINI20" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "MINI30") nil (COMMAND "-linetype" "load" "MINI30" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "MINI40") nil (COMMAND "-linetype" "load" "MINI40" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "MINI50") nil (COMMAND "-linetype" "load" "MINI50" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "MINI500m") nil (COMMAND "-linetype" "load" "MINI500m" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "MINI60") nil (COMMAND "-linetype" "load" "MINI60" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "OH_ELECTRIC") nil (COMMAND "-linetype" "load" "OH_ELECTRIC" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "OH_PWR") nil (COMMAND "-linetype" "load" "OH_PWR" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "OHET") nil (COMMAND "-linetype" "load" "OHET" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "OHETV") nil (COMMAND "-linetype" "load" "OHETV" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "PDE") nil (COMMAND "-linetype" "load" "PDE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "ROOF_DRAIN") nil (COMMAND "-linetype" "load" "ROOF_DRAIN" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "ROW") nil (COMMAND "-linetype" "load" "ROW" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SEWER_LINE") nil (COMMAND "-linetype" "load" "SEWER_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SILT AND TREE PRO") nil (COMMAND "-linetype" "load" "SILT AND TREE PRO" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SILT FENCE") nil (COMMAND "-linetype" "load" "SILT FENCE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SILT TPF") nil (COMMAND "-linetype" "load" "SILT TPF" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SILT_FENCE") nil (COMMAND "-linetype" "load" "SILT_FENCE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SKIP20") nil (COMMAND "-linetype" "load" "SKIP20" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SKIP30") nil (COMMAND "-linetype" "load" "SKIP30" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SKIP40") nil (COMMAND "-linetype" "load" "SKIP40" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SKIP50") nil (COMMAND "-linetype" "load" "SKIP50" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SKIP500m") nil (COMMAND "-linetype" "load" "SKIP500m" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SKIP60") nil (COMMAND "-linetype" "load" "SKIP60" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "STEAM_LINE") nil (COMMAND "-linetype" "load" "STEAM_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "STORM_LINE") nil (COMMAND "-linetype" "load" "STORM_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "STREAM") nil (COMMAND "-linetype" "load" "STREAM" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "SUPER SILT FENCE") nil (COMMAND "-linetype" "load" "SUPER SILT FENCE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "TCE") nil (COMMAND "-linetype" "load" "TCE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "TCE-DOT") nil (COMMAND "-linetype" "load" "TCE-DOT" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "TELEPHONE") nil (COMMAND "-linetype" "load" "TELEPHONE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "TPF") nil (COMMAND "-linetype" "load" "TPF" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "TRACKS") nil (COMMAND "-linetype" "load" "TRACKS" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "TVTEL") nil (COMMAND "-linetype" "load" "TVTEL" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "UG_ELEC") nil (COMMAND "-linetype" "load" "UG_ELEC" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "UG_TEL") nil (COMMAND "-linetype" "load" "UG_TEL" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "WATER_LINE") nil (COMMAND "-linetype" "load" "WATER_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XCATV") nil (COMMAND "-linetype" "load" "XCATV" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XELEC_LINE") nil (COMMAND "-linetype" "load" "XELEC_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XFIBER OPTIC") nil (COMMAND "-linetype" "load" "XFIBER OPTIC" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XGAS_LINE") nil (COMMAND "-linetype" "load" "XGAS_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XOHELEC_LINE") nil (COMMAND "-linetype" "load" "XOHELEC_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XSEWER_LINE") nil (COMMAND "-linetype" "load" "XSEWER_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XTEL_LINE") nil (COMMAND "-linetype" "load" "XTEL_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XUG_ELEC") nil (COMMAND "-linetype" "load" "XUG_ELEC" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XUG_TEL") nil (COMMAND "-linetype" "load" "XUG_TEL" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "XWATER_LINE") nil (COMMAND "-linetype" "load" "XWATER_LINE" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "FENCELINE2") nil (COMMAND "-linetype" "load" "FENCELINE2" "CIVIL.LIN" "") ) ;_ end of IF (IF (TBLSEARCH "LTYPE" "OHETTV") nil (IF (TBLSEARCH "STYLE" "L80") (COMMAND "-linetype" "load" "OHETTV" "CIVIL.LIN" "") (ALERT "Text style L80 is required for linetype OHETTV and was not found") ) ) ;_ end of IF (SETVAR "cmdecho" civltype_cmdecho) ) ;_ end of PROGN (PROGN (ALERT "Cannot find file CIVIL.LIN")) ) ;_ end of IF (PRINC) ) ;_ end of DEFUN ;|«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! ***|;