홈/ 질문/Q 109708
다음
진행 중
태림이
Lv.0
등록일: 2018-04-13T15:37:50+09:00 카테고리:

중량 산출 리습, 수정 부탁드립니다. 재요청..

실수로 삭제가 되버렸네요  ㅠㅠ

재 요청 드립니다.

상큼메론90 님이 수정해주셨던 중량구하는 리습입니다.

조금 수정이 되었으면 해서 요청 드립니다.


11.png


위에서 처럼  나오는 리습입니다.  아래처럼 한번 100을 입력하면 엔터로 계속 100을

유지 할 수 있게 변경 되었으면 합니다. 

아래처럼 나오게는 됐는데 이후 오류가 계속납니다 ㅠㅠ

고수님들의 많은 도움 부탁드립니다.

좋은 하루 되세요.

공유

    관련 있는 질문들

    3 답변

    1. aalan
    2. Lv.0

      중량 구하는 리습 수정 요청 드립니다. 

      상기 리습은 단일 객체에 대한 중량은 구해지는데  예를 들어 A객체에서 B객체를 다중으로 빼거나 더하는 리습은 어떻게 하면 될까요? 부탁드리겠습니다. 
      • 0
    3. Lv.0

      감사합니다.. 대충은 알것 같습니다.

      좋은 하루 되세요  자유천지님

      • 0
    4. Lv.8

      (defun c:Wmm ()
        (setvar “dimzin” 10)
        (setvar “cmdecho” 0)
        (setq sno 0)
        (setq ss (ssget))
        (setq sno (sslength ss))
        (setq no 0)
        (setq sum 0.0)
        (setq tno 0)
        (setq ent_sum 0)
        (repeat sno
          (setq x (ssname ss no))
          (setq etype (cdr (assoc 0 (entget x))))
          (if (or (= etype “POLYLINE”)(= etype “LWPOLYLINE”)
                  (= etype “CIRCLE”)(= etype “SPLINE”))
              (progn
                (command “area” “e” x)
                (setq ent_sum (getvar “area”))
              )
              (progn
                (setq tno (1- tno))
                (setq ent_sum 0)
              )
          )
          (setq sum (+ sum ent_sum))
          (setq tno (1+ tno))
          (setq no (1+ no))
        )
        (setq tno (itoa tno))
        (setq sum1 (/ sum 1))
        (setq sum11 (rtos sum1 2 2))
        (princ “nAdding “)
        (princ tno)
        (princ “nThe Result is: “)
        (princ sum11)
        (princ ”   “)            
        (if (not (setq h2 (getreal (strcat “nt현재 TextSize : <” (rtos (getvar “textsize”) 2 0) “> . 원하는 Text 크기를 입력 : “))))
            (setq h2 (getvar “textsize”))
            (setvar “textsize” h2)
        );;if
        (if (null ds)
            (setq ds 0)
        )
        (if (setq buf (getint (strcat “nt현재 소숫점 자리수 :<” (rtos ds 2 0) “> :  원하는 소숫점 자리수 입력하세요, 원치 않으면 그냥 엔터를 치세요 : “)))
            (setq ds buf)
            (setq buf ds)
        )
        (setq sumx1 (atof sum11))
        (setq sum22 (+ sumx1))
        (setq att1 10)
        (if (setq att (getreal (strcat “n : 두께를 입력하세요—< ” (rtos 2 1) ” > 마즈믄 엔터~~~ : “)))
            (setq att1 att)
            (setq att att1)
        )
        (setq sumkt (* att 0.00000785))
        (setq sumktt (* sum22 sumkt))
        (setq sumkttt (rtos sumktt 2 ds))
        (setq pt2 (getpoint “nText Point: “))
        (command “text” pt2 h2 “” (strcat sumkttt “kg”))
        (prin1)
      )

      • 0