如何增加多段线形状变化而面积跟着变化代码及取消面积6位尾数

byfccc

(defun c:mj(/ OBJLLPOINT OBJRUPOINT TEXTHEIGHT TEXTINDEX f ss e i obj l tarea)
  (vl-load-com)
  (setvar"dimzin"0);;保留小数位数时如果位数不足可以补零
  (setq TextHeight (getdist "\n输入标注文字高度:")Textbh(getstring "\n输入编号前缀:")
        f(getfiled "指定输出文件路径" "" "txt" 1));;;指定输出文件路径
  (command "layer" "M" "计算面积" "C" "6" "" "LT" "CONTINUOUS" "" "");设置一个标注图层
  (command "style" "tukou" "黑体" "0" "0.7" "0" "" "")
  (if f(progn
         (setq f(open f "a")i 0 TextIndex 1 tarea 0
               ss (ssget '((0 . "CIRCLE,LWPOLYLINE,ELLIPSE"))))
         (write-line "编号\t面积(㎡)" f)
         (repeat(SSlength ss)
           (setq e(ssname ss i)i(1+ i)
                 Obj(vlax-ename->vla-object e))
           (vla-GetBoundingBox Obj 'ObjLlPoint 'ObjRuPoint)
           (setq l(cons(list(mapcar'(lambda(x y)(/ (+ x y)2))(vlax-safearray->list ObjLlPoint)(vlax-safearray->list ObjRuPoint))
                            (vla-get-Area(vlax-ename->vla-object e)))l)))
         (foreach x(vl-sort l'(lambda(x y)(<(last x)(last y))))
           (write-line(setq txt(strcat Textbh(itoa TextIndex)"\t"(setq area(rtos(last x)2 2))))f)
           (entmake(list'(0 . "TEXT")'(8 . "计算面积")(cons 10 (car x))(cons 1 (STRCAT(vl-string-subst"=""\t"txt)"㎡"))
                        (CONS 40 TextHeight)'(7 . "tukou")(cons 11 (car x))'(72 . 1)))
           (setq tarea(+(atof area)tarea)
                 TextIndex(1+ TextIndex)))
         (close f)
         (entmake(list'(0 . "TEXT")'(8 . "计算面积")(cons 10 (setq e(getpoint"\n请输入文字插入点: ")))
                      (cons 1(strcat Textbh"="(rtos tarea 2 2)"平方米"))
                        (CONS 40 TextHeight)'(7 . "tukou")(cons 11 e)'(72 . 1)))
         )
    (alert"没有选择文件"))
  (princ)
  )