读取Inventor文件导入/导出选项(NameValueMap)-EaBIM-BIM技术论坛www.EaBIM.net

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

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

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 " " & 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 " " & Options.Name(i) & " = " & Options.Value(Options.Name(i))
 Next
End If
End Sub
如果你搞不清楚上面提到的TranslatorAddin(插件)的ClassIdString，请运行下面的代码快速读取：Public Sub getInfoForAddins() Dim addins As ApplicationAddIns
Set addins = ThisApplication.ApplicationAddIns
Dim i As Integer
For i = 1 To addins.Count
 If addins(i).AddInType = kTranslationApplicationAddIn Then
 Debug.Print addins(i).DisplayName & addins(i).ClassIdString
 End If
Next i
End Sub 文章来源：http://blog.csdn.net/barbarahan

矮矮发表于 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

路过！！！
帮顶……

页: [1] 2 3

EaBIM's Archiver

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