AutoLISP

캐드 명령창 출력문에 따옴표를 나오게하는 방법입니다

(prompt "일반 출력문 입니다") 

출력 결과

일반 출력문 입니다

(prompt "따움표 \"출력문\" 입니다")

출력 결과

따옴표 "출력문" 입니다

(prompt "길이가 1/4\" 입니다")

출력 결과

길이가 1/4" 입니다

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

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

(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