Copying and Increasing attributes

[bagulhodoido]

Hi there.

 

Is there anyway to increase an atributte when copying some text. Like, I oftenly need to number walls on drawings. So, like, I copy the text EW 01 (exterior wall 01) and when I paste it, I want it to become EW 02.

 

Thanks for your help.

[paulmcz]

Hi there.

 

Is there anyway to increase an atributte when copying some text. Like, I oftenly need to number walls on drawings. So, like, I copy the text EW 01 (exterior wall 01) and when I paste it, I want it to become EW 02.

 

Thanks for your help.

 

I use this:

 

;;; Replaces selected attribute value with new one and adds sequential number at the end
;;; Author paulmcz Copyright© 2006

(defun c:qs (/ ans st nw oerr e1 e2 natt)
 (setq oerr *error*)
 (defun *error* (msg)
   (princ "\n ERROR!")
   (setq *error* oerr)
   (command)
   (princ)
 )
 (if ns
   (princ (strcat "\n Previous text = " ns (itoa stt)))
 )
 (if ns
   (setq
     ans (getstring
    "\n Keep previous text? [ENTER = yes]: "
  )
   )
 )
 (if (= ans "")
   ()
   (setq ns nil
  st nil
   )
 )
 (if ns
   ()
   (setq ns (getstring t "\n Type in new text: "))
 )
 (if stt
   ()
   (setq stt 1)
 )
 (princ "\n Start with number < ")
 (princ stt)
 (princ " >?: ")
 (setq st (getint))
 (if (= st nil)
   (setq st stt)
   (setq stt st)
 )
 (setq nw (strcat ns (itoa st)))
 (setq e1 (nentsel "\n Select attribute, do not miss: "))

 (while e1
   (setq e2 (entget (setq natt (car e1))))
   (entmod (subst (cons 1 nw) (assoc 1 e2) e2))
   (entupd natt)
   (if	(eq (cdr (assoc 0 e2)) "ATTRIB")
     (setq st (+ 1 st))
     (princ "\n You missed! ")
   )
   (if	st
     (setq nw	(strcat ns (itoa st))
    stt	st
     )
   )
   (setq e1 (nentsel "\n Select next attribute or [ENTER] to exit: "))
 )
 (princ)
)

(prompt "\n Type > qs < to update attributes: ")

 

It is not made for copy & paste but it works the similar way. Try it.

[bagulhodoido]

I use this:

 

;;; Replaces selected attribute value with new one and adds sequential number at the end
;;; Author paulmcz Copyright© 2006

(defun c:qs (/ ans st nw oerr e1 e2 natt)
 (setq oerr *error*)
 (defun *error* (msg)
   (princ "\n ERROR!")
   (setq *error* oerr)
   (command)
   (princ)
 )
 (if ns
   (princ (strcat "\n Previous text = " ns (itoa stt)))
 )
 (if ns
   (setq
     ans (getstring
       "\n Keep previous text? [ENTER = yes]: "
     )
   )
 )
 (if (= ans "")
   ()
   (setq ns nil
     st nil
   )
 )
 (if ns
   ()
   (setq ns (getstring t "\n Type in new text: "))
 )
 (if stt
   ()
   (setq stt 1)
 )
 (princ "\n Start with number < ")
 (princ stt)
 (princ " >?: ")
 (setq st (getint))
 (if (= st nil)
   (setq st stt)
   (setq stt st)
 )
 (setq nw (strcat ns (itoa st)))
 (setq e1 (nentsel "\n Select attribute, do not miss: "))

 (while e1
   (setq e2 (entget (setq natt (car e1))))
   (entmod (subst (cons 1 nw) (assoc 1 e2) e2))
   (entupd natt)
   (if    (eq (cdr (assoc 0 e2)) "ATTRIB")
     (setq st (+ 1 st))
     (princ "\n You missed! ")
   )
   (if    st
     (setq nw    (strcat ns (itoa st))
       stt    st
     )
   )
   (setq e1 (nentsel "\n Select next attribute or [ENTER] to exit: "))
 )
 (princ)
)

(prompt "\n Type > qs < to update attributes: ")

It is not made for copy & paste but it works the similar way. Try it.

 

 

Thanks man.

 

Btw, what am I supposed to select (and NOT MISS) when it prompts to select the attributes?

 

I thought it was the text string so It would keep the desired style, but whenever I select the strings it prompts a "You missed!"

[paulmcz]

Select attribute value to be updated or changed

[bagulhodoido]

Select attribute value to be updated or changed

 

Hmm, But what am I doing wrong?

 

I select the text string I want to update and it says You missed!

 

It does change the string for, in my case, EW1, but the next string I select becomes EW1 again and so it goes.

 

I wanted it to be like, first one EW1, next string, EW2. You know, like that.

 

That's how it works right?

[paulmcz]

The green texts in the title block in the attached drawing are all attributes. If you start the routine and click on any of the green text, it should update with any next one having incremented number at the end. Try it and let me know if it works with the attached drawing.

10DX05,5HX2LXMELRWA32959.dwg

[bagulhodoido]

The green texts in the title block in the attached drawing are all attributes. If you start the routine and click on any of the green text, it should update with any next one having incremented number at the end. Try it and let me know if it works with the attached drawing.

 

Oh, that's what you ment by attributes.

 

Hm, I don't really know how to manage them. I'll look on Autocad help files about creating blocks with attributes.

 

Thanks for your help.

[paulmcz]

If you just want to insert annotation incremental text, try my numbering routine. Read first few lines in the code, to see what it does.

numbering.lsp

[bagulhodoido]

If you just want to insert annotation incremental text, try my numbering routine. Read first few lines in the code, to see what it does.

 

Exactly what I wanted. Amazing lisp.

 

Thanks for your help.

[paulmcz]

You are welcome

[AJBuckers]

Hi Paul, firstly thanks for the lisp routine, it's great and very useful.

One question though, I used it to incrementally number blocks on my drawings representing pile foundations. These often number into the 100's so when prompted with "start with number?" I entered 001 but the 0's were left out when I clicked on the attributes. Is there a way for the number to keep the 0's at the beginning? The 0's make the numbers list in order when I run a data extraction to create a piling table.

 

Make sense? Cheers in advance.

[paulmcz]

Try this. You don't have to type in the preceding zeros. It does it automatically.

atted-00.lsp

[AJBuckers]

Thanks a lot, perfect!

[ajazraj]

If you just want to insert annotation incremental text, try my numbering routine. Read first few lines in the code, to see what it does.

 

thanks for the lisp, i found it very helpful. Is it possible for u to edit the routine so that annotation incremental text gets aligned to curves and lines.

[paulmcz]

No, it is not possible for me right now. Sorry.

[ajazraj]

No, it is not possible for me right now. Sorry.

 

ok, thanks by the way.

[nnatev]

Using autocad architecture 2014 Lisp works great, but the location of the inserted text is not at the crosshairs. Can you fix this?

[paulmcz]

If it is not inserted at the crosshairs, where is it inserted?