Topic: multiple xrefs....

[ronjonp]

Do any of you have a routine to force an xref to be detached even if it exist more than once in a drawing on multiple tabs?

Thanks,

Ron

[MP]

If you erase all instances of an xref, save the drawing, and then re-open it AutoCAD will dump the xref definition all by itself. Of course, one can automate this via lisp /vba too ...

[ronjonp]

Michael,

I've been deleting all instances manually and got tired of it.....so you know anyone that could whip up this routine .

Ron

[MP]

Michael,

I've been deleting all instances manually and got tired of it.....so you know anyone that could whip up this routine .

Ron

Ahhh. Sorry bud, I'm tied up until 10pm +/- and the little bit of grey matter I'll have left after that won't be of much use (not that I'm currently all that coherent). But fear not, lot's of capable hands here ...

[Bob Wahr]

no error control, limited thought, less testing but this should get you.

Code: [Select]

Sub KillDaXwefs()
Dim objWascawyXwef As AcadBlock
Dim objblks As AcadBlocks
Dim intCnt As Integer
Set objblks = ThisDrawing.Blocks
For intCnt = objblks.Count - 1 To 0 Step -1
  Set objblk = objblks(intCnt)
  If objblk.IsXRef Then
    objblk.Detach
  End If
Next intCnt
End Sub

[Andrea]

simply use....


OVERKILL  command.

 

[MP]

Assuming all instances share the same insert point and scale would be folly imo.

[Kerry]

Assuming all instances share the same insert point and scale would be folly imo.

Isn't that what backups are for ??

[MP]

Isn't that what backups are for ??

<Jeff Spicolli> Whaaaa? </Jeff Spicolli>

[Kerry]

Isn't that what backups are for ??

<Jeff Spicolli> Whaaaa? </Jeff Spicolli>

http://new.wavlist.com/movies/116/ftrh-card.wav

[MP]

lol, touche.

 

[ronjonp]

simply use....


OVERKILL  command.

No workie...

Bob,

I get an error with your code "Duplicate Key" on the line     objblk.Detach

Ron

[Bob Wahr]

Code: [Select]

Sub KillDaXwefs()
Dim objWascawyXwef As AcadBlock
Dim objblks As AcadBlocks
Dim intCnt As Integer
Dim objSelSet As AcadSelectionSet
Dim objSelSets As AcadSelectionSets
Dim intGroup(0) As Integer
Dim varData(0) As Variant
Dim strSetName As String
Dim objBlkRef As AcadBlockReference

Set objSelSets = ThisDrawing.SelectionSets
strSetName = "LeftInAlbekoikie"
  intGroup(0) = 0: varData(0) = "INSERT"
 
  KillSet strSetName
  Set objSelSet = objSelSets.Add(strSetName)
  objSelSet.Select acSelectionSetAll, , , intGroup, varData

  For Each objBlkRef In objSelSet
    If TypeOf objBlkRef Is AcadExternalReference Then
      objBlkRef.Delete
    End If
  Next objBlkRef
Set objblks = ThisDrawing.Blocks
For intCnt = objblks.Count - 1 To 0 Step -1
  Set objWascawyXwef = objblks(intCnt)
  If objWascawyXwef.IsXRef Then
    objWascawyXwef.Detach
  End If
Next intCnt

End Subgive this one a shot then

[ronjonp]

Now it says sub or function not defined:  KILLSET

hhmmm

Ron

[Bob Wahr]

sorry.  Toss this in with it

Code: [Select]

Function KillSet(strSet As String)
  Dim objSelSet As AcadSelectionSet
  Dim objSelSets As AcadSelectionSets
 
  Set objSelSets = ThisDrawing.SelectionSets
     
  For Each objSelSet In objSelSets
    If objSelSet.Name = strSet Then
      ThisDrawing.SelectionSets.Item(strSet).Delete
    Exit For
    End If
  Next

End Function