고수님들 숫자 + – 한ㄴ 리습인데 소수점 첫째자리로 부탁드립니다

고수님들 숫자 + – 한ㄴ 리습인데 소수점 첫째자리로 부탁드립니다

현재 둘째자리로 숫자가 됩니다

000.0 으로 나오게 부탁드립니다 !!

파일은 올려놨습니다 !

(defun c:fg(/ qqj Q0@ jQQ #|l ?j& jL1 ?@# ?l0 &|$ l&O @l| %&%)
 (setq qqj(ssget))
 (setq Q0@(getreal”n>>> Plus Height :”))
 (setq jQQ 0)
 (while(ssname qqj jQQ)
  (setq #|l(ssname qqj jQQ))
  (setq ?j&(entget #|l))
  (setq ?@#(assoc 0 ?j&))
  (setq ?l0(cdr ?@#))
  (if(= ?l0″TEXT”)
   (progn
    (setq &|$(assoc 1 ?j&))
    (setq l&O(cdr &|$))
    (setq |J?j(atof l&O))
    (setq jL1(rtos(+ |J?j Q0@)2 2))
    (setq q%jj(strlen jL1))
    (cond ((= q%jj 1)(setq jL1(strcat jL1″.00″)))
     ((= q%jj 2)(setq jL1(strcat jL1″.00″)))
     ((= q%jj 3)(setq $&@j(substr jL1 2 1))
      (cond ((= $&@j”.”)(setq jL1(strcat jL1″0″)))
       ((/= $&@j”.”)(setq jL1(strcat jL1″.00″)))
      )
     )
     ((= q%jj 4)(setq $&@j(substr jL1 2 1))
      (setq @qQj(substr jL1 3 1))
      (cond ((= $&@j”.”)(setq #&lj 1))
       ((= @qQj”.”)(setq jL1(strcat jL1″0″)))
      )
     )
     ((= q%jj 5)(setq $&@j(substr jL1 3 1))
      (setq @qQj(substr jL1 4 1))
      (cond ((= $&@j”.”)(setq #&lj 1))
       ((= @qQj”.”)(setq jL1(strcat jL1″0″)))
      )
     )
     ((= q%jj 6)(setq $&@j(substr jL1 4 1))
      (setq @qQj(substr jL1 5 1))
      (cond ((= $&@j”.”)(setq #&lj 1))
       ((= @qQj”.”)(setq jL1(strcat jL1″0″)))
      )
     )
    )
    (setq @l|(cons(car &|$)jL1))
    (setq %&%(subst @l| &|$ ?j&))
    (entmod %&%)
   )
  )
  (setq jQQ(+ jQQ 1))
 )
 (princ)
)
(princ”n<<< 값 수정 하기     – TY.LSP >>>”)
(princ)