||||; 내용중에 다음부분이 잘못되어 있읍니다.
; 변수로 T 는 사용이 안됍니다. 14부터인가?...
; 갈아끼우고 실행해 보세요.
; dimsion Text Conversion Sub-Program

(defun txtcon(txt / n no n1 n2 txt stt)
   (setq tt (rtos txt 2 0))
   (setq n (strlen tt))
   (if (> n 3)
      (progn
         (setq n1 (rem n 3))
         (setq n2 (/ (- n n1) 3))
         (setq no 1)
         (setq txts "")
         (repeat (1+ n2)
            (if (< no (1+ n2))
               (setq txxx(strcat "." (substr tt (- (1+ n) (* 3 no)) 3)))
               (setq txxx(substr tt 1 n1))
            )
            (setq txts (strcat txxx txts))
            (setq no (1+ no))
         )
         (setq txt txts)
      )
      (setq txt tt)
   )
)

; Bubble Inserting Sub-Program


이 게시물을...