Find Missing text number in a layer

[pBe]

Dear can you come on Team Viewer so that i can show you.

 

Think I'll pass, don't even know what Team Viewer is.

[subodh_gis]

Think I'll pass, don't even know what Team Viewer is.

 

Best of luck. from which country you are?

[subodh_gis]

Think I'll pass, don't even know what Team Viewer is.

 

Hi ! any progress .

[pBe]

Hi ! any progress .

 

Wasn't aware you posted a sample drawing subodh_gis, besides the sample doesnt show a missing number at all.

 

FWIW

(defun c:filler	(/ _missing cont ss str i missed num noone)
(defun _missing (l / missing)
   (repeat (- (setq lv (apply 'max l))
       (apply 'min l)
    )
     (if (not (member (setq lv (1- lv)) l))
(setq missing (cons lv missing))
     )
   )
   missing
 )  
 (if (setq cont nil
    ss	 (ssget "_:L" '((0 . "TEXT") (8 . "TXT01_PARCEL")))
     )
   (progn
     (repeat (setq i (sslength ss))
(setq str
       (cdr
	 (assoc 1 (entget (setq e (ssname ss (Setq i (1- i))))))
       )
)
(if (numberp (setq v (read str)))
  (setq cont (cons (list  v (vlax-ename->vla-object e)) cont))
)
     )
     (setq cont (vl-sort cont
		  '(lambda (j k)
		     (< (car j) (car k))
		   )
	 )
     )
     (if (setq missed (_missing (mapcar 'car cont)))
(progn
	(setq cont
	       (cdr (member
		      (assoc (1- (setq num (car missed))) cont)
		      cont
		    )
	       )
	)
  (foreach val cont
    (vla-put-textstring
      (cadr val)
      (itoa num)
    )(setq num (1+ num))
  )
)
     )
   )
 )
 (princ)
)

[subodh_gis]

Wasn't aware you posted a sample drawing subodh_gis, besides the sample doesnt show a missing number at all.

 

FWIW

(defun c:filler	(/ _missing cont ss str i missed num noone)
(defun _missing (l / missing)
   (repeat (- (setq lv (apply 'max l))
       (apply 'min l)
    )
     (if (not (member (setq lv (1- lv)) l))
(setq missing (cons lv missing))
     )
   )
   missing
 )  
 (if (setq cont nil
    ss	 (ssget "_:L" '((0 . "TEXT") (8 . "TXT01_PARCEL")))
     )
   (progn
     (repeat (setq i (sslength ss))
(setq str
       (cdr
	 (assoc 1 (entget (setq e (ssname ss (Setq i (1- i))))))
       )
)
(if (numberp (setq v (read str)))
  (setq cont (cons (list  v (vlax-ename->vla-object e)) cont))
)
     )
     (setq cont (vl-sort cont
		  '(lambda (j k)
		     (< (car j) (car k))
		   )
	 )
     )
     (if (setq missed (_missing (mapcar 'car cont)))
(progn
	(setq cont
	       (cdr (member
		      (assoc (1- (setq num (car missed))) cont)
		      cont
		    )
	       )
	)
  (foreach val cont
    (vla-put-textstring
      (cadr val)
      (itoa num)
    )(setq num (1+ num))
  )
)
     )
   )
 )
 (princ)
)

 

how it will work ?

[BlackBox]

Hey guys, having just read this, and the OP's other thread, I think there's a bit of miscommunication here.

 

It seems our new friend from Bijnor, India is after some .NET code, not only due to their explicit request in the other thread, but as can be observed in the Visual Studio form designer icon shown in the upper left of post #11... Methinks the OP may have accidentally posted in the LISP forum.

 

While I do recognize that they're asking others to write code for them, without posting any source-code demonstrating an initial effort on their part, I truly do not think they intended to waste other's time in writing code for a different language altogether (in this case LISP).

 

For the record, I could be utterly mistaken here, but this is my understanding, so please take from it what you like.

 

Cheers