리습 문구삽입관련 궁금점 문의 드립니다.

해당 리습은 아래와 같습니다
(defun c:zz(/ cmd a pyng sm)
 (setq cmd(getvar”cmdecho”))
 (setvar”cmdecho”0)
 (setq sc(getvar”ltscale”))
 (setq ts(* sc 5))
 (princ”Select polyline:”)
 (command”area””e”pause)
 (setq area(getvar”area”))
 (setq sm(rtos(/ area 1.0e+06) 2 2))
 (setq py(rtos(* area 0.0000003025) 2 2))
 (princ”n      Area : “)
 (princ sm)
 (princ” sq m”)
 (princ”   -> “)
 (princ py)
 (princ” pyong”)
 (setq pt(getpoint”nn      Pick Text Point :”))(terpri)
 (setq ar1(strcat “”sm” ㎡”))
 (command”text””s””standard””mc”pt ts”0″ar1)
 (setvar”cmdecho”cmd)
 (prin1))
(princ)
(defun c:xx(/ cmd a pyng sm)
 (setq cmd(getvar”cmdecho”))
 (setvar”cmdecho”0)
 (setq sc(getvar”ltscale”))
 (setq ts(* sc 5))
 (princ”Select polyline:”)
 (command”area””e”pause)
 (setq area(getvar”area”))
 (setq sm(rtos(/ area 1.0e+06) 2 2))
 (setq py(rtos(* area 0.0000003025) 2 2))
 (princ”n      Area : “)
 (princ sm)
 (princ” sq m”)
 (princ”   -> “)
 (princ py)
 (princ” pyong”)
 (setq pt(getpoint”nn      Pick Text Point :”))(terpri)
 (setq ar1(strcat “”py” py”))
 (command”text””s””standard””mc”pt ts”0″ar1)
 (setvar”cmdecho”cmd)
 (prin1))
(princ)

컬러부분이 캐드상에서 출력되는 면적 문구입니다
제가 하고 싶은 출력문구는 면적(M2) : 00.00 평수같은 경우는 면적(PY) : 00.00인데요
하는데로 해봤는데 리습오류가 나서 작동이 안됩니다
고수님들 수정좀 부탁드립니다 (__)