topic Re: Make a reactor that once a dynamic block visibility is changed explode and purge block. in Visual LISP, AutoLISP and General Customization Forum

Make a reactor that once a dynamic block visibility is changed explode and purge block.

Sea-Haven — Thu, 23 Mar 2023 10:02:24 GMT

Hope the title makes sense I have been asked for very cad illiterate that if they change the visibility of a dynamic block from default to another state that the block is exploded and then purged. The idea is that the block no longer exists but its state does.

Any body have any idea if it is even feasible. I am a beginner when it comes to reactors.

I think the following would be the way to go, checking both of them.

:vlr-beginClose :vlr-beginSave

To make life harder the dynamic block is part of a layout in another dwg. So user can do a Layout T "Layoutname" so this loses say the handle ID. The only common item is block name and hopefully there is only one in dwg.

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Sea-Haven — Fri, 24 Mar 2023 03:32:56 GMT

Following on have come up with this to get around user input loaded on start up.

(vl-load-com) (defun REMOVE1 ( / ) (setq CLOSEDWGX nil) (princ "closing xxx") (vl-cmdf "-purge" "B" "IMG" "N") ) (setq CLOSEDWGX (vlr-dwg-reactor nil '((:vlr-beginclose . REMOVE1)))) (defun REMOVE2 ( / ) (setq SAVEDWGX nil) (princ "saving xxx") (vl-cmdf "-purge" "B" "IMG" "N") ) (setq SAVEDWGX (vlr-dwg-reactor nil '((:vlr-beginsave . REMOVE2))))

Works in Bricscad but Autocad comes up with a message about "to many variables" which I am sure is associated with the purge.

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Moshe-A — Fri, 24 Mar 2023 15:13:51 GMT

@Sea-Haven hi,

1. :vlr-beginSave require the callback function to have 2 arguments.

2. i'm not sure but think running (vl-cmdf) or (command) is not allowed in callback.

3. always check for reactor validate before installing it 😀

enjoy

Moshe

(defun REMOVE2 (obj fname) (setq SAVEDWGX nil) (princ "saving xxx") (vl-cmdf "-purge" "B" "IMG" "N") ) (if (not SAVEDWGX) (setq SAVEDWGX (vlr-dwg-reactor nil '((:vlr-beginsave . REMOVE2)))) )

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Sea-Haven — Sat, 25 Mar 2023 00:43:20 GMT

Thanks yes needs 2 items for defun I used (setq fname (getvar 'dwgname)) outside of the reactor defun so it exists, but OBJ ?

I am struggling to find examples of VLR-Beginsave only 1 I found had similar pass 2 variables but no mention of what they were.

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Moshe-A — Sat, 25 Mar 2023 07:20:08 GMT

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Sea-Haven — Sat, 25 Mar 2023 09:29:08 GMT

Thanks Moshe-A but what is a "database object to save at" ? Just no help anywhere I have been googling and searching. the example I found of using save have the same 2 random variables but what are they ?

I am going around in circles trying all sorts of combos for the values of obj

(vla-get-activedocument (vlax-get-acad-object))

(vlax-get-acad-object)

or is it the block object ?

The file name is not being read also.

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Moshe-A — Sat, 25 Mar 2023 18:35:51 GMT

@Sea-Haven ,

think i have it now 😀 (the documentation is not accurate)

the first argument is the reactor

the second is a list with 2 items

the first item is AcadDatabase (which is a bit different from AcadDocument see documentation)

the second item is the name of current temporary dwg file which AutoCAD work on.

Moshe

(defun REMOVE2 (reactor lst) (terpri) (vlax-dump-object (car lst) t) (princ fname) (terpri) (setq SAVEDWGX nil) (princ "saving xxx") (vl-cmdf "-purge" "B" "IMG" "N") )

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Sea-Haven — Sun, 26 Mar 2023 23:44:39 GMT

Thanks Moshe-A will have a play, trying to get client to use a autoloaded lisp rather than relying on a reactor. That sets the dynamic block explodes and purges so all done.

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Sea-Haven — Fri, 07 Apr 2023 07:13:34 GMT

Still trying to get this to work getting closer but just missing soemthing.

(defun REMOVE1 ( / ssvft efname blk) (if (tblsearch "Block" "CLIENT IMG") (progn (setq ssvft (ssget "X" '((0 . "INSERT")(2 . "CLIENT IMG")))) (if ssvft (mapcar '(lambda (ent) (vla-Delete (vlax-ename->vla-object Ent))) (vl-remove-if-not '(lambda (x) (= (type x) 'ename)) (mapcar 'cadr (ssnamex ssvft)))) ) ) ) (setq ssvft (ssget "X" (list (cons 0 "INSERT")(cons 2 "**U*")))) (if ssvft (repeat (setq x (sslength ssvft)) (setq blk (vlax-ename->vla-object (ssname ssvft (setq x (1- x))))) (setq efname (vla-get-effectivename blk)) (if (= efname "CLIENT IMG") (vla-delete blk) ) ) ) (vla-sendcommand reactor-acdoc "-purge B CLIENT IMG \nN\n") (setq CLOSEDWG nil) ) (or reactor-acdoc (setq reactor-acdoc (vla-get-activedocument (vlax-get-acad-object))) ) (setq CLOSEDWG (vlr-dwg-reactor nil '((:vlr-beginclose . REMOVE1))))

Any help would be appreciated.

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

doaiena — Fri, 07 Apr 2023 10:13:42 GMT

Reactors are events in AutoCad that trigger functions. Instead of manually executing functions, you can set up different events that will. You can add multiple types of reactors that trigger multiple different functions, or even the same function. You could add the same reactor multiple times, so you should be careful when dealing with reactors.

;Reactor callback function (defun BeginCloseFunc (reactor lst) ;Your code goes here ) ;if the reactor does not exist, create it (if (not _BeginCloseReactor) (setq _BeginCloseReactor (VLR-Dwg-Reactor nil '((:VLR-beginClose . BeginCloseFunc)))))

To set up a reactor, you need to specify the reactor type, the event you are waiting for and the function to be executed.

(ReactorType nil '((Event . FunctionToBeExecuted)))

One more thing:

(vla-get-activedocument (vlax-get-acad-object))

This is the active document object. It has nothing to do with the reactors. If you need to use it, you can simply add it as a local variable inside your function.

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Sea-Haven — Mon, 10 Apr 2023 02:57:30 GMT

Again I am missing something I understand the passing to the defun but what is reactor ?? Or is it that my code is incorrect.

In another reactor code I have (defun fillet-reactor-callback ( obj com ) and yes I look at what is in com.

Short version try in any dwg with a block.

(defun VFTREMOVE1 (reactor / ssvft efname blk) (princ "running") (if (tblsearch "Block" "CLIENT IMG") (progn (setq ssvft (ssget "X" '((0 . "INSERT")(2 . "CLIENT IMG")))) (if ssvft (mapcar '(lambda (ent) (vla-Delete (vlax-ename->vla-object Ent))) (vl-remove-if-not '(lambda (x) (= (type x) 'ename)) (mapcar 'cadr (ssnamex ssvft)))) ) ) ) (setq CLOSEDWG nil) ) (or vft-reactor-acdoc (setq vft-reactor-acdoc (vla-get-activedocument (vlax-get-acad-object))) ) (setq CLOSEDWG (vlr-dwg-reactor "VFTREM" '((:vlr-beginclose . VFTREMOVE1))))

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

komondormrex — Mon, 10 Apr 2023 08:47:25 GMT

hey,

reactor is resident trigger, programmed to a certain event and having caught the latter running a corresponding program

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

Sea-Haven — Mon, 10 Apr 2023 08:56:42 GMT

That does not mean anything to me.

I need a fully working code example. Not explanations. Just make it erase a block in the dwg and purge occurrences of it from the dwg when saving or closing. The requirement is that users have no input or else would use a custom command. Which is easy to do. Its about a proprietary dynamic block.

I am sure its so simple what I am missing I have spent hours on this. Anybody that sees my name on post will realise I am really stuck with something I have no idea how to solve and I don't get stuck often.

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

komondormrex — Mon, 10 Apr 2023 09:28:59 GMT

and what is prospect scenario? in first post you said it should check if visibility state in dynamic block was changed... in what you are writing now it is somewhat different.

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

doaiena — Mon, 10 Apr 2023 10:58:08 GMT

I haven't tested the code, but it should work.

;Reactor callback function (defun BeginCloseFunc (reactor lst / blocks) (if (setq blocks (ssget "X" '((0 . "INSERT")))) (progn (vl-cmdf "erase" blocks "") (vl-cmdf "-purge" "B" "" "N") )) (cond ((= (vlr-current-reaction-name) ':VLR-beginSave) (alert "This function has been triggered by a Document Save event.")) ((= (vlr-current-reaction-name) ':VLR-beginClose) (alert "This function has been triggered by a Document Close event.")) ) (princ) );defun ;if the reactors do not exist, create them ;note that both reactors use the same function (if (not _BeginCloseReactor) (setq _BeginCloseReactor (VLR-Dwg-Reactor nil '((:VLR-beginClose . BeginCloseFunc))))) (if (not _BeginSaveReactor) (setq _BeginSaveReactor (VLR-Dwg-Reactor nil '((:VLR-beginSave . BeginCloseFunc)))))

Re: Make a reactor that once a dynamic block visibility is changed explode and purge block.

_Tharwat — Mon, 10 Apr 2023 12:03:00 GMT

Why don't you hire someone to write it for you ?