캐드 분류
소수점자리 정리 리습입니다. 수정부탁드려요.
컨텐츠 정보
- 183 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
소수점자리 정리하는 리습입니다.
문제는 천단위표시(,)가 있는 숫자는 천단위 이후의 숫자를 인식을 못하네요.
예) 1,234.56 -> 1.00 으로 소수점 정리가 됩니다.
도와주세요. ^^
(defun c:dd (/ ss te i na lis typ text hi te1 te2 new newlis)
(setvar "dimzin" 1)
(princ "n>>> 텍스트 선택 하세요…")
(setvar "dimzin" 1)
(princ "n>>> 텍스트 선택 하세요…")
(setq ss (ssget))
(setq te (getint "n>>> 소숫점자리 설정값 입력 : "))
(setq i 0)
(while (ssname ss i)
(setq na (ssname ss i))
(setq lis (entget na))
(setq typ (assoc 0 lis))
(setq text (cdr typ))
(if (= text "TEXT")
(progn
(setq hi (assoc 1 lis))
(setq te1 (cdr hi))
(setq te2 (rtos (atof te1) 2 te))
(setq new (cons (car hi) te2))
(setq newlis (subst new hi lis))
(entmod newlis)
) ;progn
) ;if
(setq i (+ i 1))
) ;while
(princ)
) ;defun
관련자료
댓글 4