Need to result to be rounded to whole # - No decimal Places

[bobbyrubyii]

 (setq txt
                    (vlax-invoke spc 'addmtext ins 1.0
                        (strcat
                            "%<\\AcExpr (%<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (vlax-ename->vla-object ent)) ">%)."
                            (cond
                                (   (= "CIRCLE" typ) "Circumference")
                                (   (= "ARC"    typ) "ArcLength")
                                (   "Length"   )
                            )
                            " \\f \"" fmt "\">% + 10) \\f \"%lu5\">%'"
                        )
                    )
                )

This sometimes gives me results like 157 1/2' --- That is too detailed.  I need it to say 158' in that instance.

[Ajilal.Vijayan]

Hi,

Try with this.

Spoiler

 (setq txt
                    (vlax-invoke spc 'addmtext ins 1.0
                        (strcat
                            "%<\\AcExpr (%<\\AcObjProp Object(%<\\_ObjId " (LM:objectid (vlax-ename->vla-object ent)) ">%)."
                            (cond
                                (   (= "CIRCLE" typ) "Circumference")
                                (   (= "ARC"    typ) "ArcLength")
                                (   "Length"   )
                            )
                            " \\f \"" fmt "\">% + 10) \\f \"%lu5\">%'"
                        )
                    )
                )
(vla-put-textstring txt(rtos(atof(vla-get-textstring txt))4 0))

[dbroad · Accepted solution]

If you want the text object to remain a field, then replace

\\f \"%lu5\">%'

with

\\f \"%lu5%pr0\">%