Приветствую Вас, уважаемые коллеги!
Кертис Вагеспек ( Сurtis Waguespack ), оч.хороший человек, как и все мы, пишет книжки про работу в inventor и делиться своими наработками.
Предлагаю вам созданное им правило iLogic.
Правило предназначено для замены ссылки для производного компонента ( Derived Component ) на файл базовой детали.
________________________
Код:
Dim oDoc as Document
oDoc = ThisDoc.Document
Dim oRefFile As FileDescriptor
Dim oOrigRefName As Object
For Each oRefFile In oDoc.file.ReferencedFileDescriptors
'get the full file path to the original internal references
oOrigRefName = oRefFile.FullFileName
'present a File Selection dialog
Dim oFileDlg As inventor.FileDialog = Nothing
InventorVb.Application.CreateFileDialog(oFileDlg)
oFileDlg.InitialDirectory = oOrigRefName
oFileDlg.CancelError = True
On Error Resume Next
oFileDlg.ShowOpen()
If Err.Number <> 0 Then
Return
ElseIf oFileDlg.FileName <> "" Then
selectedfile = oFileDlg.FileName
End If
'replace the reference
oRefFile.ReplaceReference (selectedfile)
InventorVb.DocumentUpdate()
oOrigRefName = ""
Next
iLogicVb.UpdateWhenDone = True
_________________________________