Detach Xref via ObjectDBX
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Google
 
Web cadforums.net
Detach Xref via ObjectDBX

 
Post new topic   Reply to topic    CADForums.net Forum Index -> VBA
Author Message
Michael
Guest
Posted: Wed Mar 30, 2005 1:49 am    Post subject: Detach Xref via ObjectDBX Reply with quote
I am trying to detach all xrefs via oDBX?

I get the error "Method Unload failed" Has anyone been able to do this?




Code....

dbxDoc.Open FileStr
For Each Ent In dbxDoc.ModelSpace
If TypeOf Ent Is AcadBlockReference Then
Set BlkRef = Ent
Set Blk = dbxDoc.Blocks(BlkRef.Name)
If Blk.IsXRef Then
Blk.Detach
End If
End If
Next
dbxDoc.Save

Back to top
Tony Tanzillo
Guest
Posted: Wed Mar 30, 2005 3:44 am    Post subject: Re: Detach Xref via ObjectDBX Reply with quote
First you must specify what release of AutoCAD you
are working with.

AFAIK, there is no Xref functionality in documents
that are accessed via ObjectDBX.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2004/2005
http://www.acadxtabs.com

"Michael" <Michael@Michael> wrote in message news:4249bf6d$1_2@newsprd01...
I am trying to detach all xrefs via oDBX?

I get the error "Method Unload failed" Has anyone been able to do this?




Code....

dbxDoc.Open FileStr
For Each Ent In dbxDoc.ModelSpace
If TypeOf Ent Is AcadBlockReference Then
Set BlkRef = Ent
Set Blk = dbxDoc.Blocks(BlkRef.Name)
If Blk.IsXRef Then
Blk.Detach
End If
End If
Next
dbxDoc.Save
Back to top
MP
Guest
Posted: Wed Mar 30, 2005 3:50 am    Post subject: Re: Detach Xref via ObjectDBX Reply with quote
nope
Xrefs not available via oDbx
check google for confirmation
:-(

"Michael" <Michael@Michael> wrote in message news:4249bf6d$1_2@newsprd01...
I am trying to detach all xrefs via oDBX?

I get the error "Method Unload failed" Has anyone been able to do this?




Code....

dbxDoc.Open FileStr
For Each Ent In dbxDoc.ModelSpace
If TypeOf Ent Is AcadBlockReference Then
Set BlkRef = Ent
Set Blk = dbxDoc.Blocks(BlkRef.Name)
If Blk.IsXRef Then
Blk.Detach
End If
End If
Next
dbxDoc.Save

Back to top
 
Post new topic   Reply to topic    CADForums.net Forum Index -> VBA All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum




Windows Server DSP VoIP Electronics New Topics
Powered by phpBB