Topic: Mulitple Attach Xref within a Lisp

[MSTG007]

I know this is a stupid question. I am trying to put together a simple lisp that walks a user through setting up a drawing. From inserting all the dim styles, text styles and layers, then going to paper space to attach some drawings (Title Block, legend) then back to model space to attach more drawings (proposed and existing).

I do like this routine but it will only allow the user to select 1 file at a time.

Code: [Select]

(defun c:QXA (/)
  (initdia)
  (command "_.-XREF" "_Attach")
  (if (> (getvar "CMDACTIVE") 0)
    (progn
      (command "_None" '(0.0 0.0 0.0))
      (while (> (getvar "CMDACTIVE") 0) (command ""))
    )
  )
  (princ)
); defun

Thanks for any light!

[ronjonp]

Use the command "XATTACH".

[MSTG007]

Smart Smart Smart! Works.

Code: [Select]

(defun c:QXA (/)
  (initdia)
  (command "_XAttach")
  (if (> (getvar "CMDACTIVE") 0)
    (progn
      (command "_None" '(0.0 0.0 0.0))
      (while (> (getvar "CMDACTIVE") 0) (command ""))
    )
  )
  (princ)
); defun
(C:QXA)
Thanks for those eyes or yours!