도면에 원안에 숫자를 넣어서 번호를 매겨야 하는데.. 제가 아직 초보라..
관련 리습들을 가지고 아래처럼 짜맞춰서 만들었는데요…
첫번째 숫자만 원이 안그려 집니다..ㅜㅜ;
아무리 고민을 해봐도 뭐가 잘못됐는지 모르겠어요..
가르쳐 주심 감사하겠습니다..
(DEFUN C:nn (/ e d style-name font-name i ht text b txt c)
(setvar “cmdecho” 0)
(setq e (/ (getvar “dimscale”) 0.21))
(setq d (* (/ (getvar “dimscale”) 15) 6))
(setq i 0)
(setq b ‘(0,0))
(setq style-name (getstring “nStyle name.<돋움>: “)
font-name (getstring “nFotn name .<돋움>: “)
i (getint “nStart number.<0>: “)
ht (getreal “nText height.<250>: “)
text (getstring “nText.<>: “)
)
(if (= style-name “”)(setq style-name “돋움”))
(if (= font-name “”) (setq font-name “돋움”))
(if (= i nil)(setq i 0))
(if (= ht nil)(setq ht 250))
(if (= text “”)(setq text “”))
(SETVAR “OSMODE” 37) ; End,Cen,Int로 세팅됨.
(command “style” style-name font-name “0” “0.8” “0” “n” “n” “n”)
(setq b (getpoint “n Input center :”))
(while (/= b NIL)
(progn
(setq i (itoa i))
(setq txt (strcat text “” i))
(command “text” “m” b ht 0 txt)
(setq i (atoi i) i (+ i 1))
(setq b (getpoint “n Input center.: “))
(setq g (car b))
(setq h (cadr b))
(setq f (list (- g (/ d 2 )) (- h (/ d 2 ))))
(COMMAND CANCEL “CIRCLE” b e)
(command “text” “s” “돋움” f d 0 c)
(SETQ K (/ D 2))
)
; (COMMAND “TEXT” “S” “ROMANS” “” “”)
(SETVAR “SNAPMODE” 0)
)
)
(princ)
)