EaBIM一直以来积极响应国家“十二五”推进建筑业信息化的号召,对建筑领域的信息技术开展深入技术交流和探讨!致力于打造“BIM-建筑师-生态技术”三位一体综合资源交流共享平台,希望为BIM与可持续设计理念及技术的普及做出微小的贡献!!!

EaBIM

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
查看: 2647|回复: 52
打印 上一主题 下一主题

运用Inventor内置的导入文件功能

[复制链接]

1514

主题

7465

帖子

1万

积分

admin

Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10

积分
12404

社区QQ达人

跳转到指定楼层
楼主
发表于 2014-1-14 10:24:14 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

上次我写了篇文章介绍如何读取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

  1. <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
  2.     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
  3.     Dim oNewDoc As Document
  4.     Call addIn.Open(dm, context, nvm, oNewDoc)
  5.     oNewDoc.Views.Add
  6.    
  7.     'Call AutoStitchAndPromote method.
  8.     'Just a test, no specific meaning.
  9.     If oNewDoc.DocumentType = kPartDocumentObject Then
  10.         Dim ptDoc As partDocument
  11.         Set ptDoc = oNewDoc
  12.         ptDoc.componentDefinition.[_AutoStitchAndPromote]
  13.     End If</span></span></span></span></p>
复制代码
文章来源:http://blog.csdn.net/barbarahan
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友 微信微信
收藏收藏 转播转播 分享分享 分享淘帖 支持支持 反对反对
工作时间:工作日的9:00-12:00/13:30-18:00,节假日不在线,请勿留言

3

主题

778

帖子

1337

积分

BIM经理

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

积分
1337
推荐
发表于 2014-5-8 12:03:32 | 只看该作者
路过!!!
不发表意见……

1

主题

716

帖子

1133

积分

BIM项目负责人

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

积分
1133
推荐
发表于 2014-3-7 12:00:20 | 只看该作者
路过!!!
不发表意见……

8

主题

702

帖子

1224

积分

BIM经理

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

积分
1224
推荐
发表于 2014-2-18 12:15:11 | 只看该作者
路过!!!
不发表意见……

29

主题

977

帖子

1833

积分

BIM经理

Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6Rank: 6

积分
1833
9F
发表于 2014-2-22 20:16:16 | 只看该作者
(*^__^*) 嘻嘻……

1

主题

132

帖子

246

积分

BIM工程师

Rank: 3Rank: 3Rank: 3

积分
246

社区QQ达人

10F
发表于 2014-2-24 09:55:15 | 只看该作者
学习一下,谢谢
*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|EaBIM网 ( 苏ICP备2020058923号-1  苏公网安备32011502011255号

GMT+8, 2024-11-16 16:46

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表