AUTOMATIC NUMBERING

[muhamed_ragab92]

how can i number the attribute blocks as in image - i want to increment variable x from 1 and by 1 , can i find lisp make it

[Anonymous]

@muhamed_ragab92 Try this:  Automatically Label Attributes

[_gile]

Hi,

You can also use the Increment plugin. This is not LISP but it allows to increment an attribute while inserting blocks or increment attributes of already inserted blocks by selecting them one by one or accordin to X and Y axis for a selection.

The above screencast shows the French version working which is identical to the English one.

Screencast will be displayed here after you click Post.

f6a86b2f-7014-48c5-a60d-a9bc1fbe317e

[muhamed_ragab92]

can you tell me how it work because i loaded it and cant use it

[muhamed_ragab92]

can you explain me how it work in my case ?

[Anonymous]

---

@muhamed_ragab92 wrote:

can you tell me how it work because i loaded it and cant use it

---

Open the program in Notepad and follow the instructions below:

[_gile]

If the blocks are already inserted (as in the provided picture), after having set the start value, you can:

• choose the "Selection" tab > check the "Block" check box > choose the block name in the drop down list > choose the attribute tag in the drop down list > select the blocks one by one so that each selection incements the attribute value ;
• choose the "Auto" tab > check the "Block" radio button > choose the block name in the drop down list > choose the attribute tag in the drop down list > choose the incrementation order > select the blocks.

All this is described in the screencast (at 1:58 for "Selection" mode and at 3:15 for "Auto" mode)

[muhamed_ragab92]

this method is acceptable with one block but  i want several of another blocks with same attribute as example FAX/L1 and make X variable to increment from 1 by 1

[muhamed_ragab92]

THANKS It's worked but with one type of block , can i use it with many blocks with same attribute

[_gile]

Sorry, but the program was designed to work with one block at a time.

[Anonymous]

@muhamed_ragab92 You can try this:

(defun c:Demo (/ pre post i j ss1 dat ent etdata found)
 (if (and
       (/= (setq pre (getstring "\nPrefix: ")) "")
       (not (initget (+ 2 4)))
       (setq post (getint "\nNumber: "))
     )
  (progn
   (setq j 0) 
   (while (setq ss1 (ssget '((0 . "insert")(66 . 1))))
    (setq i -1)
    (repeat (sslength ss1) 
     (setq i (1+ i))
     (setq dat (strcat pre (itoa (+ post j)))
	   ent (ssname ss1 i) j (1+ j) found nil)
      
     (while (and (setq ent (entnext ent)) (not found))
      (setq etdata (entget ent))
      (if (and
	   (eq (cdr (assoc 0 etdata)) "ATTRIB")
	   (eq (strcase (cdr (assoc 2 etdata))) "TEST")
	  )
       (progn
        (entmod (subst (cons 1 dat) (assoc 1 etdata) etdata))
        (entupd ent)
        (setq found t)
       ); progn
      ); if
     ); inner while
    ); repeat
   ); outer while
  ); progn
 ); if
 (princ)
)

[muhamed_ragab92]

are you sure it work , i try it but not working with me and its not the same in picture , increment number not show

[Anonymous]

---

@Anonymous wrote:

@muhamed_ragab92 You can try this:

(defun c:Demo (/ pre post i j ss1 dat ent etdata found)
 (if (and
       (/= (setq pre (getstring "\nPrefix: ")) "")
       (not (initget (+ 2 4)))
       (setq post (getint "\nNumber: "))
     )
  (progn
   (setq j 0) 
   (while (setq ss1 (ssget '((0 . "insert")(66 . 1))))
    (setq i -1)
    (repeat (sslength ss1) 
     (setq i (1+ i))
     (setq dat (strcat pre (itoa (+ post j)))
	   ent (ssname ss1 i) j (1+ j) found nil)
      
     (while (and (setq ent (entnext ent)) (not found))
      (setq etdata (entget ent))
      (if (and
	   (eq (cdr (assoc 0 etdata)) "ATTRIB")
	   (eq (strcase (cdr (assoc 2 etdata))) "TEST")
	  )
       (progn
        (entmod (subst (cons 1 dat) (assoc 1 etdata) etdata))
        (entupd ent)
        (setq found t)
       ); progn
      ); if
     ); inner while
    ); repeat
   ); outer while
  ); progn
 ); if
 (princ)
)

---

@muhamed_ragab92 Sorry!
replace pink text with your TAG name.

[muhamed_ragab92]

can you add suffix in this script ?

[Anonymous · Accepted solution]

@muhamed_ragab92 Something like ?

(defun c:Demo (/ pre post i j ss1 dat ent etdata found)
 (if (and
       (/= (setq pre (getstring "\nPrefix: ")) "")
       (/= (setq suf (getstring "\nSuffix: ")) "")
       (not (initget (+ 2 4)))
       (setq post (getint "\nNumber: "))
     )
  (progn
   (setq j 0) 
   (while (setq ss1 (ssget '((0 . "insert")(66 . 1))))
    (setq i -1)
    (repeat (sslength ss1) 
     (setq i (1+ i))
     (setq dat (strcat pre (itoa (+ post j)) suf)
	   ent (ssname ss1 i) j (1+ j) found nil)  
     (while (and (setq ent (entnext ent)) (not found))
      (setq etdata (entget ent))
      (if (and
	   (eq (cdr (assoc 0 etdata)) "ATTRIB")
	   (eq (strcase (cdr (assoc 2 etdata))) "TEST")
	  )
       (progn
        (entmod (subst (cons 1 dat) (assoc 1 etdata) etdata))
        (entupd ent)
        (setq found t)
       ); progn
      ); if
     ); inner while
    ); repeat
   ); outer while
  ); progn
 ); if
 (princ)
)

"Accept as Solution" if it has solved the problem.

[muhamed_ragab92]

Thanks so much , its worked with me after i edit the name attribute "test"