블로그 다니다가 얻은 리습인데
굉장히 마음에 들어서 사용하고 있습니다.
한가지 단점이 문자 크기를 조절 못한다는건데..
어디를 건드려야 할지 모르겠습니다.
도와주십시오..
(defun c:no(/)
(setvar “cmdecho” 1)
(setq nom (getint “n 시작번호 입력:”))
(repeat 1000
(setq pt1 (getpoint “n 입력 점 선택:”))
(setq count (strcat (itoa nom)))
(command “text”
pt1 ;문자의 시작점 지정 또는 [자리맞추기(J)/스타일(S)]:
25 ;문자높이 지정:
0 ;문자의 회전 각도 지정 <0.00000000>:
count ;입력하고자 하는 문자
)
(princ)
(setq nom (+ 1 nom))
)
)
공유
(defun c:no(/)
(setvar “cmdecho” 1)
(or #@texth(setq #@texth 25))
(setq #@texth
(cond
((getint (strcat “nSpecify of Extension distance <” (vl-princ-to-string #@texth) “>: “)))
(#@texth)
)
)
(setq nom (getint “n 시작번호 입력:”))
(repeat 1000
(setq pt1 (getpoint “n 입력 점 선택:”))
(setq count (strcat (itoa nom)))
(command “text”
pt1 ;문자의 시작점 지정 또는 [자리맞추기(J)/스타일(S)]:
#@texth ;문자높이 지정:
0 ;문자의 회전 각도 지정 <0.00000000>:
count ;입력하고자 하는 문자
)
(princ)
(setq nom (+ 1 nom))
)
)
정말 감사합니다!
제가 딱 찾고 있는 리습이 되었습니다!