(defun c:MLin()
(setvar "luprec" 2)
(Cre_Lay "dist" 6)
(setq disttot 0)
(setq lines(ssget (list (cons 0 "line,pline,lwpolyline"))))
(setq ctr 0)
(if (/= lines nil)
(progn
(setq len(sslength lines))
(repeat len
(setq ent(ssname lines ctr))
(setq pntList(ReadPline ent))
(setq ptCntr 0)
(repeat (1- (length pntList))
(setq fpoint(nth ptCntr pntList))
(setq epoint(nth (1+ ptCntr) pntList))
(setq thr(distance fpoint epoint))
(setq fou(angle fpoint epoint))
(setq ang(* (/ fou pi) 180))
(if (and (>= ang 90) (<= ang 270)) (setq ang(rtos (+ ang 180))) (setq ang(rtos ang)))
(setq txt_ins(MidP fpoint epoint))
(command "._Text" "j" "bc" txt_ins "12" ang (rtos thr))
(command "._Change" (entlast) "" "p" "la" "dist" "")
(setq disttot(+ disttot (distance fpoint epoint)))
(setq ptCntr(1+ ptCntr))
)
(setq ctr(1+ ctr))
)
(princ (strcat "\nTotal distance :"  (rtos disttot 2 4)))
)
)
(princ)
)
(princ "\nType "MLin" to Measure each Segment of the Polyline.")  (princ)

; Function to find the mid point of two points.
(defun MidP(midp_fpo midp_spo)
(setq midp_mpo(list (/ (+ (car midp_fpo) (car midp_spo)) 2) (/ (+ (cadr midp_fpo) (cadr midp_spo)) 2)))
)

;Function to Create a Layer with given color.
(defun Cre_Lay(lay_layn lay_laycol)
(if (= (tblsearch "Layer" lay_layn) nil)
(command "._Layer" "n" lay_layn "c" lay_laycol lay_layn "")
(command "._Layer" "t" lay_layn "on" lay_layn "c" lay_laycol lay_layn "")
)
(princ)
)

;Function to Read Vertices of Selected Lines.
(defun ReadPline(imp_Ent)
(setq glb_obj(vlax-ename->vla-object imp_Ent))
(setq glb_PntCnt(vlax-curve-getEndParam glb_obj))
(setq returnPTList '())
(setq ptCntr 1)
(setq glb_oName(vlax-get-property glb_obj 'ObjectName))
(setq glb_OClosed nil)
(if (= glb_oName "AcDbLine")
(progn
(setq glb_EnDetails(entget imp_Ent))
(setq big_Point3d(cdr (assoc 10 glb_EnDetails)))
(setq end_Point3d(cdr (assoc 11 glb_EnDetails)))
(setq returnPTList(append returnPTList (list big_Point3d)))
(setq returnPTList(append returnPTList (list end_point3d)))
)
(progn
(setq glb_OClosed(vlax-curve-isClosed glb_obj))
(setq glb_2dDist 0)
(setq old_Point nil)
(repeat (1+ (fix glb_PntCnt))
(setq cur_Point3d(vlax-curve-getPointAtParam glb_obj (1- ptCntr)))
(setq returnPTList(append returnPTList (list cur_Point3d)))
(setq ptCntr(1+ ptCntr))
)
)
)
(setq return returnPTList)
)

(defun c:wpsec ()
(if (setq ss (ssget (list (cons 0 "LWPOLYLINE")(cons 70 1))))
  (progn
    (setq c 0 say (sslength ss))
    (while (< c say)
      (setq tek (ssname ss c))
      (command "_wipeout" "p" tek "y")
      (setq c (+ c 1)))))(princ))

(defun c:ly (/ n)
  (if (and (/= (setq n (getstring T "\nLayer name:")) "") (tblobjname "layer" n))
    (progn
      (setvar "cmdecho" 0)
      (command "._layer" "on" n ""
               "._layer" "thaw" n ""
               "._layer" "unlock" n "")
      (setvar "clayer" n))
      (if (/= n "") (alert (strcat n " not found"))))
  (princ)
)

(defun ly (/)
  (if (tblobjname "layer" n)
    (progn
      (setvar "cmdecho" 0)
      (command "._layer" "on" n ""
               "._layer" "thaw" n ""
               "._layer" "unlock" n "")
      (setvar "clayer" n))
      (alert (strcat n " not found")))
  (princ)
)

(defun c:yo (/ n) (setq n "MIOLy") (ly) (princ))
(defun c:do (/ n) (setq n "MIOLd") (ly) (princ))
(defun c:ddo (/ n) (setq n "MDOL") (ly) (princ))
(defun c:vo (/ n) (setq n "MVZOL") (ly) (princ))