Numbering equipment with text LSP

[ryankevin15]

Hello,

 

Does anyone know of a LSP out there that will number the selection below properly without editing each piece of text?

 

[ryankevin15]

Also, anyone know if a way where you could rotate the entire selection by 90 degrees and the text rotates with it? Would want that as a totally separate LSP if possible. thanks!

[Steven P]

To create an array and increment each number then look at Lee Macs INCARRAY lisp and INCARRAYD

[Steven P]

as for your second question, I depends how many times you need to do this, I would just rotate it and use the properties menu to set the text rotation.. but there might be a smart way to do all that in one go

[asos2000]

use Express command tcount

 

And these lisps

http://www.lee-mac.com/incrementalarray.html

http://www.lee-mac.com/numinc.html

[ryankevin15]

Not what I was looking for but thanks for the response.

 

I am looking for a LISP where I select all the text objects and it can order them from the first number to the last text object in increments of one. I do not like arrays.

[ryankevin15]

tcount works great. thanks!

[ronjonp]

Here's another:

(defun c:number	(/ i s)
 (setq i 0)
 (if (and (setq s (ssget ":L" '((0 . "text")))))
   (foreach e
     (vl-sort (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
	      '(lambda (a b) (> (caddr (assoc 10 (entget a))) (caddr (assoc 10 (entget b)))))
     )
     (entmod (append (entget e) (list (cons 1 (itoa (setq i (1+ i)))))))
   )
 )
 (princ)
)

[Lee Mac]

There's also this.

[BIGAL]

If you use annotative text an option is set angle to view so if you rotate what you have the text will rotate back to horizontal.

[himal]

Very Nice Program Mr Lee :thumbsup: