Autodesk Inventor

Вчера забрал из сети одну утилитку. Называется SaveAsDerived. Всем известен механизм вызова производного компонента (Derived part) - крайне не удобно (открыл, переключился ... и т.д.). Эта утилита позволяет прямо в среде детали с которой работаешь вызвать табличку от Derived Part и сохранить как (в масштабе, отраженную и т.д.). Можно назначить макросом по умолчанию и вынести значок на панель управления. Приведу здесь оригинальный текст:

Аннотация:
To use create a module named SaveAsDerived and paste in this code.
Then place the BMP icon in the same directory as your active IVB file
(Default.ivb most likely). Restart IV and then got to Tools>Customize>commands>Macros and you should see the macro and icon button.
Drag it to your toolbar.

Сам модуль:

Public Sub SaveAsDerived()

'written by and property of Sean Dotson, copyright 2006
'if you plan to use this code be my guest, just drop me a line
'to let me know you are...

'declare the environment
Dim oApp As Application
Dim oCurrentDoc As Document
Dim oNewDoc As Document
Dim UseDefaultTemplate As Boolean

Set oApp = ThisApplication
Set oCurrentDoc = oApp.ActiveDocument

Select Case oApp.ActiveDocumentType

Case kAssemblyDocumentObject, kPartDocumentObject

sCurrentFileName = ThisApplication.ActiveDocument.FullFileName

If sCurrentFileName = "" Then
MsgBox "The active file must first be saved"
Exit Sub
End If

'if you want to use the default template then set UseDefaultTemaplte = True
'if you want to use a custom template set the path and filename of sTemplatePart and UseDefaultTemaplte = False

UseDefaultTemplate = True
sTemplatePart = "K:\Inventor R9 Templates\_RND\Std Part.ipt"

Select Case UseDefaultTemplate
Case True
Set oNewDoc = oApp.Documents.Add(kPartDocumentObject)
Case False
Set oNewDoc = oApp.Documents.Add(kPartDocumentObject, sTemplatePart, True)
End Select

'Get the control definition that represents the derived part command.
Dim oDerivedCommandDef As ControlDefinition
Set oDerivedCommandDef = ThisApplication.CommandManager.ControlDefinitions.Item("PartDerivedComponentCmd")

'Post the filename to the private event queue.
Call ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, sCurrentFileName)

'Start the derived part command.
oDerivedCommandDef.Execute

Case Else
MsgBox "You must first have a Part or Assembly document open"

End Select

End Sub

Скопировать прямо отсюда и сделать файл *.ivb для папки с макросами. Попробую значок от этой утилиты выложить здесь

называется "saveasderived.saveasderived.small.bmp"