Looking for a LISP routine...

[StykFacE]

Anyone have a Lisp routine of a keynote (circle keynote prefereably) with an attribute that when you copy it, it numbers automatically? i have to number HVAC grille locations per Unit, and so i have a lot of "repeating" keynotes. it just has to start from one and go up until i stop the routine, and start back from one when i restart the routine. Anyone have anything like this laying around in a dusty corner of your hard drive?? Thanks in advance.....

[fixo]

Play around this one
There is not exactly what you need
but may helps
Change a keynote block name and tag to
your suit

~'J'~

(defun c:ibl (/ atd blk cnt ech ipt next next_data osm tag)
  (setq osm (getvar "osmode"))
  (setq ech (getvar "cmdecho"))
  (setq atd (getvar "attdia"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setvar "attdia" 1)

  (setq cnt (getint "\nEnter first number: "))
  (if cnt
  (progn
  ;(setq tag (strcase (getstring "\nEnter attribute tag for numbering: ")))
  (setq tag "SEQ");change attribute tag "SEQ" to your suit
  

(while (setq ipt (getpoint "\nPick insertion point"))

	(command "-insert" "ONE" ipt 1 1 0);<- change block name "ONE" here
	(setq blk (entlast))
	(setq next blk)
        (while (setq next (entnext next))
	(setq next_data (entget next))
	(if (= tag (cdr (assoc 2 next_data)))
	  (progn
	    (entmod (subst (cons 1 (itoa cnt)) (assoc 1 next_data) next_data))
	    (entupd blk)
	  )
	)
      )
		    (setq cnt (1+ cnt))
		    )
      )
    )

  (setvar "osmode" osm)
  (setvar "attdia" atd)
  (setvar "cmdecho" ech)
  (prin1)
  )
 (prompt "\ntype iBL to execute ...")
 (prin1)
 ;;;TesT : (c:ibl)

[VVA]

Look here http://www.cadtutor.net/forum/showthread.php?t=11114

[StykFacE]

Fatty, you are the friggin' MAN. awesome dude, thanks... worked PERFECT.

EDIT: VVA, thanks for the links, i'll check those out too. but Fatty made exactly what i was looking for.

[fixo]

You are welcome, Tannar
Cheers

~'J'~