요 리습 수정 가능하신 분 계실까요??

Question

Lv.0

등록일: 2016-09-222016-09-22T13:51:17+09:00 2016-09-22T13:51:17+09:00카테고리: AutoCAD & CADian

요 리습 수정 가능하신 분 계실까요??

안녕하세요, 다름이 아니고 제가 첨부에 올린 숫자 자동기입 리습을 사용중인데, 글자의 폭을 좀 줄일 수 있게끔 옵션을 추가하고 싶습니다…

혹시 리습 잘 아시는 분들이 계시면 글자 폭을 줄여서 나오게끔 수정을 부탁드려도 될른지요??

폭은 0.6~07정도로 줄이고 싶습니다

고수님들의 고견을 기다리겠습니다.. (__)

3 답변

[Deleted User] · Answer 1 · 2016-09-22T14:44:29+09:00

(defun c:NT ()
(setq s_num (getstring “n 시작할 번호입력 : “))
(setq ts (getreal “n Text size : “))
(setq cs (* ts 0.8)) ; 원의 크기는 문자 크기의 1.1배
   (setq tw (getreal “n Text width <0.6> : “))
   (if (not tw) (setq tw 0.6));기본 0.6 설정.
(if (= s_num “”) (setq s_num num) (setq num (itoa (1- (read s_num)))))
(while
      (setvar “osmode” 0)
      (setq txt_pt (getpoint “n Text insertion point: “))
       (command “.text” txt_pt ts “” (if (not num) (setq num “0”) (setq num (itoa (1+ (read num)))))””)
   (setq el (entlast))
    (setq ent (entget el)
   as41 (assoc 41 ent)
   )
    (if as41
      (entmod (subst (cons 41 tw)as41 ent))
      (entmod (append ent (list (cons 41 tw))))
      )
   (COMMAND “CHANGE” “L” “” “P” “C” “2” “”) ; 문자색상
       (setq os (getvar “osmode”))
       (setq ss (ssadd))
   (ssadd el ss)
       (setq k 0)
       (setq en (ssname ss k))
       (command “justifytext” en “” “mc”)
       (setq en (ssname ss k))
       (setq p1 (cdr (assoc 10 (entget en))))
       (setq p2 (cdr (assoc 11 (entget en))))
       (command “circle” p2 cs)
    (COMMAND “CHANGE” “L” “” “P” “C” “2” “”) ;원의 색상
      (setq k (+ k 1))
   (setvar “osmode” os)
   (princ)
)
)