홈/ 질문/Q 107152
다음
진행 중
Lv.0
등록일: 2016-08-26T11:28:55+09:00 카테고리:

사칙연산 리습좀 부탁드립니다.

사칙연산  리습좀 구할수있을까요??

캐드 코멘드 창에서 + 클릭클릭클릭   하면 합쳐지기는 하는데 명령어가 끝나버려서 두번작업이 들어가네요.


총길이에서 각각의 값을 합한 값을 빼고싶습니다.

예시)

2000-(100+200+300)=1400

이렇게 소수점없이 예시처럼 리습이 혹시 있을까요??

저는 아직도 공부가 부족하네요 .. 조언 부탁드립니다. 감사합니다

공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. (defun c:kk (/ selen idx se ent cd1 lst total max_ cal_)
        (setq selen 0
       idx -1
       )
        (and (setq se (ssget ‘((0 . “text”))))
             (setq selen (sslength se))
             )
        (repeat selen
          (setq ent (entget (ssname se (setq idx (1+ idx))))
         cd1 (atof (cdr (assoc 1 ent)))
         lst (append lst (list cd1)))
          )
        (setq total (apply ‘+ lst)
       max_ (apply ‘max lst)
       cal_ (- (* 2 max_) total))
        (princ “n”)(princ cal_)
      (princ))  

      메일 답변 드렸습니다.
      간단히.. 공부하시는분들을 위해..
      문자를 선택하면.. 재일 큰수  – 나머지 숫자..
      실질적으로는..
      숫자를 리스트에 넣고…
      다 합친갑
      재일 큰수
      재일큰수 * 2  –  다합친값

      일반적이지는 않지만.. 정수일경우 문제는 없을듯…

      • 0

    3.  앗~~ 감사합니다.   ….

      조용님. 잘쓰겠습니다.   좋은하루 보내세요^^

      • 0