천단위 , 표시 :: 2017. 7. 27. 16:52
(defun pds_comma (str / com_fr int_no com_no com_no2 i)
(setq com_fr (substr str 1 1))
(if (or (= com_fr "+") (= com_fr "-"))
(setq str (substr str 2))
(setq com_fr nil)
)
(setq int_no (strlen (rtos (atoi str) 2 0)))
(setq com_no (fix (/ int_no 3)) com_no2 (rem int_no 3))
(cond
((= com_no2 0)(setq i 3 com_no (1- com_no)))
((= com_no2 1)(setq i 1))
((= com_no2 2)(setq i 2))
)
(if (> com_no 0)
(repeat com_no
(setq str (strcat (substr str 1 i) "," (substr str (1+ i))))
(setq i (+ i 4))
)
)
(if com_fr (setq str (strcat com_fr str)))
str
)
아키모아 일단밟아님( http://cafe.daum.net/archimore/ESJj/3214 )의 코드입니다.
내부함수이며 사용법은
pds_comma (문자열)
'AutoCAD > LISP' 카테고리의 다른 글
PDMODE (0) | 2019.01.17 |
---|---|
Osmode Value (0) | 2017.08.16 |
도면정리 LISP (0) | 2017.07.15 |
치수와 다중지시선 SCALE 같게 하는 LISP (0) | 2013.08.03 |