캐드 분류
숫자를 전체적으로 드래그해서 + ,- 하는 리습입니다 소수점이 150.0 이되는 숫자는 이상하게 150. 이렇게 됩니다 도와주세요 ㅠ
컨텐츠 정보
- 283 조회
- 6 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요 고수님들 도움좀 부탁드리겠습니다
같이 올린 리습은 숫자만 드래그해서 원하는 값을 + ,- 있는 리습 입니다
하지만 값이 소수점 뒤 .0 되는 숫자는 150. 으로 나타납니다 ㅠㅠ
150.4 이렇게 되는부분은 이상이 없는데 소수점 첫째가 150.0 되야 하는데 150. 으로 나타납니다
고수님들 바쁘시겠지만 도움 부탁드립니다 ㅠㅠ
관련자료
댓글 6
/ 1 페이지
르샤또뒤부아님의 댓글
다정수라님 바쁘신 와중에 답변 너무너무 감사드립니다
리습중에 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)
여기 복사본입니다
