규격품 리습
호칭규격을 입력하면 해당 규격들을 변수에 배당
캐돌이
2022. 8. 16. 15:00
(setq zn (getint "\n 호칭 규격 정수 입력 ")) ; 사용자 호칭규격 정수 입력
(cond
((= zn 10) (setq size '(25.4 34.0 1.2))) ; 입력 10 인경우 size
((= zn 15) (setq size '(38.1 49.0 1.2)))
((= zn 20) (setq size '(50.8 61.0 1.5)))
((= zn 25) (setq size '(63.5 84.0 2.0)))
((= zn 30) (setq size '(76.3 89.0 2.0))) ; 입력 30 인경우 size
(t (exit))
) ;cond;
(setq
dd (nth 0 size) ; size list 중 첫째
rr (nth 1 size)
tt (nth 2 size) ; size list 중 세번째
) ; setq