ActiveX - DYNAMIC VALUE ACCUMULATED IN A TEXT WITH FIELD

Hello group, good afternoon, today I come to you to ask you to please help me complete this little Autolisp routine, the routine consists of selecting "LWPOLYLINE, POLYLINE" and adding their lengths and then placing them within a text with field (adding your expressions) so that it is updated every time you modify any of the "LWPOLYLINE, POLYLINE", I attach the code that I have developed so far.
I appreciate the attention provided!!!!!



(defun c:33dist ()
(setq pt1 (getpoint"\n ubique un punto: "))

(PRINC "\nSELECCIONE EL LINDERO: ")
(SETQ CONJUNTO (SSGET '((0 . "LWPOLYLINE, POLYLINE"))))
(SETQ V_LEN 0 D_ACUM 0 LONG 0 NPOL 0)
(SETQ LONG (SSLENGTH CONJUNTO) )
(SETQ NPOL LONG)
(IF (/= CONJUNTO NIL)
(PROGN
(WHILE (NOT (< LONG 1))
(SETQ V_ENTI (SSNAME CONJUNTO (1- LONG)) )
(setq VDIST (strcat "%<\\AcObjProp Object(%<\\_ObjId "(itoa (vla-get-ObjectID (vlax-ename->vla-object (ssname V_ENTI 0))))">%).Length \\f \"%lu2%pr3\">%"))
(SETQ D_ACUM (+ V_LEN V_ACUM))
(SETQ VD_ACUM D_ACUM)
(SETQ LONG (1- LONG))

)))
(COMMAND "_TEXT" "_J" "_M" pt1 10 0 VD_ACUM)

)