아래 리습은 제가 isometric 배관도에서 용접포인트 번호넣을때 유용하게 사용하던 리습인데
앞으로는 개정할때마다 도형을 바꾸어서 넣어야 되는데, 난감하네요~~
원대신에 3각형,4각형,6각형으로 바꿀수 없는지 부탁드립니다….
circle 대신 polygon 으로 바꾸어서 해보다 결국 포기하구 요청드립니다
================================
;원문자 쓰기
(DEFUN C:txp (/ 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 g (car b))
(setq h (cadr b))
(setq f (list (- g (/ d 2 )) (- h (/ d 2 ))))
(COMMAND “CIRCLE” b e);<-- 원의 크기 변경하세요
(setq b (getpoint “n Input center.: “))
)
; (COMMAND “TEXT” “S” “ROMANS” “” “”)
(SETVAR “SNAPMODE” 0)
)
(princ)
)
=============================