vla-bind Error

[Anonymous]

I am trying to bind the Xref in a drawing, without open that drawing. I have 120 drawings to bind.

I have tried below coding.

(setq ver (substr (vla-get-version (vla-get-application (vla-get-activedocument (vlax-get-acad-object)))) 1 2))
(setq DbDoc (strcat "ObjectDBX.AxDbDocument." ver))
(setq DdBx (vla-getinterfaceobject (vlax-get-acad-object) DbDoc))
(setq cFile (getfiled "Select Drawing File" "" "dwg" 4))
(vlax-invoke-method DdBx 'open cFile)
(setq blk (vla-get-blocks DdBx))
(setq n 0)
(repeat (vla-get-count blk)
	(setq item (vla-item blk n))
	(if (eq (vla-get-isxref item) :vlax-true)
		(prong
			(vla-bind item :vlax-false)
		);prong
	);if
	(setq n (1+ n))
);repeat

But It returns the error. "Automation Error.Key Not Found"

Please help in this.

Thanks in advance

STM

[Anonymous]

Why don't use command: _etransmit ?

[Anonymous]

No. I want to bind the Xref.

[Anonymous]

We are always bind all xref in multi file via command : _etransmit

Try it .!

[Anonymous]

Ok. What is the Problem with vla-bind ?

[Anonymous]

I think: 

(if (eq (vla-get-isxref item) :vlax-true)
		(prong ;;;<---------------------------syntax error ?

			(vla-bind item :vlax-false)
		);prong
	);if

[Anonymous]

Sorry. t's a typing error.

its "(progn" only.

But this mistake is not the problem.

STM

[Anonymous · Accepted solution]

As far as i know, you can not bind xref via DBX.

Try for block. Or _ETRANSMIT

Good luck.

[Shneuph · Accepted solution]

All I can say is this code works with the file open in AutoCAD but when I try with your DdBx method it fails with that error.  Has something to do with not having the file open?

(vlax-for tlv-block tlv-blk
  (if (and (not (= (vla-get-name tlv-block) "*Model_Space"))
	   (not (= (vla-get-name tlv-block) "*Paper_Space"))
	   (= (vla-get-isxref tlv-block) :vlax-true)
	   );and
    (vla-bind tlv-block :vlax-true)
    );if
  );vlax-for

[Anonymous]

Thanks Pony and Shneuph for the reply.

STM

[Anonymous]

Hello thavasi.

Perhaps you did solve it yet, but perhaps it can help.

The question is that the Vla-Bind function does not require the drawing where it applies to, so it allways try to bind the reference into the active drawing (even if it is inserted into another one). That's why it shows an error.

I've solve this issue creating a simple text file at a trusted location (the file acaddoc.lsp) with the autoexecutable routine on file open, and deleting it at the end of the process.

The routine is something like this:

(defun s::startup ()
     (command "-xref" "b" "*")
     (command "saveas" 2013 (strcat (getvar "dwgprefix") "Binded\\" (getvar "dwgname")))
     (command "close")
)

The main routine will have to open all the required files. I've detected that the files opened via VLA-OPEN routine does not execute the acaddoc.lsp routines, so I reccomend to use the (Command "-open"...) function.

Hope that it will help.