입력문자 대문자 소문자 구분 리습

문자로 입력을 받는 경우 사용자가 대문자 소문자 입력 여부를 알 수 없습니다

 

따라서 대문자 소문자 입력시 대응 하는 리습을 작성합니다

 

 

 

(setq R(getstring "\n  <Rear> = R  <T/2 Point> = T none= Enter " ))

  (cond 

    ((= R "R" ) (setq Text3(strcat "REAR " Text1)))   

    ((= R "T" ) (setq Text3(strcat "T/2 point " Text1)))
    ((= R "r" ) (setq Text3(strcat "REAR " Text1)))   

    ((= R "t" ) (setq Text3(strcat "T/2 point " Text1)))
    (t  (setq Text3(strcat Text1)))

) ; end cond