Topic: Edit this Reactor Lisp. Is it possible?

[titoprax]

Can anyone help me realize this?
With permission of Lee-Mac this List (http://www.lee-mac.com/autolabelattributes.html) offers a great help, giving us the possibility of knowing automatically, by attributes, the total number of a block (A). This value is an attribute.
Could have one text that would give us the highest value of the attribute of the block (A)?

I would like something



New text I can move?

Thanks for giving me permission Lee Mac
Sorry for my bad English

[CAB]

Could you do that with a FIELD and simply count the total number of 'A' blocks?

[titoprax]

No is possible.

[CAB]

Link to Block Count in a Field

[titoprax]

My opinion, this list is best and I only seek to add this modification to the List

[CAB]

A text or attribute for total number of a particular block can be updated with technique's in this lisp:
http://www.theswamp.org/index.php?topic=40880.msg461743#msg461743
Although it is only dealing with erased objects it can be made to count added objects as well.
Adding this sub and modifying the main lisp.

Code: [Select]

(defun _ObjAdded (a b / nent)
  (if (and *CommandFlag* (= InsertName TargetName))
    (progn
      ;;  increment a variable for the insert count
    )
  )
)
What I am giving you are the bones of the routine and much work is needed to complete it.

There are other reactor that may work too.

The premise here is that the start command reactor clears a counter variable and it is updated by the
ADD and ERASE reactors. Then the command END reactor would update the TEXT with a new value.
Not addressed or explored here are the OOPS and UNDO commands.

Another option is to simple count the INSERTS each time a command is used but filter for commands
that would modify the database like COPY PASTE ERASE INSERT OOPS & UNDO.

[CAB]

OK I modified Lee's routine to update a Block attribute with the total block count.
Find this in the code and update with your names.

Code: [Select]

(setq *blockname* "MyBlockName"  ;; Name of Block to be Updated
      *blocktag*  "MyTagName"    ;; Attribute Tag to be Updated
)

(setq *blocktotalname* "MyTotalsBlock"   ; CAB 02/17/2012
      *totalstag*      "MyTotalsTag"
)
Note you may need to REGEN to see the updates.

[titoprax]

it is possible only update a single block?
I have applied the list with several blocks and does not work

[CAB]

Please post your test drawing and I'll take a look.

You did do a REGEN to see any updates to the drawing?

[titoprax]

Here's an example.

[CAB]

OK the routine will handle one block name only. To use more you will need to modify teh routine.
The one I posted works with this drawing.

[titoprax]

there is only one .dwg

[CAB]

Yes the routine here http://www.theswamp.org/index.php?topic=40953.msg461871#msg461871
Will update the drawing I posted with the block count when adding or deleting the INSERT named "MyBlockName".
The Insert named "MyTotalsBlock" will be updated with the count.
A REGEN is needed to display the change.

[titoprax]

I attempt to modify the routine I used with more blocks in the dwg. I have not succeeded.

[titoprax]

I've tried with more than two blocks. I modified the routine for each block. But just last routine is updated when loading. Why?

[titoprax]

please, someone could help me?