문제2.x축방향으로 이동하면서 원을 그릴라면 어떻게하죠? 어디에다 어떻게 해야하는지 자세히즘???
;;circle2.lsp
(defun c:circle2()
(setq cen_pt (getpoint “중심점 클릭 << "))
(setq init_half (getreal “초기 반지름 입력 : “))
(setq inc (getreal “증가치 입력 : “))
(setq cnt (getint ” 원 갯수 입력 : “))
(setq half init_half)
(repeat cnt
(command “circle” cen_pt half)
(setq half (+ half inc))
)
)
문제3.홀수 또는 짝수의 색만 출룍되도록 할려면 어떻게 어디를 고쳐야하는지 자세힘즘??
;;circle3.lsp
(defun c:circle3()
(setq cl_num 0)
(setq half 1)
(repeat 30
(if (> cl_num 9)
(setq cl_num 0)
)
(command “cecolor” (itoa cl_num) “”)
(command “circle” “0,0” half)
(setq half (+ half 0.1))
(setq cl_num (1+ cl_num))
)
)
문제5.이것즘 고쳐주세요 안되요 ㅜ
;;angdist.lsp
(defun c:angdist()
(setq pt1 (getpoint “첫점 <<"))
(setq pt2 (getpoint pt1 “둘째점 <<"))
(setq dist (distance pt1 pt2))
(setq rad (angle pt1 pt2))
(setq deg (/ (* rad 180.0) pi))
(print “거리 ==>”)
(princ dist)
(print “각도 ==>”)
(princ deg)
(princ)
(command “line” pt1 pt2 “”)
(command “text” pt2 “1” “0” dist “”)
(command “text” pt2 “1” “0” deg “”)
)