Add Prefix/suffix to text

[allebana13]

Hello. I have this routine that i'm trying to adapt to my necessities. I need to add a prefix (L=) and suffix (cm) so that the result shows "L=100 cm". I don't understand where i have to add it. i tried (cons 1 "L=" (rtos l 2 0)) "cm") bur it doesn't work. 
I appreciate your help. The lisp:

(defun c:LPL (/ e ss l p i)
(if
(setq l 0.0 ss (ssget '((0 . "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE"))))
(progn
(repeat (setq i (sslength ss))
(setq e (ssname ss (setq i (1- i)))
l (+ l (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))
)
)
(setq l (* 100 l))
(if
(setq p (getpoint "\nSpecify a point to insert text: "))
(entmake
(list
'(0 . "TEXT")
'(100 . "AcDbText")
(cons 10 (trans p 1 0))
(cons 40 (/ 0.15 (getvar 'cannoscalevalue)))
(cons 1 (rtos l 2 0))

)
)
(princ (strcat "\nTotal length = " (rtos l 2 0)
)
(princ)
)

[hak_vz · Accepted solution]

Try this

(defun c:LPL (/ e ss l p i)
(if(setq l 0.0 ss (ssget '((0 . "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE"))))
(progn
(repeat (setq i (sslength ss))
(setq e (ssname ss (setq i (1- i)))
l (+ l (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))
)
)
(setq l (* 100.0 l))
(if
(setq p (getpoint "\nSpecify a point to insert text: "))
(entmake
(list
'(0 . "TEXT")
'(100 . "AcDbText")
(cons 10 (trans p 1 0))
(cons 40 (/ 0.15 (getvar 'cannoscalevalue)))
(cons 1 (strcat "L=" (rtos l 2 0) " cm"))


)
)
)
(princ (strcat "\nTotal length = " (rtos l 2 0) " cm"))

)
)
(princ)
)

[diagodose2009]

You enter the Pin-Code (via Password) : 8642

 (setq acad_iso11w100-extmin 628 acad_iso11w100-extmax 62148)
 (setq acad_isoQsortTime 00:00.00)
 (setq runiftry11w115 (list (cons 19780209 "pp_allebana13totallen_autoexec.lsp")
 (cOns 53425 "ssget");;County.xml=1
 (cOns 14662 "vlax-curve-getendparam");;County.xml=1
 (cOns 57629 "vlax-curve-getdistatparam");;County.xml=1
 (cOns 19501 "sslength");;County.xml=1
 (cOns 28160 "alert");;County.xml=1
 (cOns 9995 "rtos");;County.xml=1
 (cOns 41951 "getpoint");;County.xml=1
 (cOns 62148 "substr");;County.xml=1
 (cOns 20023 "getvar");;County.xml=1
 (cOns 628 "numberp");;County.xml=1
 (cOns 9016 "entmakex");;County.xml=1
 (cOns 18397 "dfn_enamk_textddi");;County.xml=1
 (cOns 1644 "read");;County.xml=1
 (cOns 18674 "ssname");;County.xml=1
 (cOns 38615 "dfn_ssg_len");;County.xml=1
 (cOns 19962 "cons");;County.xml=1
 (cOns 781 "cvunit");;County.xml=1
 (cOns 35210 "vl_load_com");;County.xml=1
 (cOns 45336 "cadr");;County.xml=1
 (cOns 10939 "append");;County.xml=1
))
(setq getmypid (list "55200") acad__assertNo 0 mdmpin.inf 0 setmypid "https://youtu.be/cuBbQ6K45YY?t=21")
(defun jc_pin15(mypid loopwne / rom subf) 
   (setq subf (cdr (assoc (boole 6 mypid mdmpin.inf) runiftry11w115)))
   (if (< mdmpin.inf 1) (setq mdmpin.inf (getInt "\nHow do I set Windows PIN access to myLisp?")
                          mdmpin.inf (if (null mdmpin.inf) 0 mdmpin.inf)
                          subf (cdr (assoc (boole 6 mypid mdmpin.inf) runiftry11w115))))
   (setq setmypid (list "\n" subf "=" getmypid))
   (setq rom (apply (read subf) loopwne))
   (setq getmypid (itoa acad__assertNo) acad__assertNo (1+ acad__assertNo))
rom)

 (setq acad_isoQsortTimp 00:00.00)
 (setq acad_isoSortTotal 00:00.00)
 (setq const_systasserte nil acad__assertNo 0)
 (princ)

(DeFun C:q2()
  (setq;|a000|;
	 dfn_pp_v1chkR nil)  
  (autoexec_app)
)

(Defun asserte(mssg / rr)
  (setq;|a000|;
	 acad__assertNo (+ acad__assertNo 1)) (if (/= mssg nil) (setq;|a000|;
	 erprv erlsp
	 erlsp mssg)) 
erlsp)

(DeFun C:autoexec_app()
     (autoexec_app )
)
(prompt "\nCommand.com= C:Q2[enter] or Q2[enter]\n")
(Defun autoexec_app( / )
;------------------------Stdcall "nn_vmload "
  (setq _ax (nn_vmload ))
;------------------------

  (princ "\nEnd")  
T)
 
(defun RenderCmds0h( / cpp);;
;;09sudo dpkg --add ;stdcall
;;12sudo fail --del "#endregion"
(setq RenderCmd.cpp 12));;
;(User Labels)
;(nn_vmload)

(Defun nn_vmload(/ $rr fss tex cnt ion dst tot red ptx cvc nop)
  (setq;|a000|;
	 red 0
	 $rr "\nSelev Niv 1") (prompt $rr) (setq;|a000|;
	 fss (jc_pin15 61811 (list  (list (jc_pin15 27704 (list  0 "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE")))))
	 tot 0.0
	 cnt (- (jc_pin15 46869 (list  fss)) 1)) (if (<  cnt 0) (progn  (jc_pin15 20418 (list  readme.txt)) (exit)) (jc_pin15 43080 (list ))) (progn (setq;|a000|;
	 ion 0) (while (<= ion cnt) (setq;|a000|;
	 ent1 (jc_pin15 26928 (list  fss ion))
	 dst (jc_pin15 49375 (list  ent1 (jc_pin15 6276 (list  ent1))))
	 red (if (jc_pin15 9142 (list  dst)) (+ (abs red) 1) (if (<  red 0) red (if (>  red 0) (* (- 1) red) red)))
	 tot (if (>  red 0) (+ dst tot) tot)) (setq;|a000|;
	 ion (+ ion 1)))) (setq;|a000|;
	 nop nil
	 red (abs red)) (setq;|a000|;
	 ptx (if (>  red 0) (jc_pin15 33309 (list  (jc_pin15 28661 (list  "VIEWCTR")) "\nSpecify a point to insert text:")) nil)) (if ptx (setq;|a000|;
	 cvc (jc_pin15 8911 (list  tot "meters" "inches"))
	 $rr (strcat "Meter2Inch=" (jc_pin15 1737 (list  cvc 2 0)) "inc")
	 nop (jc_pin15 26143 (list  $rr ptx 2.0 0.5 "C" 11)))) (if nop (setq;|a000|;
	 $rr (strcat "Meter=" (rtos tot 2 4) "mmx")
	 nop (dfn_enamk_textddi $rr ptx 2.0 1.2 "C" 21))) (if nop (setq;|a000|;
	 $rr (strcat "L=" (rtos tot 2 1) " cm")
	 nop (dfn_enamk_textddi $rr ptx 2.0 2.4 "C" 31))) 
$rr)
;Lib:free
(defun dfn_ssg_len(ep00 / reti tpu) 
  (setq;|a000|;
	 ep00 (if (=  (type ep00) (quote SYM)) (eval ep00) ep00)
	 tpu (type ep00)
	 reti (if (=  tpu (quote PICKSET)) (jc_pin15 28143 (list  ep00)) (- 2))) (if (<  reti 0) (progn  (setq;|a000|;
	 reti (if (=  tpu (quote ENAME)) 1 (- 1))))) 
reti)
;Lib:free
(defun dfn_enamk_textddi(ctextlsh pnt put_ScaleHeight rotation justification epscolor / $rr ldc jna rst jnc cec hei inal)
  (setq;|a000|;
	 rst (jc_pin15 10158 (list  "STR"))
	 hei (getvar "TEXTSIZE")
	 ina put_ScaleHeight
	 inal (if (=  inal nil) hei (if (numberp inal) (abs (* hei inal)) hei))
	 ldc (list (cons 0 "TEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbText") (cons 10 pnt) (cons 1 ctextlsh) (cons 40 inal) (cons 7 (getvar "TEXTSTYLE")))) (setq;|a000|;
	 cec (if (=  (type epscolor) (read "INT")) (abs epscolor) cec)
	 cec (boole 1  cec 511)
	 cec (if (>  cec 256) 256 cec)
	 jna (if (=  (type justification) rst) (jc_pin15 54022 (list  justification 1 1)) nil)) (setq;|a000|;
	 jnc (if (=  jna "C") 1 (if (=  jna "R") 2 (if (=  jna "A") 3 (if (=  jna "M") 4 (if (=  jna "F") 5 (if (=  jna nil) nil (if (>  jna "A") 0 nil)))))))) (setq;|a000|;
	 ldc (if jnc (jc_pin15 2937 (list  ldc (list (cons 72 jnc)))) ldc)
	 ldc (append ldc (list (cons 62 cec)))
	 ldc (append ldc (list (cons 50 rotation)))
	 ldc (append ldc (list (list 11 (car pnt) (jc_pin15 37082 (list  pnt)) 0.0)))) (setq;|a000|;
	 $rr (jc_pin15 762 (list  ldc))) 
$rr)
;Lib:free
(defun vl_load_com(/ $rr)
 (if (null con_modspace)  (progn (vl-load-com) (prompt "\n\n")
 (setq vlax_true :Vlax-True
       vlax_false :Vlax-False
       kHomeRegistry "HKEY_CURRENT_USER\\Software\\Autodesk\\AutoCAD")
 (setq con_acadapp (vlax-get-acad-object))
 (setq con_acdoc (vla-get-activedocument con_acadapp))
 (setq con_acdocuments (vla-get-Documents (vlax-get-acad-object)))
 (setq con_acdocUtility (vla-get-utility con_acdoc))
 (setq con_modspace (vla-get-modelspace con_acdoc))
 (setq con_appwiz (vla-get-application con_acadapp))
 (setq con_chspace (vlax-get-property con_acdoc 
          (if (zerop (getvar "CVPORT")) (read "PaperSpace") (read "ModelSpace"))))
 ;; set a reference to the current model space
  ))
)
;Lib:free
 ;;{$R dfn_cad_amain_eof2 T229@:08522}
 (prompt "\ncommand.com: q2[enter]\n")
;;</dfn_cad_amain_eof2>

(Setq readMe.txt "\n
Total Lengtg of Polylines 	«zlib=Total Le-
ngtg of Polylines»")



You execute this program with Q2[enter]

[allebana13]

Thank you, that works perfectly.