캐드 분류
숫자 증가 리습입니다. 숫자 크기를 조정하고 싶은데.. 한번만 봐주십시오.
컨텐츠 정보
- 1,056 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
블로그 다니다가 얻은 리습인데
굉장히 마음에 들어서 사용하고 있습니다.
한가지 단점이 문자 크기를 조절 못한다는건데..
어디를 건드려야 할지 모르겠습니다.
도와주십시오..
(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))
)
)
관련자료
댓글 2
/ 1 페이지
우기로기님의 댓글
(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)) ) )
