이거 리습을 소수점 2자리까지만 하게 할수있나요 …
여기 찾아보니 있는데 리습초보자라. 먼 소린지 하나두 모르겠어여 올릴태니 한번만 봐주심 감사…
;****************************************
;* ADDTEXT
;* ADD to TEXT
;* By Suk-Jong Yi
;* 99/6/8
;****************************************
(defun C:addt(
/ ans ss1 num index cnum entl ass ass1 newtext co entl1
)
(defun SETERR(s) ;내장에러루틴 정의
(if (/= s “Function cancelled”)
(princ (strcat “nError: ” s))
); of If
(setq *error* oer seterr nil)
(princ)
); of SETERR
; (setq oer *error* *error* seterr) ;내장에러루틴 가동
(initget “All Select”)
(setq ans (getkword “nAll/
(setq num (sslength ss1)) ;선택된 text갯수 출력
(princ num)
(princ ” found”)
(setq addval (getreal “nEnter Add value: “)) ;더해질 값 지정
(setq index 0)
(setq cnum 0)
(repeat num ;text갯수만큼 반복
(setq entl (entget (ssname ss1 index)))
(setq index (1+ index))
(setq ass (assoc 0 entl))
(if (or (= “TEXT” (cdr ass)) (= “MTEXT” (cdr ass)))
(progn
(setq ass1 (assoc 1 entl)) ;text내용
(if (is-num (cdr ass1))
(progn
(setq newtext (rtos (+ addval (atof (cdr ass1))) 2 3))
(setq co (cons (car ass1) newtext))
(setq entl1 (subst co ass1 entl))
(entmod entl1) ;새로운 크기로 업데이트
(setq cnum (1+ cnum))
);progn
(xx=format(DOUBLE, “0.00”))
);if
(princ)
) ;of progn
) ;of if
) ;of repeat
(terpri)
(princ cnum)
(princ ” Modified”)
; (setq *error* oer seterr nil)
(princ)
) ;of defun
;************************************
; Function : IS-NUM
; IS NUMber ?
; By Suk-Jong Yi
; 1996/2/23
;************************************
; 문자열이 숫자인가?를 판단해준다.
;************************************
(defun IS-NUM(str
/ str strl count ch )
(setq strl (strlen str))
(setq count 1)
(while (or (and (>= (setq ch (ascii (substr str count 1))) 48)
(<= ch 57))
(= ch 44)
(= ch 46)
(and (= count 1) (= ch 43))
(and (= count 1) (= ch 45))
)
(setq count (+ count 1))
) ;of while
(if (= count (+ strl 1)) strl NIL)
) ;of defun
어느걸 고쳐야 되나요 알려주세요…