Assigning an xref to a layer

[Wdobbin]

I have been using the code below to assign xrefs to the necessary layer when there bought into drawings. This works well however, this does not work when using add on package, I can see the process to attach an xref using the package is evoked using _dmsattach as shown in the image attached.

I was wondering how I could add this command to the below code to ensure that when I attach an xref through the add on package it will go to the correct layer?

Any help would be greatly appreciated.

(if (null myxr-react)
  (setq myxr-react (vlr-command-reactor nil '((:vlr-commandwillstart . myxr-swaplayer)
					      (:vlr-commandended . myxr-restorelayer)
					      (:vlr-commandcancelled . myxr-restorelayer))))
  )

(defun setormakelayer (layn doc)
    (if	(null (tblsearch "layer" layn))
      (vla-add (vla-get-layers doc) layn))
    (setvar "clayer" layn)
)

;;commandwillstart callback (reactor commandlist)
(defun myxr-swaplayer (r cl / doc)
  (if (wcmatch (strcase (car cl)) "*XATTACH*,*XREF*,*-XREF* ");allowance for other commands
    (progn
      (setq doc (vlr-document r))
      (vlr-data-set r (getvar "clayer"))
    (if
      (= 1 (vla-get-activespace doc))
      (setormakelayer "_XREF" doc)
      (setormakelayer "_XREF" doc)
      ))))

;;commandended callback (reactor commandlist)
(defun myxr-restorelayer (r cl)
  (if (and (member (car cl) '("XREF" "XATTACH" "-XREF"))
	   (vlr-data r))
    (setvar "clayer" (vlr-data r))
    (vlr-data-set r nil)
    )
  )

[BlackBox]

Not familiar with _dmsattach; perhaps simply making these two lines the same will help:

(if (null myxr-react)
  (setq myxr-react (vlr-command-reactor nil '((:vlr-commandwillstart . myxr-swaplayer)
					      (:vlr-commandended . myxr-restorelayer)
					      (:vlr-commandcancelled . myxr-restorelayer))))
  )

(defun setormakelayer (layn doc)
    (if	(null (tblsearch "layer" layn))
      (vla-add (vla-get-layers doc) layn))
    (setvar "clayer" layn)
)

;;commandwillstart callback (reactor commandlist)
(defun myxr-swaplayer (r cl / doc)
  (if (wcmatch (strcase (car cl)) "*ATTACH,*XCLIP*,*XREF");allowance for other commands
    (progn
      (setq doc (vlr-document r))
      (vlr-data-set r (getvar "clayer"))
    (if
      (= 1 (vla-get-activespace doc))
      (setormakelayer "_XREF" doc)
      (setormakelayer "_XREF" doc)
      ))))

;;commandended callback (reactor commandlist)
(defun myxr-restorelayer (r cl)
  (if (wcmatch (strcase (car cl)) "*ATTACH,*XCLIP*,*XREF");allowance for other commands
	   (vlr-data r))
    (setvar "clayer" (vlr-data r))
    (vlr-data-set r nil)
    )
  )