Missing Digit

Please try to replace those lines:

(command "text" (list (+(atof xstr)(/ (atof httt) 2.0)) (cadr gptx)) httt "90" (strcat xstr))
(command "text" (list (+(atof xstr)(/ (atof httt) 2.0)) (cadr gpty)) httt "90" (strcat ystr))

with those:

(entmakex (list (cons   0 "MTEXT")
               (cons 100 "AcDbEntity")
               (cons 100 "AcDbMText")
               (cons  10 (list (+ (nth 0 ITEM) (/ (atof httt) 3.0)) (cadr gptx)))
               (cons  50 (* 0.5 pi))
               (cons   1 xstr)))
(entmakex (list (cons   0 "MTEXT")
               (cons 100 "AcDbEntity")
               (cons 100 "AcDbMText")
               (cons  50 (* 0.5 pi))
               (cons  10 (list (+ (nth 0 ITEM) (/ (atof httt) 3.0)) (cadr gpty)))
               (cons   1 ystr)))

and check if this is the result you were looking for.

Thx Dear Bro this setting not work bt i used another Lisp command.

 ;/* *************************************************************** */
;/* ***********          File name : p.lsp              *********** */
;/* ***********       Written by : Farzad Rashvan       *********** */
;/* ***********     Dec. 1998. Kyrgyzestan.Berlin.4     *********** */
;/* *************************************************************** */

(princ "\nNew Function : G")

(defun C:G()
(setvar "CMDECHO" 0)
(graphscr)

(setvar "osmode" 1)
(princ "\nSelect Extended Line ...")
(setq b (getpoint))
(setq x1 (car b))
(setq y1 (cadr b))
(setq z1 (caddr b))
(setq y1 (- y1 4.05))

(setq y2 (+ y1 43.0))

(setq y3 (+ y1 3.0))

(setvar "osmode" 0)

(command "color" "white")
(command "linetype" "s" "acad_iso13w100" "")
(command "style" "Times New Roman" "" 0.27 1 0 "n" "n" "n")
(princ "\nSelect PolyLine:")
(setq fr (entget (car (entsel))))
(setq r (cdr (assoc 90 fr)))
  (setq tgo 10) 
  (setq lx 0)
  (setq i 0)
  (repeat r
  (setq i (+ i 4))
  (setq hr (assoc 10 fr))
  (setq d (cons 1111 000))
  (setq hrr (cdr hr))
  (setq fr (subst d hr fr))
     (terpri)
     (setq h (car hrr))
     (setq k (cadr hrr))
     (setq xyd1 (list h k))
     (setq xyd2 (list h y3))
         (setq k (/ k 1))
              (if (/= 1 tgo)
          (if (< (* h lx) 0)
             (progn
                (setq yoo (+ ly (/ (* lx (- ly k)) (- h lx))))
                    (command "color" "White")
                    (setq pox (list 0.25 (+ y2 0.25)))
                    (setq poy (list 0.25 (+ y1 0.25)))
            (setq syo (rtos yoo 2 3))
            (setq htest (rtos k 2 3))
            (setq lxtest (rtos ly 2 3))
                    (command "text" pox "0" "0.00")
                    (command "text" poy "0" syo)
                (setq tgo 1)
             )
          )
           )
     (if (/= 0 h)
      (progn
              (command "color" "green")
          
       )
     )
         (setq sx (rtos (abs h) 2 3))
     (setq sy (rtos k 2 3))
         (setq py (list (+ h 0.2) (- y1 -1.7)))
         (setq px (list (+ h 0.2) (- y2 43.1)))
         (command "color" "red")
     (command "text" px "90" sx)
     (command "text" py "90" sy)
  (setq lx h)
  (setq ly k)

 )
(princ)
(redraw)
)
          

Hello,

This topic is not a place here, but I'll try.

I have the drawing closed polyline (road corridor) and the many lines that intersect.

Is there a routine that only selecting polylines, it automatically added to each section vertices

with lines. I used some routines, but at close range it does not add vertices. there are plenty of

data and the problem has to do manually.

thank you