AutoLISP

각종 규격표의 호칭별 규격치수를 나열하고 사용자가 선택한 호칭의 규격을 활용 적용하는 예제 입니다

(setq scm(getdist)) ; 호칭규격을 사용자가 선택 입력토록 합니다

(cond
((= scm 3)  (setq size '( 3.0 0.5 1.5 0.3 1.5 0.6))) ; size 에 해당 호칭의 규격치수들을 나열
((= scm 4)  (setq size '( 4.0 0.7 2.0 0.3 2.0 0.8)))
((= scm 5)  (setq size '( 5.0 0.8 2.5 0.5 2.5 0.9)))

(t (exit)) ; 사용자 입력값이 규격범위를 벗어나면  exit 종료

) ;cond   사용자가 입력한 호칭에 따라 size 의 data 가 달라집니다
(setq d1 (nth 0 size) ph (nth 1 size) b (nth 2 size) e (nth 3 size) m (nth 4 size) k (nth 5 size)

; data 값들을 활용할 변수로 저장합니다

사용자 임의 변수들 scm size d1 ph b e m k