Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
KarelC
in reply to: psaarloos

Hi,
for this problem I use my inventor macro (seven years old). I tryed it only for idw. You can try it for dwg.

 

Sub Vymaz_ExtRef()
Dim oDoc As Inventor.Document
Dim ref As Inventor.ReferencedOLEFileDescriptor
Dim i As Integer
Dim names As String
'get external references:
Set oDoc = ThisApplication.ActiveDocument
names = ""
i = 1
For Each ref In oDoc.ReferencedOLEFileDescriptors
names = names & Chr(10) & Chr(13) & ref.DisplayName & " = " & ref.FullFileName
ref.Delete
i = i + 1
Next
MsgBox ("References:" & names)
End Sub

___________________________________________________________
Dell Precision T3620
Inventor 2019, Autocad Mechanical 2019, Vaul Basic 2019