한번만 도와주세요 고수님들 다름이 아니고 숫자합계 구하는 리습에서
막히는 부분이 있어서 글을 올립니다.
합계에서 소숫점을 찍고 합계하면 합계가 구해지는데
콤마(,)를 찍은 숫자는 합계가 앞숫자만 더해지니??-..
예)2.4 + 2.4 = 4.4가 되는데
2,400 + 2,400 = 4,000이 됨 …
콤마 뒷숫자는 더해지지 않음….도와주세요 고수님들
무지 고맙겠는데….행복하세요
리습 올립니다…;;===========================================================
; Number plus(98CHO_I)
; ->더하기
;;———————————————————–
(defun c:npp(/ choi d_ts w_os ht ss grpt pt1 n k tot en tv rtv an)
(setq choi (getvar "orthomode") d_ts (getvar "textsize")
w_os (getvar "osmode") )
(setvar "orthomode" 0) (setvar "osmode" 0)
(setq ht d_ts)
(prompt "nText Height<") (prin1 ht) (prompt ">: ")
(setq ht (getdist))
(if (= ht nil) (setq ht d_ts))
(prompt "nSelect number->")
(setq ss (ssget))
(setq grpt (grread T))
(setq pt1 (cadr grpt))
(setq n (sslength ss))
(setq k 0 tot 0)
(while (<= 1 n)
(setq en (ssname ss k))
(setq tv (cdr (assoc 1 (entget en))))
(setq rtv (atof tv))
(setq tot (+ tot rtv))
(setq n (- n 1))
(setq k (+ k 1))
)
(setq tot (rtos (* tot 10000) 2 0))
(setq an (strlen tot))
(setq tot (strcat (substr tot 1 (- an 4)) "," (substr tot (- an 3) 3)" L" ))
(prompt "n합 계 : ") (prin1 tot)
(command "text" "j" "r" pt1 ht "0" tot)
(prompt "nEnter text point->")
(command "move" "l" "" pt1 pause)
(setvar "orthomode" choi) (setvar "osmode" w_os)
(prin1)

한번만 도와주세요 고수님들 다름이 아니고 숫자합계 구하는 리습에서
막히는 부분이 있어서 글을 올립니다.
합계에서 소숫점을 찍고 합계하면 합계가 구해지는데
콤마(,)를 찍은 숫자는 합계가 앞숫자만 더해지니??-..
예)2.4 + 2.4 = 4.4가 되는데
2,400 + 2,400 = 4,000이 됨 …
콤마 뒷숫자는 더해지지 않음….도와주세요 고수님들
무지 고맙겠는데….행복하세요
리습 올립니다…;;===========================================================
; Number plus(98CHO_I)
; ->더하기
;;———————————————————–
(defun c:npp(/ choi d_ts w_os ht ss grpt pt1 n k tot en tv rtv an)
(setq choi (getvar "orthomode") d_ts (getvar "textsize")
w_os (getvar "osmode") )
(setvar "orthomode" 0) (setvar "osmode" 0)
(setq ht d_ts)
(prompt "nText Height<") (prin1 ht) (prompt ">: ")
(setq ht (getdist))
(if (= ht nil) (setq ht d_ts))
(prompt "nSelect number->")
(setq ss (ssget))
(setq grpt (grread T))
(setq pt1 (cadr grpt))
(setq n (sslength ss))
(setq k 0 tot 0)
(while (<= 1 n)
(setq en (ssname ss k))
(setq tv (cdr (assoc 1 (entget en))))
(setq rtv (atof tv))
(setq tot (+ tot rtv))
(setq n (- n 1))
(setq k (+ k 1))
)
(setq tot (rtos (* tot 10000) 2 0))
(setq an (strlen tot))
(setq tot (strcat (substr tot 1 (- an 4)) "," (substr tot (- an 3) 3)" L" ))
(prompt "n합 계 : ") (prin1 tot)
(command "text" "j" "r" pt1 ht "0" tot)
(prompt "nEnter text point->")
(command "move" "l" "" pt1 pause)
(setvar "orthomode" choi) (setvar "osmode" w_os)
(prin1)