문제1. 원을 좀 부드럽게 할라면 어떤 코드를 고쳐야하죠?
;;cirline.lsp
(defun c:cirline()
(setq pt1 (getpoint “시작점 <<"))
(setq deg 0)
(repeat 360
(setq deg (1+ deg))
(setq rad (/ (* deg pi) 180))
(setq pt2 (polar pt1 rad 1))
(command “line” pt1 pt2 “”)
(setq pt1 pt2)
)
)
문제2. 원의 색상을0~9까지 반복해논 겁니다 .
홀수만 색상이 출력되도록할려면?
;;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))
)
)
문제3. 앞 입력포인트와 현입력포인트의 가상선보이기?
;; 3sam.lsp
(defun c:3sam()
(setq pt1 (getpoint “첫점 찍으세요”))
(setq pt2 (getpoint “두째점 찍으세요”))
(setq pt3 (getpoint “세째점 찍으세요”))
(command “line” pt1 pt2 pt3 “c” “” )
)