Carpark Numbering

is there any way you can number spaces so they update automatically for example if you delete one? ie 1 2 3 4 5 you remove space 3 and it renumbers 1 2 3 4

thanks

Are you using LT as your profile states? Or do you have access to the full version?

I was thinking either FIELDS or Reactors - but in both situations the program would be quite complex.

Are you using LT as your profile states? Or do you have access to the full version?

 

I was thinking either FIELDS or Reactors - but in both situations the program would be quite complex.

I can gain access to autocad full.

The following code will not update automatically

as you wanted be but you can do it by selection

these texts on screen (probably you need to

add other selection otions to the filter list say

like textstle, textsize, layer etc

Sorry I haven't have a time to test it

(defun c:renum (/ elist entlist init sset)
 (command "._zoom" "_e")
 (if (setq sset (ssget "X"
       (list
  (cons 0 "*TEXT")   ;<-- tetx,mtext
  (cons 1 "#,##,###,####")  ;<-- select integer numeric text only like: 1,22,333,4444
  (cons 410 (getvar "ctab"));<-- current tab
  ))
    )
   (progn
     (setq init (1- (atoi
    (cdr
      (assoc 1
      (entget
        (car
   (setq entlist
   (vl-sort      
     (vl-remove-if
       'listp
       (mapcar 'cadr (ssnamex sset)))
    (function (lambda (a b)
         (< (cdr (assoc 1 (entget a)))
            (cdr (assoc 1 (entget b))))))
    ))))))
    )
)
    )

     (foreach en  entlist

(setq elist (entget en))

(princ (strcat "\n ===>>> Number "
      (cdr (assoc 1 (entget en)))
      " was replaced with "
      (itoa (1+ init)))
      )

(entmod (subst (cons 1 (itoa (setq init (1+ init))))
        (assoc 1 elist)
        elist))

)
     )
   )
 (command "._zoom" "_p")
 (princ)
 )

~'J'~