上次我写了篇文章介绍如何读取Inventor文件导入/导出选项,现在要介绍的是,如何运用修改后的选项将文件打开(即导入到Inventor中)。你可以修改一些文件的导入选项,也可以不修改(即采用默认值)。一旦你改了选项的值,这些值就能直接用于后面的文件导入操作中。文件的导入其实两三行代码就能实现。比如: Dim oNewDoc As Document Call addIn.Open(dm, context, nvm, oNewDoc) oNewDoc.Views.Add 每一种文件格式,比如IGES,都有不同的选项。IGES文件导入选项中有个叫AutoStitchAndPromote的。该选项是决定是否要自动的缝合并且提升实体。你需要设置另外一个选项CreateSurfIndex为3或者4,AutoStitchAndPromote选项才能被成功设置。从Inventor的用户界面的打开文件命令中可以看到所有的IGES导入选项,选择创建面的类型(Create Surface As type)为第3个选项或者第4个选项的时候,自动缝合和提升(Auto Stitch And Promote)选项才会变成可选的。这就是我前面解释的CreateSurfIndex和AutoStitchAndPromote的关系。 请记住,现在你可以用自己的程序来修改这些选项并运用这些修改后的选项来导入文件,但是用户界面上的设置不会被你改变,它们还是你上次从用户界面上设好的值。 下面是一个承接前一篇文章读取Inventor文件导入/导出选项中的例子的追加代码,用来修改两个选项值,然后导入(即打开)文件,并示范调用一个API方法: 'Demo: change some options - <p style="color: rgb(0, 0, 0); font-family: Arial; line-height: 26px; "><span style="font-family: 宋体; "><span style="font-size: x-small; "><span style="font-family: arial, helvetica, sans-serif; "><span style="font-size: small; "> nvm.Value("CreateSurfIndex") = 3
- nvm.Value("AutoStitchAndPromote") = False</span></span></span></span></p><p style="color: rgb(0, 0, 0); font-family: Arial; line-height: 26px; "><span style="font-family: 宋体; "><span style="font-size: x-small; "><span style="font-family: arial, helvetica, sans-serif; "><span style="font-size: small; "> 'Open the file
- Dim oNewDoc As Document
- Call addIn.Open(dm, context, nvm, oNewDoc)
- oNewDoc.Views.Add
-
- 'Call AutoStitchAndPromote method.
- 'Just a test, no specific meaning.
- If oNewDoc.DocumentType = kPartDocumentObject Then
- Dim ptDoc As partDocument
- Set ptDoc = oNewDoc
- ptDoc.componentDefinition.[_AutoStitchAndPromote]
- End If</span></span></span></span></p>
复制代码 文章来源:http://blog.csdn.net/barbarahan
|