Originally Posted by
RobertB
Look at the top of your code... the first two lines.
deleted extra removed after
Code:
(or Inp (setq Inp "English")
added to end of code
works fine now thanks Robert, an extra set of eyes never hurts
Code:
(defun c:ffd (/ inp) ;define command
(initget "English Metric") ; ask for input
(setq Inp (getkword "\nWhat are the units of measure? [English/Metric] <English>: "))
(or Inp (setq Inp "English")
)
(cond
((= inp "English")
(load "C:\\home\\work\\dennis\\Lisp\\lisp routines\\flush floor duct pline hatch.LSP")
(C:ffplh)
)
((= inp "Metric")
(load "C:\\home\\work\\dennis\\Lisp\\lisp routines\\metric lisp\\M flush floor duct pline hatch.LSP")
(C:mffplh)
)
)
)