1. GETPOINT
(GETPOINT (기준점) (PROMPT)) 의 형식이며 화면상에 점을 입력한다
이때 기준점이 있으면 RUBBER BAND 가 발생되며 (PROMPT)는 명령 라인에 출력되는 내용이다.
명령: (SETQ P1 (GETPOINT "\n기준점을 지정하시요:")) (Enter)
기준점을 지정하시오: (화면상의 점을 지정한다)
명령: (SETQ P2 (GETPOINT P1 "\n다른점을 지정하시요:")) (Enter)
다른점을 지정하시오: (화면상의 점을 지정한다)
명령: (COMMAND "LINE" P1 P2 "") (Enter)
이때 \n 은 줄바꿈(개행) 문자이다.
2. GETANGLE
(GETANGLE (기준점) (PROMPT)) 의 형식이며 각도를 입력받아서 RADIAN 각도로 출력한다.
명령: (SETQ ANGLE1 (GETANGLE "\n각도를 입력하세요:")) (Enter)
각도를 입력하세요: 180 (Enter)
3.14159
명령: (SETQ P1 '(10 10)) (Enter)
명령: (SETQ ANGLE2 (GETANGLE P1 "\n각도를 지정하시요:")) (Enter)
각도를 지정하시오: (화면상의 점 P2를 지정한다)
-> 점 P1과 P2가 이루는 각도를 RADIAN으로 출력한다.
3. GETDIST
(GETDIST (기준점) (PROMPT)) 의 형식이며 거리를 입력받아서 실수로 출력한다.
명령: (SETQ DST1 (GETDISTANCE "\n거리를 입력하세요:")) (Enter)
거리를 입력하세요: 100 (Enter)
100.0
명령: (SETQ P1 '(10 10)) (Enter)
명령: (SETQ DST2 (GETDISTANCE P1 "\n거리를 지정하시요:")) (Enter)
거리를 지정하시오: (화면상의 점 P2를 지정한다)
-> 점 P1과 P2가 이루는 길이를 측정하여 변수 DST2에 저장한다.
명령: !DST2 (Enter)
12.5
4. GETSTRING
(GETSTRING (문자) (PROMPT)) 의 형식이며 문자열을 입력받는다. 이때 (문자)를 지정하면 띄어쓰기를 허용한다.
명령: (SETQ NAME1 (GETSTRING "\n이름을 입력하세요:")) (Enter)
이름를 입력하세요: 홍길동 (Enter)
명령: !NAME1 (Enter)
"홍길동"
명령: (SETQ NAME2 (GETSTRING T "\n이름과 사번을 입력하세요:")) (Enter)
이름과 사번을 입력하세요: 홍길동˘1234-5678 (Enter)
명령: !NAME2 (Enter)
홍길동 1234-5678
5. GETKWORD 와 INITGET
GETKWORD 와 INITGET은 주로 함께 사용하며 사용자에게 문자(KEYWORD)를 입력받는다.
이때 INITGET 함수는 입력 가능한 문자를 제한 시킨다.
(예제 1)
(DEFUN C:TEST_WORD()
(initget 1 "L C")
(setq p1 '(10 10) p2 '(20 20))
(setq ans (getkword "\n명령어를 선택하시오:"))
(if (= ans "L") (command "line" p1 p2 ""))
(if (= ans "C") (command "circle" p1 p2))
)
(예제 2)
INITGET 함수에서 사용되는 옵션은 다음과 같다.
1 : nil 의 입력을 허용하지 않는다.
2 : 0 값의 입력을 허용하지 않는다.
4 : 음수값의 입력을 허용하지 않는다.
8 : limits를 체크하지 않는다.
32 : rubber band 선을 파선을 이용한다.
64 : getdist 함수에서 3차원 좌표의 zwhkvy를 무시한다.
명령: (initget (+ 1 2 4)) (Enter)
명령: (setq age (getint "나이를 입력하세요:")) (Enter)
나이를 입력하세요: (Enter)
입력을 인식할수 없습니다. 다시 시도하세요.
나이를 입력하세요: -25 (Enter)
양의 값이 필요합니다. 다시 입력하세요.
나이를 입력하세요: 25 (Enter)
명령: !age (Enter)
25
6. GETREAL
사용자로부터 실수값을 입력받는다.
명령: (SETQ NUM (GETREAL "\n반복회수를 입력 하시요:")) (Enter)
반복회수를 입력하세요: 20 (Enter)
명령: !NUM (Enter)
20.0
7. GETINT
사용자로부터 정수값을 입력받는다.
명령: (SETQ NUM (GETREAL "\n반복회수를 입력 하시요:")) (Enter)
반복회수를 입력하세요: 20.5 (Enter)
-32768 ~ 32767 사이의 정수가 필요합니다
반복회수를 입력하세요: 20 (Enter)
명령: !NUM (Enter)
20
7. DISTANCE
(DISTANCE (점1) (점2)) 의 형식이며 (점1)과 (점2) 사이의 거리를 측정하여 출력한다.
명령: (SETQ P1 '(10 10) P2 '(20 20)) (Enter)
명령: (SETQ DST (DISTANCE P1 P2)) (Enter)
명령: !DST (Enter)
14.1421
8. ANGLE
(ANGLE (점1) (점2)) 의 형식이며 (점1)과 (점2) 사이의 각도를 측정하여 RADIAN으로 출력한다.
명령: (SETQ P1 '(10 10) P2 '(20 20)) (Enter)
명령: (SETQ ANG (ANGLE P1 P2)) (Enter)
명령: !ANG (Enter)
0.78539
9. POLAR
(POLAR (기준점) (각도) (거리))의 형식이며 (기준점)에서 (각도) 방향으로 (거리) 만큼 위치한 점을 출력한다.
명령: (SETQ P1 '(10 10) P2 '(20 20)) (Enter)
명령: (SETQ P3 (POLAR P1 0 10)) (Enter)
명령: !P3 (Enter)
(20 10)
명령: (SETQ P4 (POLAR P2 pi 10)) (Enter)
명령: !P4 (Enter)
(10 20)
* 이제, 오토캐드 의 그늘에서 벗어나야만 합니다.
- 앞으로 AutoCAD를 CAD라고 부르지 맙시다.
- 오토캐드는 많은 캐드 중 하나의 제품에 불과할 뿐 입니다.
우리 대한민국의 IT 와 조선 등 여타 핵심 산업들과의 융합기술은
외산CAD가 아닌 dwg 기반의 유일한 국산CAD인 캐디안(CADian)이 추진하여야 진정한 우리의 기술이 될 것입니다.
CAD = CADian
CADian = CAD specialist !
첫댓글 오토캐드 의 대안 CAD, CADian!
잘 봤습니다~ :)