M2를 평으로 바꾸는 리습인데 수정좀요.

여기 자료실에서 이 리습을 받았는데
결과치에 PY이라는 글자가 붙었으면 합니다.
수정 부탁드립니다.. ^^
(defun C:MP (/ ss sno num no num1 str1 str x z)
(setq ss (ssget))
(setq sno (sslength ss))
(setq num 1.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));get rid of 9th digit below zero
(setq num (* 0.3025 (atof num1)))
(setq str1 (rtos num 2 2))
(setq str (strcat “nTotal cal 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)
)