어느 마음 좋으신 님께서 만드신거 복사해서 …
아주 쬐끔 고쳐서 쓰고 있는데…
1. 원의 색깔(흰색)을 바꾸든..레이어(또는 0번 레이어)를 바꾸든 글짜와 달라야 되는데…
2. 혹시 원의 270도 사분점에 포인트가 찍히게 할수는 없나요?
숫자는 그냥 원의 중심에 놔두고…
1번을 하다하다 안되서 여기 올림니다….2번 까지는 도무지 모르겠고…
고쳐주심 감사하겠습니다..^.^..
(defun c:tn1(/ ts th1 txt pt)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os)
(princ))
;-<*error* end
(setq os (getvar “osmode”))
(setq ts (getvar “textsize”))
(if (not th) (setq th ts))
(setq th1 (getreal (strcat “n글자 높이는 <" (rtos th) ">:”)))
(setq txt (getint “n 시작할 번호:”))
(if th1 (setq th th1))
(setq pt (getpoint “n삽입점을 클릭하세염:”))
(while pt
(command “undo” “be”)
(setvar “osmode” 0)
(command “CIRCLE” pt (* th 1))
(command “text” “j” “m” pt th 0 txt “”)
(command “undo” “e”)
(setq txt (1+ txt))
(setvar “osmode” os)
(setq pt (getpoint “n삽입점을 클릭하세염:”))
);while
(setvar “osmode” os)
(princ)
);defun