숫자를 전체적으로 드래그해서 + ,- 하는 리습입니다 소수점이 150.0 이되는 숫자는 이상하게 150. 이렇게 됩니다 도와주세요 ㅠ

다정수라님 바쁘신 와중에 답변 너무너무 감사드립니다

리습중에 DIMZIN 이 어느부분인지 못찾겠습니다 죄송합니다 ㅜㅜ

죄송하지만 어느부분인지 말씀좀 부탁드릴게요

(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 1))
    (setq q%jj(strlen jL1))
    (cond ((= q%jj 1)(setq jL1(strcat jL1″.”)))
     ((= q%jj 2)(setq jL1(strcat jL1″.”)))
     ((= q%jj 3)(setq $&@j(substr jL1 2 1))
      (cond ((= $&@j”.”)(setq jL1(strcat jL1″”)))
       ((/= $&@j”.”)(setq jL1(strcat jL1″.”)))
      )
     )
     ((= q%jj 4)(setq $&@j(substr jL1 2 0))
      (setq @qQj(substr jL1 3 1))
      (cond ((= $&@j”.”)(setq #&lj 1))
       ((= @qQj”.”)(setq jL1(strcat jL1″”)))
      )
     )
     ((= 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″”)))
      )
     )
     ((= 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″”)))
      )
     )
    )
    (setq @l|(cons(car &|$)jL1))
    (setq %&%(subst @l| &|$ ?j&))
    (entmod %&%)
   )
  )
  (setq jQQ(+ jQQ 1))
 )
 (princ)
)
(princ”n<<< 값 수정 하기     – TY.LSP >>>”)
(princ)

여기 복사본입니다

대박.. 다정수라님 너무너무 감사드립니다 덕분에 해결됐습니다 진짜 진짜 감사드립니다 !

오늘 좋은 하루 되세요 🙂