여러날 을 공부하다가 비로소 제 처녀작 을 만들어 봤습니다.
평면탭 을 그리는 리습인대요, 정석대루 한건지…엉뚱한 편법으로 만들어진건지 는 잘 모르지만 암튼 작동은 잘 되거든요.
일단 소스를 보세요.
(defun c:tap1()
(setq p2 (getreal “몇미리 탭인대요?
(setq p1 (getpoint “중심을 입력하시오 :”))
(setq p3 (/ p2 2))
(setq p4 (* 4 (/ p2 10)))
(setq an (+ pi 1.314))
(setq bb (polar p1 an p3))
(command “arc” “c” p1 bb “a” “300”)
(command “circle” p1 p4 )
(princ))
이 중에 변수 an 부분을 많이 실험해서 각도를 잡았는데
방법이 맞는건지 그리고 중심점에서 정 동,서,북 방향은 설정하겠는데요 정남 쪽은 못하겠드라구요 다른거 만들때 응용 하려면
알아야 할텐데요…
숫자 연산자를 여러가지로 해 봤는데도 정남쪽은 힘드네요.
제게 도움이 될수있는 따끔한 비평과 위의 의문점을 고수님들께
부탁 드립니다.