사칙연산이라는 리습을 검색하여서 실행을 해봤는데…
어떤분이 말씀하시는 것처럼 명령어를 치고 1 과 2 를 선택시 4라는 문자를 클릭을 했을때 두 합의값인 3으로 변경하게 하려면 어디를 수정하거나 추가해야되는지 고수님들의 답변 부탁드립니다..
아래 리습은 기존의 올라와있는 것처럼 다른 한 포인트를 찍으면 합의값이 나오는거거든요..
;숫자를 선택하여 합을 구하는 명령어
(defun c:sum()
(setq index 0)
(setq sum 0)
(command “style” “ghs” “” “0.0” “” “” “” “” “”) ;style 정의
(setq la (getvar “clayer”))
(setq col (getvar “cecolor”))
(setq scl (getvar “dimscale”))
(setq s3 (* scl 1))
(setq a (ssget))
(setq b (sslength a))
(repeat b
(setq c (ssname a index))
(setq d (entget c))
(setq type (cdr (assoc 0 d)))
(if (= “TEXT” type)
(progn
(setq e (assoc 1 d))
(setq f (cdr e))
(setq sum (+ sum (atof f)))
);progn
);if
(setq index (+ 1 index))
);repeat
(setq total (rtos sum 2 4))
(setq total1 (strcat “Total=” total))
(setq point (getpoint “n Text Point “))
(command “color” “2”)
(command “text” point s3 “0” total1)
(setvar “clayer” la)
(setvar “cecolor” col)
(princ “n Total = ” )
(princ total)
(princ)
);defun