||||1.
넘버링.lsp

nc.lsp

을 가지고 있는데 넘버링은 글짜크기 수정을 어떻게 한는지

nc 리습은 사용방법을 모르겠어요 고수님의 친절한 설명 부탁합니다.



2. 포인트로 표시된 원을 오스냅으로 클릭이 안돼는데 방법있으면 알려주세요

넘버링.lsp

(defun c:nt ()
  (setq s_num (getstring "\nbeginning number : "))
  (if (= s_num "") (setq s_num num) (setq num (itoa (1- (read s_num)))))
  (while (setq txt_pt (getpoint "\ntext insertion point: "))
    (command "._text" txt_pt "" "" (if (not num) (setq num "0") (setq num (itoa (1+ (read num)))))""))
)

넘버링



nc.lsp

;====================================================================================
;도면번호 1씩 증가시키기 (증가범위 설정시 범위만큼 증가함)
;====================================================================================
; Written by Peter Yi - Visit: www.cadtown.com
;
(defun c:NC(/ en1 etype lst1 str1 n1 s1 s2 n k c1)
  (while (/= (setq en1 (entsel "\nSelect Text/MText:")) nil)
    (setq en1 (car en1)
          etype (cdr (assoc 0 (setq lst1 (entget en1))))
    )
    (if (or (= etype "TEXT") (= etype "MTEXT"))
      (progn
        (setq str1 (cdr (assoc 1 lst1)))
        (setq n (strlen str1)
              k 0
        )
        (while (and (> n 0)(= k 0))
          (setq c1 (substr str1 n 1))
          (if (or (<= (ascii c1) 48) (> (ascii c1) 57))
            (setq k n)
          )
          (setq n (- n 1))
        )
        (if (/= k n)
          (progn
            (setq s1 (itoa (setq n1 (atoi (substr str1 (+ k 1))))))
            (setq s2 (itoa (+ n1 1)))
            (setq str2 (vl-string-subst s2 s1 str1))
            (setq lst1 (subst (cons 1 str2) (assoc 1 lst1) lst1))
            (entmod lst1)
          )
        )
      )
    )
  )
  (princ)
)