(DEFUN c:mkstddir () (IF ukword nil (LOAD "ukword" "\nFile UKWORD.LSP not loaded! ") ) ;_ end of IF (SETQ newdir (GETVAR "dwgprefix")) (SETQ cursubdirs (DOS_SUBDIR newdir)) (SETQ cursubnote (MAPCAR '(lambda (x) (STRCAT x "\n")) cursubdirs)) (SETQ this_note (EVAL (CONS 'STRCAT cursubnote))) (ALERT (STRCAT "Current Subdirectories:\n\n" this_note)) (SETQ dirtomake (ukword 1 "GENeral Civil Structural Architectural PID ENvironmental Telemetry ELectrical Mechanical Plumbing Fire Landscape GIS IMages EQuipment Other Z 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 NONE" "Enter Discipline designator [GEN C S A PID EN T EL M P F L GIS IM EQ Other Z NONE]" "NONE" ) ;_ end of ukword ) ;_ end of SETQ (COND ((AND (OR (EQ dirtomake "GENeral") (EQ dirtomake "01")) (NOT (DOS_DIRP (STRCAT new_dir "01 General"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "01 General") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "Civil") (EQ dirtomake "02")) (NOT (DOS_DIRP (STRCAT new_dir "02 Civil"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "02 Civil")) ) ((AND (OR (EQ dirtomake "Structural") (EQ dirtomake "03")) (NOT (DOS_DIRP (STRCAT new_dir "03 Structural"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "03 Structural") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "Architectural") (EQ dirtomake "04")) (NOT (DOS_DIRP (STRCAT new_dir "04 Architectural"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "04 Architectural") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "PID") (EQ dirtomake "05")) (NOT (DOS_DIRP (STRCAT new_dir "05 p&Id")))) (DOS_MKDIR (STRCAT new_dir "05 p&Id")) ) ((AND (OR (EQ dirtomake "ENvironmental") (EQ dirtomake "06")) (NOT (DOS_DIRP (STRCAT new_dir "06 ENvironmental"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "06 ENvironmental") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "Telemetry") (EQ dirtomake "07")) (NOT (DOS_DIRP (STRCAT new_dir "07 Telemetry"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "07 Telemetry") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "ELectrical") (EQ dirtomake "08")) (NOT (DOS_DIRP (STRCAT new_dir "08 Electrical"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "08 Electrical") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "Mechanical") (EQ dirtomake "09")) (NOT (DOS_DIRP (STRCAT new_dir "09 Mechanical"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "09 Mechanical") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "Plumbing") (EQ dirtomake "10")) (NOT (DOS_DIRP (STRCAT new_dir "10 Plumbing"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "10 Plumbing") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "Fire") (EQ dirtomake "11")) (NOT (DOS_DIRP (STRCAT new_dir "11 Fire"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "11 Fire")) ) ((AND (OR (EQ dirtomake "Landscape") (EQ dirtomake "12")) (NOT (DOS_DIRP (STRCAT new_dir "12 Landscape"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "12 Landscape") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "GIS") (EQ dirtomake "13")) (NOT (DOS_DIRP (STRCAT new_dir "13 GIS")))) (DOS_MKDIR (STRCAT new_dir "13 GIS")) ) ((AND (OR (EQ dirtomake "IMages") (EQ dirtomake "14")) (NOT (DOS_DIRP (STRCAT new_dir "14 IMaGes"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "14 IMaGes")) ) ((AND (OR (EQ dirtomake "EQuipment") (EQ dirtomake "15")) (NOT (DOS_DIRP (STRCAT new_dir "15 eQuipment consultants"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "15 eQuipment consultants" ) ;_ end of STRCAT ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "Other") (EQ dirtomake "16")) (NOT (DOS_DIRP (STRCAT new_dir "16 Other consultants"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "16 Other consultants") ) ;_ end of DOS_MKDIR ) ((AND (OR (EQ dirtomake "Z") (EQ dirtomake "17")) (NOT (DOS_DIRP (STRCAT new_dir "17 Z contractor shop drawings"))) ) ;_ end of AND (DOS_MKDIR (STRCAT new_dir "17 Z contractor shop drawings" ) ;_ end of STRCAT ) ;_ end of DOS_MKDIR ) ) ;_ end of COND ) ;_ end of defun ;|«Visual LISP© Format Options» (100 2 40 2 T "end of " 100 9 2 1 0 nil T nil T) ;*** DO NOT add text below the comment! ***|;