์คํ ์บ๋ ๋ฆฌ์ต ๋ง๋ค๊ธฐ (CAD LISP ๋ง๋ค๊ธฐ)
์ค๋์ ์คํ ์บ๋ ๋ฆฌ์ต ๋ง๋ค๊ธฐ ๋ผ๋ ์ฃผ์ ๋ก ๊ธ์ ์ ์ด๋ณผ๊น ํฉ๋๋ค. ์ฌ์ค ์คํ ์บ๋ ๋ฆฌ์ต์ ๊ฒฝ์ฐ์๋ ๋ง๋ค๊ธฐ๋ ์ด๋ ค์ด๋ฐ ํด๋์ผ๋ฉด 30์ด ๊ฑธ๋ฆด ๊ฒ์ 10์ด๋ฉด ํ ์ ์๋, 5๋ถ ๊ฑธ๋ฆด ๊ฒ์ 30๋ฉด ํ ์ ์๋, ๊ธฐ๋ฅ์ ๋๋ค. ์๋ ๋ง๋ก ํ ๋ฒ๋ ์ํ ์ฌ๋์ ์์ด๋ ํ๋ฒ๋ง ํ ์ฌ๋์ ์๋ค! ๋ผ๊ณ ํ ์ ์๋ ์บ๋ ์์ ๋ํ ๊ธฐ๋ฅ์ด๊ณ , ํต์ฌ ๊ธฐ์ ์ค์ ํ๋์ด์ฃ . ๊ทธ๋ฌ๋ ์ด ๋ฆฌ์ต์ ๊ฒฝ์ฐ์๋ ์บ๋๋ค๋ฃจ๋ ๋ง์ ๋ถ๋ค์ด ์ด๋ป๊ฒ ๋ง๋ค์ด์ผ ํ ์ง ๊ณค๋ํ๋ค๋ณด๋ ์ธํฐ๋ท ์์ ๋ค๋ฅธ ๋ถ๋ค์ด ๋ง๋ค์ด๋์ ๋ฆฌ์ต ํ์ผ์ 500์, 1000์ ๋ฑ ์ ๋ ดํ ๊ฐ๊ฒฉ์ ์ฃผ๊ณ ์ฌ์ ์ฐ์๋ ๋ถ๋ค์ด ๋ง์ต๋๋ค. ๊ทธ๋ฌ๋ ๋ฌธ์ ๋ ๊ทธ ๋ถ๋ค ์ญ์ ํต์ฌ์ ์ผ๋ก ๋ณธ์ธ๋ค์ด ์ฌ์ฉํ๋ ๋จ์ถํค๋ค๋ง ๋ง๋ค์ด๋ด๋ค๋ณด๋ ์ฌ์ฉํ๋ ค๋ ๋ณธ์ธ์ด ํ์ํ ๋ช ๋ น ์ํ์ด ์์ผ๋ฉด ๊ทธ๋ฅ ์์์ ์ผ๋ก ํด๋ฒ๋ฆฌ๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค.
์ฌ์ค ์บ๋ ๋ฆฌ์ต์ ๋ง๋์๋ ค๊ณ ํ์๋ ๋ถ๋ค์ด ์บ๋ ๋ฆฌ์ตํ์ผ์ ๋ด๋ ์ด๊ฒ ๋ญ ์๋ฆฌ์ธ๊ฐ~ ๋ผ๊ณ ์๊ฐํ๋ ๊ฒฝ์ฐ๊ฐ ๋ง์ต๋๋ค. ๋น์ฐํฉ๋๋ค. ์๋๋ฉด CAD LISP ์ ์บ๋์ ๊ดํ ๋จพ์ด ์ง์์ ์๊ตฌํ์ง ์๊ธฐ ๋๋ฌธ์ ๋๋ค. ์ฝ๊ฒ ๋งํด์ ์ธํฐ๋ท ์์ ์บ๋ ๋ฆฌ์ต ํ์ผ์ ๋ง๋ค์ด์ ์ฌ๋ฆฌ๋ ๋ถ๋ค์ ์บ๋์ ๋ํด์ ๊ฐ๋จํ๊ฒ๋ง ์๊ณ ๊ณ์ ๋ถ๋ค์ด ์ฌ์ค ๋ง์ต๋๋ค. ์ด๊ฒ ๋ญ ์๋ฆฌ๋ ๋ผ๊ณ ํ๋ค๋ฉด ์ ์ ๊ฐ๋จํ ์คํ ์บ๋ ๋ฆฌ์ต ๋ง๋ค๊ธฐ ์์ ๋ฅผ ํตํด์ ์คํ ์บ๋ ๋ฆฌ์ต์ด ์ด๋ป๊ฒ ์ด๋ฃจ์ด์ ธ ์๋์ง ์์๋ณด๋ฉด์ ์ถํ์ ์ด๋ฌํ ๋ฐฉํฅ์ ์ค๋นํ์๋ ค๋ ๋ถ๋ค์๊ฒ ์ ๋ณด๋ฅผ ๋๋ฆฌ๋๋ก ํ๊ฒ ์ต๋๋ค.
(defun c:a1()
(setq ob (ssget ))
(setq po (getpoint "๊ธฐ์ค์ ์ง์ "))
(setq de 100)
(command "rotate" ob"" po de)
)
์ ์ด๊ฒ ๋ํ์ ์ธ ์บ๋ ๋ฆฌ์ต ๋ช ๋ น์ด ์์ ์ด๋ฃจ์ด์ง ๋ด์ฉ์ ๋๋ค. ์บ๋์ ๋ฅ์ํ์ ๋ถ๋ค์ ์ด๊ฑธ ๋ด๋ ๋ฌด์จ ๋ง์ด๋ ๋ผ๊ณ ํ์๋ ๊ฒฝ์ฐ๊ฐ ๋ํ์ ์ ๋๋ค. ๊ทธ๋ฅ ํด๋ฆญํด์ ์ฐ์ง ๋ญ ๋ผ๊ณ ํ๊ณ ๊ณ์ ๊ฐ์? ์ ์ ํ์ด์ ์จ๋๋ฆฌ๊ฒ ์ต๋๋ค.
(defun cLa1()
์์์ ํ๋ค๋ ์ ์ธ์ ๋๋ค. a1 ์ผ์ข ์ ๋ช ๋ น์ด๊ฐ ๋๋ ๊ฒ์ด์ฃ .
(setq ob(ssget ))
๊ฐ์ฒด๋ฅผ ์ ํํ๋ ๊ฒ์
๋๋ค. ssget๋ ๊ฐ์ฒด๋ฅผ ์ ํํ๋ค๋ ๋ช
๋ น์ด์
๋๋ค. ์ ํํ ๊ฐ์ฒด๋ฅผ "ob"๋ผ๋ ๋ณ์์ ์
๋ ฅํ๋ค๋ ๋ป์ด์ฃ . ์ฝ๊ฒ ๋งํด์ setq ๋ผ๋ ๋จ์ด๋ ์ฐ๋ฆฌ๊ฐ ์ด๋ฑํ๊ต ๋ ๋ฐฐ์ด ์ฐ์๋ก ์น๋ฉด = ์ด๋ผ๋ํํ์
๋๋ค.
(setq po (getpoint "๊ธฐ์ค์ ์ง์ "))
getpoint๋ ์ (point)๋ฅผ ๊ธฐ์ตํ๋ผ! ๋ผ๋ ๋ง์ ๋๋ค. ๊ธฐ์ตํ ์ ์ po ๋ผ๋ ๋ณ์์ ์ ๋ ฅํ๋ผ๋ ๋ช ๋ น์ด์ฃ .
(command "rotate" ob"" po de)
๋ณธ๊ฒฉ์ ์ธ ๋ช ๋ น์ด ์ค์ ๋๋ค. command๋ ์ดํ ๋ช ๋ น์ด๋ฅผ ์ ๋ ฅํ๊ธฐ ์ํด ํ์ํ ๋จ์ด์ ๋๋ค.
rotate ๋ผ๋ ๋ช ๋ น์ ์คํํ๊ณ ob ๋ฅผ ์ ๋ ฅํฉ๋๋ค.
"" ๋ ์ํฐ ์ ๊ฐ์ ํํ์ ๋๋ค.
po(๊ธฐ์ค์ ), de(๊ฐ๋) ๊ฐ ์ ๋ ฅ ์์ ์ ๋๋ค.
)
์ด ๋ช ๋ น์ด๋ค์ ์ ์์ ์ผ๋ก ์คํํ๋ผ๋ ๋ง์นจํ ์ ๊ณผ ๊ฐ์ ์๋ฏธ์ ๋๋ค.
์ ์ด๋ค๊ฐ์? ์ดํด๊ฐ ๋์ จ๋์? ์ฌ์ค ๋ฌด์จ ๋ง์ธ์ง ์ดํด๊ฐ ์๋๋ค, ์๊ฒ ๋๋ฐ ๊ทธ ์ด์ธ์๋ ์ด์ฉ๋ผ๊ณ ? ๋ผ๊ณ ์๊ฐํ์ค ์ ์์ต๋๋ค. ๊ทธ๋ฐ๋ฐ ์ ์ ์น๊ตฌ๋ค ๊ฒฝ์ฐ์๋ ์ด ๋ถ๋ถ๋ค์ ํ๋ฒ์ฏค ๋ณด์ จ์ ์ ์์ต๋๋ค. ๋ฐ๋ก....
์ปดํจํฐ ๊ณต๋ถ ์ค ํ๋ก๊ทธ๋๋ฐ์ ๋ค์ด๊ฐ๋ ๋ช ๋ น์ด๋ค์ด ๋ณตํฉ์ ์ผ๋ก ์์ฌ ์๋ ๊ฒ์ ๋๋ค.
Auto Cad Lisp ์ ๊ฒฝ์ฐ ์บ๋์ ๋ํด์ ์ ๋ชจ๋ฅด์๋ ๋ถ๋ค์ด ๋ง๋ค ์ ์๋ค๊ณ ํ๋ ์ด์ ๋ ๋ฐ๋ก ๊ทธ ๋ถ๋ค์ ์ฃผ ์ ๊ณต์ด ์บ๋๊ฐ ์๋๋ผ ํ๋ก๊ทธ๋๋ฐ์ด๊ธฐ ๋๋ฌธ์ด์ฃ . ๊ทธ๋์ ํ๋ก๊ทธ๋๋ฐ ์ชฝ์ ๋ฆฌ์ต๊ณผ ๊ด๋ จ๋ ์ธ์ด๋ค์ ๊ณต๋ถํด์ ์ตํ๋ค๋ฉด ์ด๋ฌํ ๋ฆฌ์ต์ ๋ง๋๋๋ฐ ๋์์ด ๋๋ ๊ฒ์ ๋๋ค. ์์ง๊น์ง ๊ตญ๋ด์์๋ ๋ฆฌ์ต๋ง์ ๋ง๋ค๊ธฐ ์ํ ํ๋ก๊ทธ๋๋ฐ ๊ณต๋ถ๋ค์ ์ด๋ฆฌ์ง ์๊ณ ์์ต๋๋ค. ํ์ง๋ง ์บ๋ ๋ฆฌ์ต์ ์ธ์ ๋ ์์๊ฐ ๋ง์ ํํธ์ ๋๋ค. ๊ตญ๋ด ์ ์กฐ์ ๊ณผ ๊ฑด์ค์ ์ ๋ง๋ก ํ๊ณ ์บ๋๊ฐ ๋ค์ด๊ฐ์ง ์๋ ํํธ๋ค์ด ์์ต๋๋ค. ๊ทธ๋ฌ๋ค๋ณด๋ ์์์ ํ๋ก๊ทธ๋๋จธ ๋ถ๋ค๊ณผ ์์์ ์ด๋ฌํ ์บ๋ ๋ฆฌ์ต์ ๋ง๋์ค ์ค ์๋ ๋ถ๋ค์ด ๋ ์ ์ ์ผ๋ก ์ ๋ ดํ ๊ฐ๊ฒฉ์ ๋ฆฌ์ต์ ํ๋งคํ๊ณ ์์ฃ . ๋ค๋ง ๊ทธ ๋ค์ด๋ก๋ ์์ด ์ด๋ง์ด๋ง ํ๋ค๋ ๊ฑด ์ด๋ฏธ ๋ชจ๋๊ฐ ์๊ณ ์์ ๊ฒ๋๋ค.
์ด ํฌ์คํ ์ ์์ฑํ๋ ๊ฒ์ KG ์์ดํฐ๋ฑ ํฌ ๋ผ๋ IT๋ถ์ผ ์ ๋ฌธ๊ธฐ์ ํ์์์ ์ ์ด๋๋ฆฝ๋๋ค. ํ ๊ธฐ๊ด๋ณด๋ค ์ค๋ฌด์ ์ธ ๊ณต๋ถ๋ฅผ ํตํด์ ํ์๋ค์ ์ค๋ ฅ ํฅ์์ ๋จ๊ธฐ๊ฐ์ ์ง์ค์ ์ผ๋ก ์ฌ๋ฆด ์ ์๊ณ , ์ค์ ๋ก ์บ๋์ ๋ช ๋ น ๊ตฌ๋ฌธ๋ค์ด ๋๋ถ๋ถ C์ธ์ด์ ์๋ฃ๊ตฌ์กฐ,C++์ ๊ธฐ์ค์ผ๋ก ๋ง๋ค์ด์ง๊ธฐ ๋๋ฌธ์ ๋ณธ์์์ ์ ์๋๋ LISP ํ์ผ ์ญ์ ์ ๋ฒ ์๋ ํธ์ด์ฃ . (๋จ ์ด ๊ฒฝ์ฐ์๋ ํ์ ๊ฐ์ธ์ ์ ์๋ฌผ๋ก ์ทจ๊ธ๋์ด ํจ๋ถ๋ก ๊ณต๊ฐ๊ฐ ๋ถ๊ฐ๋ฅํฉ๋๋ค.)
์บ๋ LISP ๋ง๋ค๊ธฐ? ์งง์ ์๊ฐ๋ง ํฌ์ํ๋ค๋ฉด ๋๊ตฌ๋ ๋ณธ์ธ์ด ์ํ๋ LISP ํ์ผ์ ๋ง๋ค ์ ์์ต๋๋ค. ์๋๋ฅผ ์ฐธ๊ณ ํ์๋ฉด ๋ณธ์ธ ์ง์ญ์ ๋ง๋ ๊ณต๋ถ๊ธฐ๊ด๊ณผ ๋ฐฉ๋ฒ์ ์๋ด ๋๋ฆฌ๊ฒ ์ต๋๋ค.
'DESIGN > ์ค๋ด๊ฑด์ถ์์ธ๊ณ' ์นดํ ๊ณ ๋ฆฌ์ ๋ค๋ฅธ ๊ธ
์ค๋ด๊ฑด์ถ ์๊ฒฉ์ฆ ํ์ ํฉ๊ฒฉ๋ฅ ๋ก ๋งํ๋ค (0) | 2016.11.11 |
---|---|
์บ๋ ์๊ฒฉ์ฆ ์ธ๊ฐ ? (0) | 2016.11.03 |
์ ์ฐ์์ฉ๊ฑด์ถ์ ๋๊ธฐ๋ฅ์ฌ ์ค๊ธฐ ๋๋น ๋จ์ถํค๋ถํฐ ์ธ์ฐ์ (0) | 2016.10.27 |
์ค๋ด๊ฑด์ถ๊ธฐ์ฌ ์๊ฒฉ์ฆ ์ ๋ฐ์ผํ๋? (0) | 2016.10.25 |
์ฐ์ ์ ๋ฐ๊ฒฌ ์ ์บ๋ฆญํฐ ์ง์ ์ด ๊ถ๊ธํ๋ค๋ฉด? (0) | 2016.10.25 |