poly line length with label

Dear all,

I have many polylines that I have to put a label that shows the length and the measurement unit for each of them; basically they are underfloor heating loops.

I started a routine that solved the problem of labeling but I need help to develop it.

(defun c:clength()

(setvar "osmode" 1)

(setq dst1 (getdist "\n Pick first point: "))

(initget "MM CM M")

(setq s (getreal "measurement unit=1000/100/1: "))

(setq g (fix(/ dst1 s)))

(setq dst1(rtos g 2 0))

(setvar "osmode" 0)

(terpri)

(setvar "osmode" 512)

(setq currnt (getint "\n Enter circuit number: "))

(setq gh (getpoint "\nPick insertion point: "))

(setq J (getreal "\nEnter text hieght: "))

;(setq H (atoi J))

(setq kl (rtos currnt 2 0))

(setq d (strcat (strcat "C-" kl": ") dst1 " m"))

(command "text" "j" "c" gh "1" "0" d "")

)

Check this i hope it will help u

http://www.cadtutor.net/forum/showthread.php?76205-Need-Little-Help-with-my-Lisp-File/page2