문제1번: 세점을 찍어 라인을 그렸는데 폐합된 삼각형을 그릴라면 어떻게 하죠? 어떤분이 “c”만 집어넣으면 된다는데 그게 어딘지즘??
;; 3sam.lsp
(defun c:3sam()
(setq pt1 (getpoint “첫점 찍으세요”))
(setq pt2 (getpoint “두째점 찍으세요”))
(setq pt3 (getpoint “세째점 찍으세요”))
(command “line” pt1 pt2 pt3 “” )
)
문제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))
)
)
문제4.밑에 30개의 원을 그리는데 3개의 선을 반복하는데 “3” “0” “1”
“2” 는 3개의 선을 반복한다는 것인가여? 자세한 설명즘??(1+ cl_num))이거의 의미??
;;circle4.lsp
(defun c:circle4()
(setq cl_num 0)
(setq half 1)
(repeat 30
(setq mod_num (rem cl_num 4))
(cond
( (= mod_num 0)
(command “cecolor” “0” “”)
)
( (= mod_num 1)
(command “cecolor” “1” “”)
)
( (= mod_num 2)
(command “cecolor” “2” “”)
)
( (= mod_num 3)
(command “cecolor” “3” “”)
)
)
(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 “”)
)
문제6.원을 좀더 부드럽게 할라면 어떤 코드를 붙혀야하는지?
;;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)
)
)
문제6까지 읽어주신분들 감사합니다. 제가 내공이 맣이 부족해 별걸 다 물어봤는데 중요한것이니 제발 성의 있는 답변 부탁드립니다 이왕이면 번거럽더라도 제가 써놓은 프로그램 복사해 수정해 설명 까지 써주신다면 ㅜ