홈/ 질문/Q 113552
다음
진행 중
Lv.0
등록일: 2022-01-03T11:19:47+09:00 카테고리:

수량 자동수식 리습 가능할까요??

안녕하세요.

고수님들~~
혹시 제가 설명 드리는 리습이 가능할까요??
예시
총 제작 수량 : 1EA x 2SET = 2EA
총 제작 수량 : 1EA x 4SET = 4EA
위에 처럼 중간 SET 수량만 변경해서 결과값이 자동으로 변경 되는 리습이 
가능할까요?? 가능하다면 혹시 리습좀 만들어 주실수 있으신가요.
저희 회사는 이렇게 셋트로 변경되는게 많은데 일일이 변경할려니 시간도 너무 오래걸리고
힘들기도 합니다.
부탁드립니다~~^^
공유

    관련 있는 질문들

    3 답변

    1. aalan

    2. 아 너무 감사합니다.

      그런데 제가 잘모르는건지 명령어 mul 을 치면 
      총 수량 : 1EA x 4SET = 4EA  –>총 수량 : 1EA x 4SET = 0EA 이렇게 변경이되거든요.
      제가 설명을 잘 못해서 그런지몰라도 저희 회사는 한파일내에 도면이 수백장정도 되거든요.
      근데 이런 장비들을 셋트로 진행을 하는데 똑같은 장비를 A란 업체에는 10대, B란 업체에는 5대 이렇게 진행을 하거든요.
      그럼 A란 업체 10대분 총 수량 : 1EA x 10SET = 10EA,….총 수량 : 10EA x 10SET = 100EA 이렇게 있는데
      B란 업체 5대분 진행할때 중간에 SET만 수량만 5SET로 한번 바꿔주면 나머지들도 알아서 계산이되어서 바꿀수 있는것이 맞는지 궁금합니다.^^ 제가 여기서 처음 물어보는거다 보니 설명이 부족해서 죄송합니다.
      • 0
    3. Lv.1
      정확한 업무 프로세스를 모르기때문에

      “총 제작 수량 : 1EA x 4SET = 4EA”

      도면 내 알려주신 형식의 모든 텍스트를 찾아서 마지막 EA의 수치값만 변경되게 했습니다
      “EA”, “SET” 앞에는 어떠한 숫자는 무조건 있어야하구요
      • 0
    4. Lv.1
      (defun c:mul (/ obj r qty ent txt n lst val mul th chg)
      (setvar “cmdecho” 0)
      (setq obj (ssget “x” (list (cons 1 “*EA*”)(cons 1 “*SET*”)(cons 0 “TEXT,MTEXT”))))
      (foreach x (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex obj)))
      (setq txt (cdr (assoc 1 (setq ent (entget x)))) r 1 qty “” )
      (repeat (strlen txt)
      (if (member (substr txt r 1) ‘(“0” “1” “2” “3” “4” “5” “6” “7” “8” “9”))
      (progn
      (setq qty (strcat qty (substr txt r 1)) n t)
      )
      (progn
      (if n
      (setq lst (append lst (list qty)) n nil qty “”)
      )
      ))
      (setq r (1+ r))
      )
      (setq val (car (reverse lst)))
      (setq mul (rtos (apply ‘* (mapcar ‘atoi (cdr (reverse lst)))) 2 0) lst nil)
      (setq th (vl-string-search val txt (vl-string-search “SET” txt)))
      (setq chg (strcat (substr txt 1 th) mul (substr txt (1+ (vl-string-search “EA” txt (vl-string-search “SET” txt))))))
      (entmod (subst (cons 1 chg) (assoc 1 ent) ent))
      )
      (setvar “cmdecho” 1)
      )
      • 0