Topic: Field suffix in Table

[REGHUYES]

This is Lee Mac's code .Is it possible to add "Sq m" suffix for field.Iam begineer to Auto lisp

Code - Auto/Visual Lisp: [Select]

1. (defun c:sCell (/ tab ent Obj pt tObj row col)
2.   (vl-load-com)
3.   (if (and (setq tab (car (entsel "\nSelect Table: ")))
4.            (eq "ACAD_TABLE" (cdr (assoc 0 (entget tab)))))
5.     (while
6.       (and
7.         (setq ent (car (entsel "\nSelect Room: ")))
8.         (vlax-property-available-p
9.           (setq Obj
10.             (vlax-ename->vla-object ent)) 'Area))
11.       (while
12.         (progn
13.           (setq pt (getpoint "\nClick into Cell to place field: "))
14.           (cond ((vl-consp pt)
15.                  (if (eq :vlax-true
16.                        (vla-hittest
17.                          (setq tObj
18.                            (vlax-ename->vla-object tab))
19.                              (vlax-3D-point pt)
20.                                (vlax-3D-point (trans '(0 0 1) 0 1)) 'row 'col)) nil
21.                    (princ "\n** No Cell Selected **")))
22.                 (t (princ "\n** No Point Selected **")))))
23.       (vla-setText tObj row col
24.         (strcat
25.           "%<\\AcObjProp Object(%<\\_ObjId "
26.             (vl-princ-to-string
27.               (vla-get-Objectid Obj))
28.                 ">%).Area \\f \"%lu2%pr2\">%")))
29.     (princ "\n** No Table Selected **"))
30.   (princ))
31.  

[ronjonp]

Not tested but maybe change this:
">%).Area \\f \"%lu2%pr2\">%"
to
">%).Area \\f \"%lu2%pr2%ps[,SQ m]\">%"

[REGHUYES]

Thank u "ronjonp" sir.
How to select two or more rooms.
reference image attached