0 Members and 1 Guest are viewing this topic.
(setq *str (cond ( (getstring (strcase (strcat "\nWhat is Stirrup Dia And repeatation? <" (setq *str (cond ( *str ) ( "T10@200" ))) ">: ")))) ( *str )))
(setq *str (cond (*str) ("T10@200")))(setq *str (if (= "" (setq tmp (strcase (getstring (strcat "\nWhat is Stirrup Dia And repeatation? <" *str ">: "))))) *str tmp) )
(setq *str nil)(setq *str (cond (*str) ("T10@200")))(setq *str (cond ((getstring (strcat "\nWhat is Stirrup Dia And repeatation? <" *str ">: ")))))
nil "T10@200" ""
Also I question the placement of strcase? what is your intent?
(setq *str (if (= "" (setq tmp (strcase (getstring (strcat "\nWhat is Stirrup Dia And repeatation? <" *str ">: "))))) *str tmp))