Topic: Removing JUNK of CAP 20

[Luke]

Can anybody tell me how to do the following?

EVERY TIME I close a drawing (by clicking the close X in the top right hand corner) I want the following to happen automatically:

If the layer A-Furn exists delet it and leave the layer that was current as the current layer.  If A-Furn can not be deleted because it is in use, that is fine it can stay.

Set O-snaps to Endpoint, Midpoint & Center

Unload the cui “capdesigner”

Thanks for you help!
Luke

[David Hall]

i would use the drawing close event in VBA

[David Hall]

Put this in acad.dvb file under ThisDrawing

Code: [Select]

Private Sub AcadDocument_BeginClose()
Dim l As AcadLayer
On Error Resume Next
ThisDrawing.SetVariable "osmode", 7
Set l = ThisDrawing.Layers.Item("A-Furn")
l.Delete

End Sub
as for unloading the cui, this is all i could find

from acad help file

MenuGroup: When a menu group is unloaded from the drawing, any references to the menus and toolbars within that group become invalid. Always delete or set to NULL any references to toolbars and menus that are in the menu group to be unloaded before you unload the menu group.

[terrycadd]

This method seems to only work for the Close command, and the top menu File/Close option. I couldn't get it to work with the upper right [X] close pick method. Also I didn't include the CUI request. I'm not sure how to do it.

Code: [Select]

(command "._undefine" "close")
(defun c:Close ()
  ;Include all last commands before exit here.
  (setvar "OSMODE" 7);endpoint, midpoint, center
  ;Purge layer A-Furn if nothing on it
  (if (and (not (ssget "x" (list '(8 . "A-Furn"))))(tblsearch "LAYER" "A-Furn"))
    (progn
      (if (= (getvar "CLAYER") "A-Furn")
        (setvar "CLAYER" "0");Your choice here
      );if
      (command "PURGE" "A-Furn" "N")
    );progn
  );if
  (command "._qsave")
  (command "._close")
);defun c:Close