리습 수정부탁드립니다.<br>리습 수정부탁드립니다

전에 있던 직원한테 받아서 사용하던 리습인데.. 회사 이직하면서 가져와 사용하려고 하였으나…

실행이 되질 않습니다..

리습에 까막눈이라서….무엇이 잘못된건지 알길이 없기에…도움을 청해봅니다.

부탁드립니다..

아래 리습은 제가 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)
)
=============================