더하기 리습은 제가 가지고 있어서 4째자리로 구하는것으로 수정을 겨우겨우 했는데요
빼기 리습으로 만들려고 하는데 잘안됩니다. ㅠㅠ
4째자리 더하기 리습 올려볼께요
부탁드립니다.
——————
(defun C:TCM (/ 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 4))
(setq num1 (- (atof num1) 0.00005))
(setq num1 (rtos num1 2 4))
(setq num (+ num (atof num1)))
(setq str1 (rtos num 2 4))
(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)
)