중량 산출 리습, 수정 부탁드립니다. 재요청..

(defun c:Wmm ()
  (setvar “dimzin” 10)
  (setvar “cmdecho” 0)
  (setq sno 0)
  (setq ss (ssget))
  (setq sno (sslength ss))
  (setq no 0)
  (setq sum 0.0)
  (setq tno 0)
  (setq ent_sum 0)
  (repeat sno
    (setq x (ssname ss no))
    (setq etype (cdr (assoc 0 (entget x))))
    (if (or (= etype “POLYLINE”)(= etype “LWPOLYLINE”)
            (= etype “CIRCLE”)(= etype “SPLINE”))
        (progn
          (command “area” “e” x)
          (setq ent_sum (getvar “area”))
        )
        (progn
          (setq tno (1- tno))
          (setq ent_sum 0)
        )
    )
    (setq sum (+ sum ent_sum))
    (setq tno (1+ tno))
    (setq no (1+ no))
  )
  (setq tno (itoa tno))
  (setq sum1 (/ sum 1))
  (setq sum11 (rtos sum1 2 2))
  (princ “nAdding “)
  (princ tno)
  (princ “nThe Result is: “)
  (princ sum11)
  (princ ”   “)            
  (if (not (setq h2 (getreal (strcat “nt현재 TextSize : <” (rtos (getvar “textsize”) 2 0) “> . 원하는 Text 크기를 입력 : “))))
      (setq h2 (getvar “textsize”))
      (setvar “textsize” h2)
  );;if
  (if (null ds)
      (setq ds 0)
  )
  (if (setq buf (getint (strcat “nt현재 소숫점 자리수 :<” (rtos ds 2 0) “> :  원하는 소숫점 자리수 입력하세요, 원치 않으면 그냥 엔터를 치세요 : “)))
      (setq ds buf)
      (setq buf ds)
  )
  (setq sumx1 (atof sum11))
  (setq sum22 (+ sumx1))
  (setq att1 10)
  (if (setq att (getreal (strcat “n : 두께를 입력하세요—< ” (rtos 2 1) ” > 마즈믄 엔터~~~ : “)))
      (setq att1 att)
      (setq att att1)
  )
  (setq sumkt (* att 0.00000785))
  (setq sumktt (* sum22 sumkt))
  (setq sumkttt (rtos sumktt 2 ds))
  (setq pt2 (getpoint “nText Point: “))
  (command “text” pt2 h2 “” (strcat sumkttt “kg”))
  (prin1)
)