홈/ 질문/Q 110303
다음
진행 중
Lv.0
등록일: 2018-09-04T09:33:56+09:00 카테고리:

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


 안녕하세요 고수님들 도움좀 부탁드리겠습니다

 같이 올린 리습은 숫자만 드래그해서 원하는 값을 + ,- 있는 리습 입니다

 하지만 값이  소수점 뒤  .0 되는 숫자는  150.  으로 나타납니다 ㅠㅠ

 150.4 이렇게 되는부분은 이상이 없는데 소수점 첫째가 150.0 되야 하는데 150. 으로 나타납니다

 고수님들 바쁘시겠지만 도움 부탁드립니다 ㅠㅠ

공유

    관련 있는 질문들

    6 답변

    1. aalan
    2. Lv.0

      정말 사랑합니다…. 언제나 좋은일만 가득하시길 강하게 빕니다!!!!!!!!!

      • 0
    3. Lv.0

      다소 늦은감이 있지만… 질문자분이 첨부한 리습을 보니 변수 사용도 좀 거시기 하고… 뭔가 좀… 아무튼… 2014 사용하시는 VL 함수 적용해도 무방할것 같아서, 간단하게 만들어 봤습니다. 숫자로 변환할수 없는 문자는 반영되지 않게 되어있으며, 위에 언급한 DIMZIN 시스템 변수는 프로그램 내에서 자동적용됩니다.
      뭐… 한번 훑어 보세요.

      • 0

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

      오늘 좋은 하루 되세요 🙂

      • 0
    5. Lv.0

      에고… 제가 설명이 부족했군요. 리습이 아니라, 캐드 명령줄에 dimzin 치시면 아마도 그 값이 8로 설정되어 있을겁니다. 그 값을 다른값으로 바꾸신 후에 해당 리습을 구동하시면 됩니다. dimzin 에 대한 자세한 사항은 autocad 도움말에서 검색해 보시면 확인하실수 있습니다.

      • 0

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

      리습중에 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)

      여기 복사본입니다

      • 0
    7. Lv.0
      DIMZIN 값이 4 또는 12일때 나타나는 현상으로, 이는 RTOS 함수에 영향을 줍니다.
      DIMZIN 값을 4나 12가 아닌 다른 값으로 지정하십시오.
      아… 죄송… 후행이네… 그럼 8이겠네요. DIMZIN 값을 아무튼 4, 8, 12 가 아닌값으로 지정하세요.
      • 0