ObjectDBX: vla-Detach

BlackBox · 发表于 2022-7-6 07:18:55

As Reference Manager can only change the path to External References, and not the name of the reference drawing itself (which I need to do), I'm looking into correcting a set of drawings using ObjectDBX.

I've been successful at adding XREFs to ODBX drawings in the past using vla-AttachExternalReference, but am not understanding why I am receiving this error when attempting to detach:

copy

; error: Automation Error. Description was not provided.

Here is my 'working' code at the moment:

[code](defun c:FOO (/ sheets path dbx n oXref) (vl-load-com) (if (and (setq sheets (vl-directory-files (setq path "SomePath\\") "*.dwg" 1)) (setq dbx (vla-GetInterfaceObject (vlax-Get-Acad-Object) (strcat "ObjectDBX.AxDbDocument." (substr (getvar 'acadver) 1 2))))) (progn (foreach sheet sheets (vl-catch-all-apply 'vla-open (list dbx (strcat path sheet))) (vlax-for x (setq oLayoutBlock (vla-get-block (vla-item (vla-get-layouts dbx) "Model"))) (if (and (= "AcDbBlockReference" (vla-get-objectname x)) (vl-position (setq n (vla-get-effectivename x)) '("XREF1" "XREF2")) (= :vlax-true (vla-get-isxref (setq oXref (vla-item (vla-get-blocks dbx) n))))) (vla-detach oXref))) ;

SOliver · 发表于 2022-7-6 07:22:41

I think you need to reference the document as the first parameter and then the xref as a second

copy

(vla-detach dbx oXref)

BlackBox · 发表于 2022-7-6 07:27:49

Soliver, I appreciate the suggestion.

Despite the parameters listed in the Developer Documentation, I tried your suggestion anyways with no success.

See the error returned:

copy

; error: ActiveX Server returned the error: unknown name: Detach

... As the ODBX Document Object does not inherit the Detach Method.

SOliver · 发表于 2022-7-6 07:29:13

Heavy
I think this post covers it: http://www.cadtutor.net/forum/archive/index.php/t-44133.html

I reckon the following is roughly what you're looking for from the link.

copy

(vlax-for block (setq blocks(vla-get-blocks dbx)))   (if(= (vla-get-isXRef block) :vlax-true)   (vla-detach block) ))

wishbonesr · 发表于 2022-7-6 07:35:27

RenderMan,
Did you ever resolve this?

BlackBox · 发表于 2022-7-6 07:36:54

Knowing full well that I am willingly, officially zombifying this thread....

Wow I was bad about posting my solution back then... I did, and will dig through my toolbox to see if I cannot find what I used. I've learned a lot since back then, and may have changed code for other uses, etc..

Is there something specific your needing other than what I describe above?

BlackBox · 发表于 2022-7-6 07:39:35

Of course, were I coding this new, I'd probably use the .NET API... Specifically ReadDwgFile() and Autodesk.AutoCAD.Internal.Utils.WcMatch(string, string) Methods.

wishbonesr · 发表于 2022-7-6 07:44:00

Specifically. Detaching an xref from a drawing that is opened with dbx.
I'm converting a lisp that originally only functioned in the current session. Now I wish to convert to batch processing with dbx.
I'm just not there in .net yet.

vla-detach works in the current session, but fails in dbx - exactly the problem you had. How did you wind up detaching while in dbx?

One suggestion was to vla-delete = failed
The post suggested by SOliver also did not solve. Couldn't really tell if Joro was getting results and Lee was trying to troubleshoot..??, or if Lee hadn't tested the concept first?? Either way, it was a similar issue. Lee's code generated the Automation error without vla-catch-all-apply.

I would have started a new post, but I didn't see that age of this post in my browser. Thanks for looking back into this.

BlackBox · 发表于 2022-7-6 07:46:16

It was so long ago, I honestly do not remember how I got around this... I'll see what I can find, and post back.

Lee Mac · 发表于 2022-7-6 07:51:39

As far as I know, XRefs are not loaded in drawings opened with ObjectDBX and hence cannot be detached.

[编程交流] ObjectDBX: vla-Detach

发表回复

精选推荐