Save reactor with the command Annoreset

[anthony.fresquez]

I'm hoping someone can help me figure out why the below lisp routine doesn't work. What I'm hoping to do is every time I save/qsave a drawing the command Annoreset is run. Thanks!

(defun AtSaveCommand (calling-reactor b)
(if
(or
(= (car b) "QSAVE")
(= (car b) "SAVEAS")
(= (car b) "SAVE")
)
(command "_.annoreset" "all" "")
)
)

(defun loadTheSaveReactor ()
(vl-load-com)
(if *FileOnSave* (vlr-remove *FileOnSave*))
(setq *FileOnSave*
(vlr-command-reactor nil 
'((:vlr-commandwillStart . AtSaveCommand)))
)
)
(loadTheSaveReactor)

[BlackBox]

Welcome to AUGI.

Your reactor fails for the simple reason that Visual LISP reactors do not support Command calls.

For that, you'll have to step up to .NET or ObjectARX (C++ for AutoCAD) APIs, which can easily call Commands (with or without Editor feedback) within a given event handler.

Cheers

[anthony.fresquez]

BLackBox, thanks for the feedback very much appreciated although those two suggestions are above my level of expertise so I'll have to do a bit of learning to come up to speed. Any suggestions on how to proceed?

[BlackBox]

Another alternative would be to write a routine that first calls ANNORESET, and then SAVE; just be sure to include an AUTOLOAD statement in addition to any CUI buttons, so user can call it from command line as well.

Learning .NET API can be +/- a year long process before you've absorbed enough to really do what you want, when you want. If this is the path you want to go down, let me know.

Cheers

[hmsilva]

Hy Anthony,
in addition to the excellent BlackBox advice, you could try to replace the command call, with a 'vla-sendcommand'

(defun AtSaveCommand (calling-reactor b)
(if
(or
(= (car b) "QSAVE")
(= (car b) "SAVEAS")
(= (car b) "SAVE")
)
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) (strcat "_.annoreset all \r"))
)
)

Hope this helps,
Henrique

[Opie]

You might review this thread regarding scale lists.

[anthony.fresquez]

thanks, everyone for responding to post, for now I'll go with Henrique suggestion as it runs the annoreset command upon saving the file and therefore resolving the issue when moving a annotative block via the grips.

[BIG-AL]

Have a look at this http://www.cadtutor.net/forum/showth...-radius./page3 it sends commands, note count spaces in some of the commands.