홈/ 질문/Q 102110
다음
진행 중
캐드류
Lv.0
등록일: 2014-09-05T10:49:56+09:00 카테고리:

선길이 리습 무조건 올림 수정

안녕하세요

선길이 리습을 다운받아 아주 유용하게 사용 중입니다.
그런데 제가 하는 일이 0.5단위로 떨어지게 정리해야 하는 일이라 이렇게 고수님들께 부탁을 드리려고
합니다.
이 선길이 측정 리습에 무조건 올림을 추가 하고 싶습니다.
0.1~0.5 는 0.5로
0.6~0.9는 1.0으로
표현하고 싶습니다.
단, 0.0 이나 1.0등 소수점 자리가 0으로 떨어진 경우는 기존값 그대로 0.0, 1.0, 2.0으로 나타내어
반올림을 적용하면 안됩니다.
조금 난해 한것 같은데요
혹시 가능 할까요?
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.18
      (defun c:Lk (/ ss sslist i index linelist linenumlist ent old10 old11 dist lnum count temp total total1 subtotal txt pt)
        (vl-load-com)                                                                                            ;—->total1 추가함
        (princ “n Eltity Length Sum”)
        (setvar “cmdecho” 0)
        (setq ss (ssget (list (cons 0 “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”))))
        (setq zzz (sslength ss))
        (if ss
          (progn
            (setq index 0)
            (setq linelist nil)
            (setq linenumlist nil)
            (repeat (sslength ss)
              (setq ent (ssname ss index))
              (command “lengthen” ent “”)
              (setq dist (GETVAR “PERIMETER”))
              (if (apply ‘or (mapcar ‘(lambda (x) (equal dist x 1)) linelist))
                (progn
                  (setq temp 0)
                  (setq lnum nil)
                  (foreach x linelist
                    (if (equal dist x 1)
                      (setq lnum temp)
                    )
                    (setq temp (1+ temp))
                  )
                  (setq count 0)
                  (setq temp nil)
                  (foreach x linenumlist
                    (if (= count lnum)
                      (setq temp (append temp (list (+ x 1))))
                      (setq temp (append temp (list x)))
                    )
                    (setq count (1+ count))
                  )
                  (setq linenumlist temp)
                )
                (progn
                  (setq linelist (append linelist (list dist)))
                  (setq linenumlist (append linenumlist (list 1)))
                )
              )
              (setq index (1+ index))
            )
            (setq txt “”)
            (setq count 0)
            (setq total 0)
            (setq subtotal 0)
            (repeat (length linelist)
              (if (= count 0)
                (if (> (nth count linenumlist) 1)
                  ;;;;(setq txt (strcat “nL = ” (rtos (/ (nth count linelist) 1.0) 2 1) “*” (rtos (nth count linenumlist) 2 0) “개”))
                  ;;;;(setq txt  (strcat “nL = ” (rtos (/ (nth count linelist) 1.0) 2 1)))
                  (setq txt (strcat “nL = ” (rtos (/ (nth count linelist) 1000.0) 2 1) “*” (rtos (nth count linenumlist) 2 0) “개”))
                  (setq txt  (strcat “nL = ” (rtos (/ (nth count linelist) 1000.0) 2 1)))
                )
                (if (> (nth count linenumlist) 1)
                  ;;;;(setq txt (strcat txt ” + ” (rtos (/ (nth count linelist) 1.0) 2 1) “*” (rtos (nth count linenumlist) 2 0) “개”))
                  ;;;;(setq txt (strcat txt ” + ” (rtos (/ (nth count linelist) 1.0) 2 1)))
                  (setq txt (strcat txt ” + ” (rtos (/ (nth count linelist) 1000.0) 2 1) “*” (rtos (nth count linenumlist) 2 0) “개”))
                  (setq txt (strcat txt ” + ” (rtos (/ (nth count linelist) 1000.0) 2 1)))
                )
              )
              (setq subtotal (* (/ (nth count linelist) 1) (nth count linenumlist)))
              (setq total (+ subtotal total))
              (setq total1 (/ total 1000));————->추가함
              (setq count (1+ count))
            )
            ;;;;(setq txt (strcat txt ” = ” (rtos total 2 1) “m”))
            (IF (= (/ TOTAL1 TOTAL1) (/ TOTAL1(FIX TOTAL1)))
                (SETQ TOTAL1 TOTAL1)
                (IF (= (- TOTAL1 0.5)(FIX TOTAL1))
                   (SETQ TOTAL1(+ (FIX TOTAL1) 0.5))
                   (IF (= (FIX(+ TOTAL1 0.5)) (FIX TOTAL1))
                      (SETQ TOTAL1(+ (FIX TOTAL1) 0.5))
                      (SETQ TOTAL1(FIX (+ TOTAL1 0.5)))
                     )
                   )
                )
            (setq txt (strcat txt ” = ” (rtos total1 2 1) “m”));——->total에서 total1 변경함
            (princ txt)
      (if (not (setq tth (getreal (strcat “n현재 TextSize : <” (rtos(getvar “textsize”) 2 1) “> 입니다. 원하는 Text 크기를 입력하세요 : “))))
          (setq tth (getvar “textsize”))
          (setvar “textsize” tth) 
        )
            (setq pt (getpoint “n 텍스트 삽입점 : “))
            (if pt (command “text” pt “” “” txt))
         
          )
        )
        (princ)
      )
      • 0
    3. Lv.0

      1 초초보자

      헠헠 유어 지니어스~~! 감사합니다.(_ _)
      추석연휴 이후로 정신이 없어서 너무 늦게 확인했네요
      늦었지만 정말 감사드립니다.
      • 0