ryankevin15 Posted August 16, 2017 Share Posted August 16, 2017 Hello, Does anyone know of a LSP out there that will number the selection below properly without editing each piece of text? Quote Link to comment Share on other sites More sharing options...
ryankevin15 Posted August 16, 2017 Author Share Posted August 16, 2017 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! Quote Link to comment Share on other sites More sharing options...
Steven P Posted August 16, 2017 Share Posted August 16, 2017 To create an array and increment each number then look at Lee Macs INCARRAY lisp and INCARRAYD Quote Link to comment Share on other sites More sharing options...
Steven P Posted August 16, 2017 Share Posted August 16, 2017 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 Quote Link to comment Share on other sites More sharing options...
asos2000 Posted August 16, 2017 Share Posted August 16, 2017 use Express command tcount And these lisps http://www.lee-mac.com/incrementalarray.html http://www.lee-mac.com/numinc.html Quote Link to comment Share on other sites More sharing options...
ryankevin15 Posted August 16, 2017 Author Share Posted August 16, 2017 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. Quote Link to comment Share on other sites More sharing options...
ryankevin15 Posted August 16, 2017 Author Share Posted August 16, 2017 tcount works great. thanks! Quote Link to comment Share on other sites More sharing options...
ronjonp Posted August 16, 2017 Share Posted August 16, 2017 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) ) Quote Link to comment Share on other sites More sharing options...
Lee Mac Posted August 16, 2017 Share Posted August 16, 2017 There's also this. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted August 17, 2017 Share Posted August 17, 2017 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. Quote Link to comment Share on other sites More sharing options...
himal Posted August 18, 2017 Share Posted August 18, 2017 Very Nice Program Mr Lee :thumbsup: Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.