화요일 밑으로 기준점을 잡아 숫자를 1씩
증가 시키고 싶은데 방법이 없을까요??
많은 관심 부탁드립니다.
(defun c:22()
(setq vdis 200)
(setq po (getpoint “n시작:”))
(setq p1 po)
(setq p2 (polar p1 0 3500))
(setq p3 (polar po 0 500) p4 (polar p3 0 500)
p5 (polar p4 0 500) p6 (polar p5 0 500)
p7 (polar p6 0 500) p8 (polar p7 0 500)
p9 (polar p8 0 500) )
(setq pt1 (polar p1 (+ (/ pi 2) pi) 125))
(setq pt1 (polar pt1 0 250))
(setq pt2 (polar pt1 0 500))
(setq pt3 (polar pt1 0 1000))
(setq pt4 (polar pt1 0 1500))
(setq pt5 (polar pt1 0 2000))
(setq pt6 (polar pt1 0 2500))
(setq pt7 (polar pt1 0 3000))
(command “line” p1 p2 “”)
(repeat (+ (length txt) 6)
(setq p1 (polar p1 (+ (/ pi 2) pi) vdis))
(setq p2 (polar p1 0 3500))
(command “line” p1 p2 “”)
)
(setq p2a (polar p2 (/ pi 2) (distance po p1)))
(setq p3a (polar p3 (+ (/ pi 2) pi) (distance po p1)))
(setq p4a (polar p4 (+ (/ pi 2) pi) (distance po p1)))
(setq p5a (polar p5 (+ (/ pi 2) pi) (distance po p1)))
(setq p6a (polar p6 (+ (/ pi 2) pi) (distance po p1)))
(setq p7a (polar p7 (+ (/ pi 2) pi) (distance po p1)))
(setq p8a (polar p8 (+ (/ pi 2) pi) (distance po p1)))
(setq p9a (polar p9 (+ (/ pi 2) pi) (distance po p1)))
(command “line” po p1 “”)
(command “line” p2a p2 “”)
(command “line” p3 p3a “”)
(command “line” p4 p4a “”)
(command “line” p5a p5 “”)
(command “line” p6a p6 “”)
(command “line” p7a p7 “”)
(command “line” p8a p8 “”)
(command “line” p9a p9 “”)
(command “text” “j” “mc” pt1 th 0 “일요일” “”)
(command “text” “j” “mc” pt2 th 0 “월요일” “”)
(command “text” “j” “mc” pt3 th 0 “화요일” “”)
(command “text” “j” “mc” pt4 th 0 “수요일” “”)
(command “text” “j” “mc” pt5 th 0 “목요일” “”)
(command “text” “j” “mc” pt6 th 0 “금요일” “”)
(command “text” “j” “mc” pt7 th 0 “토요일” “”)
)