사칙연산 리습좀 부탁드립니다.
컨텐츠 정보
- 222 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
사칙연산 리습좀 구할수있을까요??
캐드 코멘드 창에서 + 클릭클릭클릭 하면 합쳐지기는 하는데 명령어가 끝나버려서 두번작업이 들어가네요.
총길이에서 각각의 값을 합한 값을 빼고싶습니다.
예시)
2000-(100+200+300)=1400
이렇게 소수점없이 예시처럼 리습이 혹시 있을까요??
저는 아직도 공부가 부족하네요 .. 조언 부탁드립니다. 감사합니다
관련자료
조용!!님의 댓글
(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 – 다합친값
일반적이지는 않지만.. 정수일경우 문제는 없을듯…