Topic: How to attach Xref in closed file?

[HasanCAD]

Hi all
I am working on a project, part of it to attach xref in model and another one in layout in a closed file.
I belive it can be done using ODBX.
Lets say

Code: [Select]

(setq f  "C:\\Test\\A100.dwg") ; The file
(setq Xf "C:\\Test\\2.0-GENERAL\\FRAME\\XFrame.dwg") ; Xref to be attach[quote]ed in layout
(setq XA "C:\\Test\\2.0-GENERAL\\FRAME\\File.dwg")   ; Xref to be attached in model

Can some one put me on track.
Any help will be appreciated.

[ronjonp]

Some info HERE.

[HasanCAD]

Some info HERE.

Thanks ronjonp

[HasanCAD]

Thanks ronjonp
It is working pefect for model.
but I can't figure out how to attach to layout.

[HasanCAD]

I used Blackbox function as subroutine to insert 2 files as Xref
I noticed that
I can't attach the second function delete previous attachment.

Code - Auto/Visual Lisp: [Select]

1. (setq Plan    "C:\\Test\\A100.dwg")
2. (setq Xref_01 "C:\\Test\\Xref-01.dwg")
3. (setq Xref_02 "C:\\Test\\Xref-02.dwg")
4.  
5. (AttchXrf Plan Xref_01)
6. (AttchXrf Plan Xref_02)

Code - Auto/Visual Lisp: [Select]

1. (defun AttchXrf (orgn Xrf / dbx master)
2. ; BlackBox
3. ; http://www.cadtutor.net/forum/showthread.php?57980-ObjectDBX-Vla-AttachExternalReference
4.   (vl-load-com)                         ; (AttchXrf orgn Xrf)
5.   (if (setq dbx (vla-GetInterfaceObject
6.                   (vlax-Get-Acad-Object)
7.                   (strcat "ObjectDBX.AxDbDocument."
8.                           (substr (getvar 'acadver) 1 2)
9.                   )
10.                 )
11.       )
12.     (progn
13.       (vlax-for lay (vla-get-layouts dbx)
14.         (if (= "MODEL" (strcase (vla-get-name lay)))
15.           (progn (vla-attachexternalreference
16.                    (vla-get-block lay)
17.                    Xrf
18.                    (vl-filename-base Xrf)
19.                    (vlax-3d-point '(0. 0. 0.))
20.                    1.
21.                    1.
22.                    1.
23.                    0.
24.                    :vlax-true
25.                  )
26.           )
27.         )
28.       )
29.       (vl-catch-all-apply 'vla-saveas (list dbx orgn))
30.       (setq dbx (vl-catch-all-apply 'vlax-Release-Object (list dbx)))
31.     )
32.   )
33.   (princ)
34. )