(IF(NOT(EQ(FINDFILE(STRCAT E_CAD_STEEL "/_program/_code/e_cad_steel.lsp"))nil))(LOAD(STRCAT E_CAD_STEEL "/_program/_code/e_cad_steel.lsp"))
(COND
((NOT(EQ(VL-STRING-SEARCH "ACTCAD" (STRCASE(GETVAR "PRODUCT")))nil))(LOAD(STRCAT E_CAD_STEEL "/_program/_code/e_cad_steel_actcad.lsp")))
((NOT(EQ(VL-STRING-SEARCH "ARES" (STRCASE(GETVAR "PRODUCT")))nil))(LOAD(STRCAT E_CAD_STEEL "/_program/_code/e_cad_steel_ares.lsp")))
((NOT(EQ(VL-STRING-SEARCH "AUTOCAD" (STRCASE(GETVAR "PRODUCT")))nil))(LOAD(STRCAT E_CAD_STEEL "/_program/_code/e_cad_steel_autocad.fas")))
((NOT(EQ(VL-STRING-SEARCH "BRICSCAD" (STRCASE(GETVAR "PRODUCT")))nil))(LOAD(STRCAT E_CAD_STEEL "/_program/_code/e_cad_steel_bricscad.des")))
((NOT(EQ(VL-STRING-SEARCH "GSTARCAD" (STRCASE(GETVAR "PRODUCT")))nil))(LOAD(STRCAT E_CAD_STEEL "/_program/_code/e_cad_steel_gstarcad.lsp")))
((NOT(EQ(VL-STRING-SEARCH "PROGECAD" (STRCASE(GETVAR "PRODUCT")))nil))(LOAD(STRCAT E_CAD_STEEL "/_program/_code/e_cad_steel_progecad.lsp")))
((NOT(EQ(VL-STRING-SEARCH "ZWCAD" (STRCASE(GETVAR "PRODUCT")))nil))(LOAD(STRCAT E_CAD_STEEL "/_program/_code/e_cad_steel_zwcad.zel")))
)
)
