FATAL ERROR ON EXECUTION

[venturini.anthony]

I CAN RUN THIS LISP THROUGH TO THE END WITHOUT ANY PROBLEMS. UNLESS I PRESS ESCAPE BFORE THE COMMAND ENDS. WHY IS THIS? HOW DO I FIX THIS? EVEN AFTER I ONLY TYPE THE COMMAND, IF I PRESS ESCAPRE, I GET A FATAL ERROR EVERY TIME. DOES SOMEONE KNOW THE ANSWER TO THIS. 

(defun c:cfade ()
(setq filename (getfiled "Select Excel File:" (getvar 'dwgprefix) "xlsx" 2))
(LayersFromFile filename "Transparency")
(LayersFromFile filename "Color")
(LayersFromFile filename "Freeze")
(LayersFromFile filename "Linetype")

(command "_.layer" "LW" "0.90" "XR-NJDEP|BE-FHA-TOB"
"LW" "1.20" "XR-NJDEP|BE-FHA-FLOODWAY"
"LW" "0.50" "XR-NJDEP|BE-FHA-RIPARIAN-ZONE"
"LW" "0.25" "XR-NJDEP|BE-FLOODHAZARD"
"LW" "0.25" "XR-NJDEP|BE-FLOODPLAIN-10"
"LW" "0.75" "XR-NJDEP|DR-BUILDING"
"LW" "0.75" "XR-NJDEP|DR-CANOPY"
"LW" "0.75" "XR-NJDEP|DR-CONCRETE"
"LW" "0.75" "XR-NJDEP|DR-EASEMENT-SIDEWALK"
"LW" "0.75" "XR-NJDEP|DR-FEATURE"
"LW" "0.75" "XR-NJDEP|DR-FENCE-BARBEDWIRE"
"LW" "0.75" "XR-NJDEP|DR-FENCE-BOARDONBOARD"
"LW" "0.75" "XR-NJDEP|DR-FENCE-CHAINLINK"
"LW" "0.75" "XR-NJDEP|DR-FENCE-POSTRAIL"
"LW" "0.75" "XR-NJDEP|DR-FENCE-STOCKADE"
"LW" "0.75" "XR-NJDEP|DR-FENCE-VINYL"
"LW" "0.75" "XR-NJDEP|DR-GUIDERAIL"
"LW" "0.750" "XR-NJDEP|DR-PAVEMENT"
"LW" "0.75" "XR-NJDEP|DR-PAVEMENT-DEP_FLUSH"
"LW" "0.75" "XR-NJDEP|DR-PAVEMENT-EOP"
"LW" "0.75" "XR-NJDEP-LEGEND|DR-PAVEMENT-GRAVEL"
"LW" "1.20" "XR-NJDEP-LEGEND|BE-FLOODZONE-LINE"
"LW" "0.50" "XR-NJDEP-LEGEND|BE-RIPARIAN-ZONE"
"LW" "0.25" "XR-NJDEP-LEGEND|BE-FLOODHAZARD"
"LW" "0.25" "XR-NJDEP-LEGEND|BE-FLOODPLAIN-10"
""
(if (and c_doc (= 8 (logand 8 (getvar 'UNDOCTL)))) (vla-endundomark c_doc))
(princ)
);end_defun

)

[paullimapa]

Had to move the last parenthesis 3 lines up to complete the Layer command.

Also, there's a function called LayersFromFile which is not native to AutoLISP so I cannot test for you.

(defun c:cfade ()
(setq filename (getfiled "Select Excel File:" (getvar 'dwgprefix) "xlsx" 2))
(LayersFromFile filename "Transparency")
(LayersFromFile filename "Color")
(LayersFromFile filename "Freeze")
(LayersFromFile filename "Linetype")

(command "_.layer" "LW" "0.90" "XR-NJDEP|BE-FHA-TOB"
"LW" "1.20" "XR-NJDEP|BE-FHA-FLOODWAY"
"LW" "0.50" "XR-NJDEP|BE-FHA-RIPARIAN-ZONE"
"LW" "0.25" "XR-NJDEP|BE-FLOODHAZARD"
"LW" "0.25" "XR-NJDEP|BE-FLOODPLAIN-10"
"LW" "0.75" "XR-NJDEP|DR-BUILDING"
"LW" "0.75" "XR-NJDEP|DR-CANOPY"
"LW" "0.75" "XR-NJDEP|DR-CONCRETE"
"LW" "0.75" "XR-NJDEP|DR-EASEMENT-SIDEWALK"
"LW" "0.75" "XR-NJDEP|DR-FEATURE"
"LW" "0.75" "XR-NJDEP|DR-FENCE-BARBEDWIRE"
"LW" "0.75" "XR-NJDEP|DR-FENCE-BOARDONBOARD"
"LW" "0.75" "XR-NJDEP|DR-FENCE-CHAINLINK"
"LW" "0.75" "XR-NJDEP|DR-FENCE-POSTRAIL"
"LW" "0.75" "XR-NJDEP|DR-FENCE-STOCKADE"
"LW" "0.75" "XR-NJDEP|DR-FENCE-VINYL"
"LW" "0.75" "XR-NJDEP|DR-GUIDERAIL"
"LW" "0.750" "XR-NJDEP|DR-PAVEMENT"
"LW" "0.75" "XR-NJDEP|DR-PAVEMENT-DEP_FLUSH"
"LW" "0.75" "XR-NJDEP|DR-PAVEMENT-EOP"
"LW" "0.75" "XR-NJDEP-LEGEND|DR-PAVEMENT-GRAVEL"
"LW" "1.20" "XR-NJDEP-LEGEND|BE-FLOODZONE-LINE"
"LW" "0.50" "XR-NJDEP-LEGEND|BE-RIPARIAN-ZONE"
"LW" "0.25" "XR-NJDEP-LEGEND|BE-FLOODHAZARD"
"LW" "0.25" "XR-NJDEP-LEGEND|BE-FLOODPLAIN-10"
""
) ; missing this closed parenthesis
(if (and c_doc (= 8 (logand 8 (getvar 'UNDOCTL)))) (vla-endundomark c_doc)) 
(princ)
);end_defun

[john.uhden]

@venturini.anthony ,

Is your office in NJ?  I work in Princeton now for the Van Note Harvey Division of Pennoni.

I am glad for you that @paullimapa has such good reading skills.

BTW, you should probably add a local *error* function.