Start Numbering From 0

[ImagenZeta]

This work perfect for numbering vertexes in a polyline, nIt starts numbers from "1", but is there a way to make it start numbering from "0"??????

(defun c:vername (/ e i j m n p s x)
  (if (and (setq s (ssget '((0 . "LWPOLYLINE"))))
	   (setq x (getstring "\nSpecify prefix <enter for none>: "))
	   )
    (repeat (setq i (sslength s))
      (setq e (ssname s (setq i (1- i)))
	    n (cdr (assoc 210 (entget e)))
	    m (vlax-curve-getendparam e)
	    j -1
      )
      (while (<= (setq j (1+ j)) m)
	(setq p (trans (vlax-curve-getpointatparam e j) 0 e))
	(entmakex
	  (list
	    (cons 0 "TEXT")
	    (cons 7 (getvar 'TEXTSTYLE))
	    (cons 40 (getvar 'TEXTSIZE))
	    (cons 10 p)
	    (cons 11 p)
	    (cons 72 1)
	    (cons 73 2)
	    (cons 1 (strcat x (itoa (1+ j))))
	    (cons 210 n)
	  )
	)
      )
    )
  )
  (princ)
)

[WarrenGeissler]

While you may get lucky and get an answer here, you are going to get a faster response and much better bandwidth posting this over in the AutoCAD Customization / LISP forum >>HERE<<

[ImagenZeta]

Thanks a lot, I'll follow your advice.

[Anonymous]

(defun c:vername (/ e i j m n p s x)
  (if (and (setq s (ssget '((0 . "LWPOLYLINE"))))
	   (setq x (getstring "\nSpecify prefix <enter for none>: "))
	   )
    (repeat (setq i (sslength s))
      (setq e (ssname s (setq i (1- i)))
	    n (cdr (assoc 210 (entget e)))
	    m (vlax-curve-getendparam e)
	    j -1
      )
      (while (<= (setq j  (1+ j) ) m)
	(setq p (trans (vlax-curve-getpointatparam e j) 0 e))
	(entmakex
	  (list
	    (cons 0 "TEXT")
	    (cons 7 (getvar 'TEXTSTYLE))
	    (cons 40 (getvar 'TEXTSIZE))
	    (cons 10 p)
	    (cons 11 p)
	    (cons 72 1)
	    (cons 73 2)
	    (cons 1 (strcat x (itoa (- (1+ j) 1))))
	    (cons 210 n)
	  )
	)
      )
    )
  )
  (princ)
)

[Anonymous]

I did not test, but I think it works. @ImagenZeta

(cons 1 (strcat x (itoa (- (1+ j) 1))))

[ВeekeeCZ]

---

@Anonymous wrote:

I did not test, but I think it works. @ImagenZeta

(cons 1 (strcat x (itoa (- (1+ j) 1))))

---

Man, better double check your math. 

[Anonymous · Accepted solution]

lol

This may not be a more elegant way to do it, but it will work !!

[Anonymous]

That's better ?

(cons 1 (strcat x (itoa j)))

[pbejse]

What would be the the value of variable j with this line Frjuniornogueira?

...
(cons 1 (strcat x (itoa (- (1+ j) 1))))
...

There is no need to add 1 to variable j  at (1+ j ) , which makes j 1 from  0 and then reduce the the value by 1 to make 0 when the value of j is already 0 to start with at (<= (setq j (1+ j)) m).

[Anonymous]

It really was a slip, I only realized when the @ВeekeeCZ corrected me!

but correct me here.

(cons 1 (strcat x (itoa j)))

[pbejse · Accepted solution]

---

@Anonymous wrote:

It really was a slip, I only realized when the @ВeekeeCZ corrected me!

but correct me here.

(cons 1 (strcat x (itoa j)))

---

That is the quickest fix. so its all good.

I also suggested the same here. 

One can also set j to 0 here

...
	    m (vlax-curve-getendparam e)
	    j 0
      )
...

Then increase the value of variable j  after entmake and not before.

	    (cons 73 2)
	    (cons 1 (strcat x (itoa j)))
	    (cons 210 n)
	  )
	)
        (setq j (1+ j))
      )

or even use repeat in place of while 

(repeat (1+ (fix m)) ...

There's more than one way to skin a cat. 🙂

HTH