면적길이평을 구해주는 리습 수정 가능할까요

면적 길이 평 을 구해주는 리습다운 받아 잘사용하는고 있습니다.

저는 :평”을구할 필요 없고 아래 그림과 같이 면적, 길이 “숫자”로만 표기 되게 수정가능할까요…

명령어수정 AAA->APY로 변경 부탁드립니다..

  수정전  ——-> 수정후
102.56m2  —–>  102.65 (단위 표기 안함)
  42.60M   ——->    42.60 (단위 표기 안함)
  31.04py  ——-> 표시안함.




(defun c:aaa ( / doc space ss index obj mi mx minpt maxpt inspt area txtobj)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (cond
    ((= (vla-get-activespace doc) 1) (setq space (vla-get-modelspace doc)))
    ((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc)))
    )
  (if (and (setq ss (car (entsel “n객체 선택 : “))) (setq inspt (getpoint “n텍스트 삽입점 지정 : “)))
    (progn
      (setq obj (vlax-ename->vla-object ss))
      (setq area (vla-get-area obj) len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
      (mapcar ‘(lambda (a b)
   (setq p (vlax-3d-point inspt))
   (setq txtobj (vla-addtext space (strcat a b) p 400));<—문자크기;
   (vla-put-alignment txtobj 8)
   (vla-put-textalignmentpoint txtobj p)
   (setq inspt (polar inspt (/ (* 270 pi) 180) 600));<—줄간격;
   )
       (list (rtos (/ area 1000000.) 2 2) (rtos (/ len 1000.) 2 2)
 (rtos (* area 0.000001 0.3025) 2 2)) ‘(“m2” “m” “py”)
       )
      )
    )
  (princ)
  )
(vl-load-com)
(prompt “n[ AAA ]”)
(princ)