How to do it like this !!
(defun C:test ()
(princ "\n Select Polyline ")
(if (setq o (ssget "_+.:S" '((0 . "POLYLINE"))))
(entmake
(list
'(0 . "INSERT")
(cons 2 "pindiat")
(cons
10
(list 0.
(- 14
(cadar (vl-sort (mapcar 'cdr
(vl-remove-if-not
'(lambda (p) (eq (car p) 10))
(entget (ssname o 0))
)
)
'(lambda (j k) (< (cadr j) (cadr k)))
)
)
)
0.
(command "insert" "*pindiat" dt1 "" "0")
)
)
)
)
)
)