(defun c:k0()
(command “style” “굴림” “굴림체” “” “” “” “” “”)
(setq B1 (getpoint”n 번호위치 Pick Point.. :”))
(setq B2 (getint “n 시작할수.. :”)
b3 (xpt b1 270 2.5))
(setq po1 (xpt b3 0 6.0)
po2 (xpt po1 90 5)
po3 (xpt po2 180 12)
po4 (xpt po3 270 5.0))
(while B1
(command “pline” po1 “w” “0.0” “” po2 po3 po4 “c”)
(command “text” “J” “MC” B1 3 “” B2)
(setq B2 (1+ B2))
(setq B1 (getpoint”n 번호위치 Pick Point.. :”))
)
(princ)
)
사각박스안에 번호넣을려고 만들어봤는데
숫자는 반복이대는데 박스는 한번뿐이 안대네욤
어떻게해야할지 난감하네요 리습을 공부한지 얼마대질안아서..
ㅜㅠ 부탁좀드립니다