입력할 규격표를 명령창에 보여줍니다
그다음 사용자가 입력을 하면 캐드화면(그래픽창)으로 변경합니다
(명령창과 그래픽창의 전환은 캐드에서 F2 키입니다)
직경 입력 창 전환 리습 예제
(prompt "\nSPEC 10 11 12 13 14 15 16 17 18 19 20 21 22 24 25 26 28 29 30") ; 규격표 보여주기
(prompt "\nSPEC 32 34 35 36 38 40 42 45 48 50 52 55 56 58 60 62 63 65 68 70")
(prompt "\nSPEC 72 75 78 80 82 85 88 90 95 100 105 110 115 120 125")
(textscr) ; 명령창 보이기
(if (null dd11)(setq dd11 10))
(setq dd1(getdist (strcat "\n Input Diameter of Shaft or Enter key =<" (rtos dd11 2 0) ">: "))) ; 직경 입력 받기
(graphscr) ; 그래픽창 보이기
'규격품 리습' 카테고리의 다른 글
| 호칭규격을 입력하면 해당 규격들을 변수에 배당 (0) | 2022.08.16 |
|---|---|
| 선택한 호칭의 규격치수 데이터 적용하기 (0) | 2022.08.13 |