CAD 2006 autonumber LISP

[probins01]

I have the following macro that was created for CAD LT to auto-increment numbering for multiple objects, but I would like to use it in CAD 2006. Can it be modified to work in 2006 full CAD? *^C^C_undo;_mark;_setenv;StartWithNumber;\_-text;\;$M=$(getenv,StartWithNumber) ;setenv;StartWithNumber;$(+,1,$(getenv,StartWithNumber)); ^M

Alternately, is there a LISP routine to achieve the same result?

[VVA]

Look this:

num renum atnum

[probins01]

Very helpful indeed!