Reactor for dwg close - how to

chulse · 发表于 2022-7-6 11:21:43

I am working on a reactor to set several things on dwg close. A little background is HERE.

The trouble I am having now is that it seems to do what it's supposed to, except it doesn't save the changes.
I have this as part of the S::STARTUP (I have a "mystartup" appended to it and saved in the acaddoc.lsp file - shared on our network)

Any help greatly appreciated.

copy

(defun Create_Close_Reactor() (vl-load-com) (if(not close:reactor)   (setq close:reactor     (vlr-editor-reactor nil       '((:vlr-beginClose . CloseReaction))))   ); end if (princ) ); end of Create_Close_Reactor(defun CloseReaction(args reac / tmp actDoc) (setq actDoc(vla-get-ActiveDocument       (vlax-get-acad-object)))  (vla-put-ActiveSpace actDoc 1)  (vla-ZoomExtents(vlax-get-acad-object))  (vla-put-ActiveLayer actDoc   (vla-Item(vla-get-Layers actDoc)"0"))   ;;(repeat 3(vla-PurgeAll actDoc)) ;;set ucs to world;; (vla-put-ActiveUCS doc   (vla-add (vla-get-usercoordinatesystems doc)     (vlax-3D-point '(0. 0. 0.))       (vlax-3D-point '(1. 0. 0.))         (vlax-3D-point '(0. 1. 0.)) "TempWord_UCS"))          (vla-Save actDoc) (princ) ); end of CloseReaction(Create_Close_Reactor)

alanjt · 发表于 2022-7-6 11:27:48

You do realize that you can never open a drawing without saving.

chulse · 发表于 2022-7-6 11:29:33

Well no, I didn't...

But if I open a dwg, work on it, save it and close it, this reactor appears too make the changes before the close as it is supposed to (change to model space, zoom extents, set the ucs to world, etc - I can watch it do it)
but when I open the dwg again, it has not saved those changes??
I'm just not sure what I am missing here...

Lee Mac · 发表于 2022-7-6 11:33:53

Hi Cary,

I might approach it like this:

copy

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] CloseReactor [b][color=BLUE]nil[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b] [i][color=#990099];; Lee Mac  ~  14.04.10[/color][/i] [b][color=RED]([/color][/b]  [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] data [b][color=BLUE]/[/color][/b] react [b][color=RED])[/color][/b]      [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] react            [b][color=RED]([/color][/b][b][color=BLUE]vl-some[/color][/b]              [b][color=RED]([/color][/b][b][color=BLUE]function[/color][/b]                [b][color=RED]([/color][/b][b][color=BLUE]lambda[/color][/b] [b][color=RED]([/color][/b] reactor [b][color=RED])[/color][/b]                  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] data [b][color=RED]([/color][/b][b][color=BLUE]vlr-data[/color][/b] reactor[b][color=RED])[/color][/b][b][color=RED])[/color][/b] reactor[b][color=RED])[/color][/b]                [b][color=RED])[/color][/b]              [b][color=RED])[/color][/b]              [b][color=RED]([/color][/b][b][color=BLUE]cdar[/color][/b]                [b][color=RED]([/color][/b][b][color=BLUE]vlr-reactors[/color][/b] [b][color=Blue]:vlr-editor-reactor[/color][color=RED])[/color][/b]              [b][color=RED])[/color][/b]            [b][color=RED])[/color][/b]          [b][color=RED])[/color][/b]        [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vlr-added-p[/color][/b] react[b][color=RED])[/color][/b]          [b][color=RED]([/color][/b][b][color=BLUE]vlr-remove[/color][/b] react[b][color=RED])[/color][/b]          [b][color=RED]([/color][/b][b][color=BLUE]vlr-add[/color][/b] react[b][color=RED])[/color][/b]        [b][color=RED])[/color][/b]        [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] react          [b][color=RED]([/color][/b][b][color=BLUE]vlr-editor-reactor[/color][/b] data            [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]              [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=Blue]:vlr-beginclose[/color][/b] [b][color=DARKRED]'[/color][/b]CloseCallBack[b][color=RED])[/color][/b]            [b][color=RED])[/color][/b]          [b][color=RED])[/color][/b]        [b][color=RED])[/color][/b]      [b][color=RED])[/color][/b]      [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b]        [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vlr-added-p[/color][/b] react[b][color=RED])[/color][/b]          [b][color=#a52a2a]"\n** Reactor Activated **"[/color][/b]          [b][color=#a52a2a]"\n** Reactor Deactivated **"[/color][/b]        [b][color=RED])[/color][/b]      [b][color=RED])[/color][/b]      react    [b][color=RED])[/color][/b]   [b][color=#a52a2a]"Close-Reactor"[/color][/b] [b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] CloseCallBack [b][color=RED]([/color][/b]reactor arguments[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-put-ActiveSpace[/color][/b]   [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] doc [b][color=RED]([/color][/b][b][color=BLUE]vla-get-ActiveDocument[/color][/b]               [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] acad [b][color=RED]([/color][/b][b][color=BLUE]vlax-get-acad-object[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]             [b][color=RED])[/color][/b]   [b][color=RED])[/color][/b]   [color=Blue][b]acModelSpace[/b][/color] [b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-ZoomExtents[/color][/b] acad[b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-put-ActiveLayer[/color][/b] doc   [b][color=RED]([/color][/b][b][color=BLUE]vla-item[/color][/b]     [b][color=RED]([/color][/b][b][color=BLUE]vla-get-layers[/color][/b] doc[b][color=RED])[/color][/b] [b][color=#a52a2a]"0"[/color][/b]   [b][color=RED])[/color][/b] [b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-put-ActiveUCS[/color][/b] doc   [b][color=RED]([/color][/b][b][color=BLUE]vla-add[/color][/b]     [b][color=RED]([/color][/b][b][color=BLUE]vla-get-usercoordinatesystems[/color][/b] doc[b][color=RED])[/color][/b]       [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009999]0.[/color][/b] [b][color=#009999]0.[/color][/b] [b][color=#009999]0.[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]         [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009999]1.[/color][/b] [b][color=#009999]0.[/color][/b] [b][color=#009999]0.[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]           [b][color=RED]([/color][/b][b][color=BLUE]vlax-3D-point[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009999]0.[/color][/b] [b][color=#009999]1.[/color][/b] [b][color=#009999]0.[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#a52a2a]"TempWord_UCS"[/color][/b]   [b][color=RED])[/color][/b] [b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]eq[/color][/b] [b][color=#a52a2a]""[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]vla-get-FullName[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]   [b][color=RED]([/color][/b][b][color=BLUE]vla-saveas[/color][/b] doc [b][color=RED]([/color][/b][b][color=BLUE]vla-get-FullName[/color][/b] doc[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Here, the reactor function is a toggle, and can be toggled on and off whilst the drawing is open. The reactor will only save the drawing if the drawing has been saved previously.

Its untested, but hopefully should work for you.

Lee