오토 캐드 2004버전을 쓰고있는데요
텍스트 넘버링을 a b c d 순서로 하고싶습니다.
제가 지금 처음으로 리습을 공부하는 단계인데요 .
어려워서 문의 드립니다.
밑의 구문은 숫자로 넘버링 하는건데 이해가 잘 안대서 다시 문의 드립니다.
(defun c:xxx ()
(GRAPHSCR)
(if (SETQ od (ssget ‘((0 . “text”))) )
(SETQ NUM (SSLENGTH od)
INDEX 0
bac 1)
)
(REPEAT NUM
(SETQ ENTG (ENTGET (SSNAME od INDEX)))
(SETQ INDEX (1+ INDEX))
(SETQ AS1 (ASSOC 1 ENTG))
(SETQ OJ3 (ITOA BAC))
(setq old (cons 1 OJ3))
(setq sb (subst old AS1 ENTG))
(entmod sb)
(SETQ BAC (+ 1 BAC))
)
)
공유