안녕하십니까 선배님들
아래 처음 올렸던 게시판은 url상 오류가 생긴거 같아 그림을 삭제하고 다시 올려보겠습니다.
제가 최초로 x y 축관련 한글의 줄/칸 만드는 방식을 progn , width, 등을 이용하여 레이어와 함께
표를 생성하는것을 만들었는데
아래와 같은 언어를 사용하여 표를 만들수 있습니다.
최초 바깥 경계선은 굵게, 1×1줄은 cyan색으로 나오게 하였는데
1×1칸은 제외한 나머지 x쪽 y쪽으로 텍스트로 1 2 3 4 5 6 이런식으로 나오게 표현하고싶은데
어떻게 수정하고 추가하여야 할까요?
(defun c:HWPTEST()
(setq Tsnap
(getvar “osmode”)
)
(setvar “osmode” 0)
(setq pt1
(getpoint “좌측 하단 점을 선택하세요!” )
)
(princ “좌측 하단 점 : “) (princ pt1)
(princ “n”)
(princ “우측 상단 점을 선택하세요!”)
(setq pt2
(getpoint pt1)
)
(princ “우측 상단 점 : “) (princ pt2)
(princ “n”)
(setq nt1
(getint “사각형을 몇 줄으로 나누겠습니까? 숫자를 입력하세요.”)
)
(setq num1
(getint “사각형을 몇 칸으로 나누겠습니까? 숫자를 입력하세요.”)
)
(princ “사각형 등분 수 : “) (princ nt1) (princ “줄”)(princ ” X “) (princ num1) (princ “칸”)
(princ “n”)
(princ)
(setq pt3
(list (car pt2)
(cadr pt1)
)
)
(setq pt4
(list (car pt1)
(cadr pt2)
)
)
(setq x_width (/ (/ (- (car pt2) (car pt1))
num1)
15)
)
(princ “x_width = “) (princ x_width)
(if ( < x_width 3)
(progn
(alert “x_width 3보다 작습니다”)
(exit)
)
(princ “x_witdh 3보다 큽니다”)
)
(command “layer” “s” “la2” “”)
(command “pline” pt1 “w” x_width x_width pt3 pt2 pt4 “c”)
(setq nt3
(list (car pt1)
(/ (- (cadr pt2) (cadr pt1)) nt1)
)
)
(setq xy_width (/ x_width 8))
(setq nt5 0)
(setq nt2 (- nt1 1))
(command “layer” “s” “la3” “”)
(repeat nt2
(setq nt5 (+ nt5 1))
(setq nt4
(list (car pt1)
(+ (* (cadr nt3) nt5) (cadr pt1))
)
)
(setq nt6
(list (car pt2)
(cadr nt4)
)
)
(if ( = nt5 nt2)
(progn
(command “layer” “s” “la4” “”)
(command “pline” nt4 “w” xy_width xy_width nt6 “c”)
)
(progn
(command “layer” “s” “la1” “”)
(command “line” nt4 nt6 “”)
)
)
)
(setq num3
(list
(/ (- (car pt2) (car pt1)) num1)
(cadr pt1)
)
)
(setq num5 0)
(setq num2 (- num1 1))
(repeat num2
(setq num5 (+ num5 1))
(setq num4
(list (+ (* (car num3) num5) (car pt1))
(cadr pt1)
)
)
(setq num6
(list (car num4)
(cadr pt2)
)
)
(if ( = num5 1)
(progn
(command “layer” “s” “la4” “”)
(command “pline” num4 “w” xy_width xy_width num6 “c”)
)
(progn
(command “layer” “s” “la1” “”)
(command “line” num4 num6 “”)
)
)
)
(princ)
(setvar “osmode” Tsnap)
)