숫자를 전체적으로 드래그해서 + ,- 하는 리습입니다 소수점이 150.0 이되는 숫자는 이상하게 150. 이렇게 됩니다 도와주세요 ㅠ
컨텐츠 정보
- 348 조회
- 6 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요 고수님들 도움좀 부탁드리겠습니다
같이 올린 리습은 숫자만 드래그해서 원하는 값을 + ,- 있는 리습 입니다
하지만 값이 소수점 뒤 .0 되는 숫자는 150. 으로 나타납니다 ㅠㅠ
150.4 이렇게 되는부분은 이상이 없는데 소수점 첫째가 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)
여기 복사본입니다