잘 쓰고있는 더하기 리습인데요..
콤마가 들어간 숫자는 인식을 못해서 연산이 안되네요..
가끔 리습자료는 용도에 맞게 수정하는데, 이건 도저히 안되네요..
꼭좀 부탁드려요~~
ps) 기존자료 검색해봤는데 콤마들어간 숫자도 인식가능한 리습이 있긴한데..
텍스트를 하나씩 찍어줘야 되더라고요..
제가 쓰는 리습은 텍스트 전체를 윈도우로 싸잡아서 계산해주기 때문에 더 편리한거 같은데
바로 밑에 리습을 가지고 수정 부탁드려요 ^^
;;; Text Calculate Addition
(defun C:TCA (/ ss sno num no num1 str1 str x z)
(setq ss (ssget))
(setq sno (sslength ss))
(setq num 0.0)
(setq no 0)
(while (<= 1 sno)
(setq x (ssname ss no))
(if (eq (cdr (assoc 0 (entget x))) “TEXT”)
(progn
(setq num1 (atof (cdr (assoc 1 (entget x)))))
(setq num1 (rtos num1 2 9))
(setq num1 (- (atof num1) 0.000000005))
(setq num1 (rtos num1 2 9))
(setq num (+ num (atof num1)))
(setq str1 (rtos num 2 2))
(setq str (strcat “nTotal sum is: ” str1 ))
(princ str)
)
)
(setq sno (- sno 1))
(setq no (+ no 1))
)
(setq p1 (getpoint “nPick the text startpoint: “))
(command “text” p1 “” “” (setq z str1))
(princ)
)