读取Inventor文件导入/导出选项(NameValueMap)

萧闫子 · 发表于 2014-1-14 10:25:21

Inventor提供了与很多文件格式（比如DWF, DWG, DXF, IGES, STEP, SAT等）的导入/导出的功能。我们的二次开发人员可能会遇到需要对其中一些参数进行修改/设置的情况。

对于文件导入，你可以通过访问TranslatorAddin.HasOpenOptions方法来读取这些参数。对于文件导出（对应文件->另存为命令），你可以通过访问TranslatorAddin.HasSaveCopyAsOptions方法来读取这些参数。

下面是对应的VBA范例：

获取文件导入选项：（运行之前需要用你自己的.igs文件路径替换代码中的FileName的值）

Public Sub getImportOptions() Dim app As Application Set app = ThisApplication Dim addins As ApplicationAddIns Dim addIn As TranslatorAddIn Set addins = app.ApplicationAddIns Dim i As Integer 'get the addin On Error Resume Next For i = 1 To addins.Count If addins(i).AddInType = kTranslationApplicationAddIn Then If addins(i).ClassIdString = "{90AF7F44-0C01-11D5-8E83-0010B541CD80}" Then Set addIn = addins.Item(i) End If End If Next i 'Activate AddIns addIn.Activate Dim dm As DataMedium Set dm = app.TransientObjects.CreateDataMedium dm.FileName = "C:/My Documents/Inventor/Assembly1.igs" Dim context As TranslationContext Set context = app.TransientObjects.CreateTranslationContext context.Type = kFileBrowseIOMechanism Dim nvm As NameValueMap Set nvm = app.TransientObjects.CreateNameValueMap 'you can get the options now... If addIn.HasOpenOptions(dm, context, nvm) Then For i = 1 To nvm.Count Debug.Print "[Option Name] " & nvm.Name(i) & " = " & nvm.Value(nvm.Name(i)) Next End IfEnd Sub

复制代码

获取文件导出选项：Public Sub getDWFOptions()

Dim app As Application
Set app = ThisApplication
Dim addins As ApplicationAddIns
Dim DWFAddIn As TranslatorAddIn
Set addins = app.ApplicationAddIns
Dim i As Integer
On Error Resume Next
'Find the DWFAddIn
For i = 1 To addins.Count
If addins(i).AddInType = kTranslationApplicationAddIn Then
If addins(i).ClassIdString = "{0AC6FD95-2F4D-42CE-8BE0-8AEA580399E4}" Then
Set DWFAddIn = addins.Item(i)
End If
End If
Next i
'Activate AddIns
DWFAddIn.Activate
Dim SourceObject As Object
Dim Context As TranslationContext
Dim Options As NameValueMap
Dim transientObj As TransientObjects
Set transientObj = app.TransientObjects
Set Context = transientObj.CreateTranslationContext
Context.Type = kUnspecifiedIOMechanism
Set Options = transientObj.CreateNameValueMap
Set SourceObject = ThisApplication.ActiveDocument 'Check whether the translator has 'SaveCopyAs' options If DWFAddIn.HasSaveCopyAsOptions(SourceObject, Context, Options) Then
For i = 1 To Options.Count
Debug.Print "[Option Name] " & Options.Name(i) & " = " & Options.Value(Options.Name(i))
Next
End If
End Sub

复制代码

如果你搞不清楚上面提到的TranslatorAddin(插件)的ClassIdString，请运行下面的代码快速读取：Public Sub getInfoForAddins()

复制代码

矮矮 · 发表于 2014-2-18 12:26:12

路过！！！
不发表意见……

入樽 · 发表于 2014-6-9 16:00:01

(*^__^*) 嘻嘻……

best · 发表于 2014-6-9 15:57:14

(*^__^*) 嘻嘻……

JHXT杰西卡 · 发表于 2014-2-13 10:22:17

感谢分享

开始了d · 发表于 2014-2-18 12:13:21

顶！！！！！！！！！！！！！！！！！！！！！！！！！

毫半字 · 发表于 2014-2-18 12:17:11

路过！！！
帮顶……

★の风の☆ · 发表于 2014-2-18 12:25:30

(*^__^*) 嘻嘻……

雁田佬 · 发表于 2014-5-19 14:51:44

(*^__^*) 嘻嘻……

嫣雨遥 · 发表于 2014-5-21 14:30:49

路过！！！
帮顶……

dgren · 发表于 2014-5-21 14:31:05

路过！！！
帮顶……

长风 · 发表于 2014-5-23 16:35:17

顶!!!!!!!!!!

黑超BB · 发表于 2014-5-27 11:09:16

顶!!!!!!!!!!

龙龙..! · 发表于 2014-5-27 11:12:59

(*^__^*) 嘻嘻……

熊猫 · 发表于 2014-5-27 11:19:46

顶!!!!!!!!!!

順順 · 发表于 2014-6-6 12:11:17

(*^__^*) 嘻嘻……

看看侃侃 · 发表于 2014-6-6 12:14:25

路过！！！
帮顶……

帐号		自动登录	找回密码
密码			注册