01-12-2016
04:45 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-12-2016
04:45 AM
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
Dell Precision T3620
Inventor 2019, Autocad Mechanical 2019, Vaul Basic 2019