基于SolidEdge的二次开发技术的应用

核心提示： 图2 选中所需要的库 图3 VB的对象浏览器2.调用Solid Edge应用程序当选择VB为一个支持ActiveX Automation的应用程序进行编程开发时，就必须和该程序进行通讯，基于SolidEdge的二次开发技术的应用(3)，Solid Edge提供的应用对象(Applicati

图2 选中所需要的库

图3 VB的对象浏览器

2.调用Solid Edge应用程序

当选择VB为一个支持ActiveX Automation的应用程序进行编程开发时，就必须和该程序进行通讯。Solid Edge提供的应用对象(Application)为实现这种通讯提供了可能。应用对象是惟一一个允许Visual Basic程序直接访问的对象，它位于层次结构树的顶部，可以也只能通过该对象才能访问其下级的所有其他对象。

VB提供了两个函数调用Solid Edge：CreateObject和GetObject。

Dim objApp as Object

Set objApp=CreateObject("SolidEdge.Application")

Set objApp =GetObject("","SolidEdge.Application")

两个语句都创建不可见的Solid Edge应用对象。

下面的语句使用GetObject连接到已经存在的Solid Edge实例：

Set objApp=GetObject(," SolidEdge.Application")

该语句会搜索已经存在的Solid Edge实例，如果找到，变量objApp指向该实例;否则，命令失败。

在使用CreateObject或者GetObject来驱动Solid Edge的应用时，该应用不会自动创建文档对象，必须使用文档集合对象的Add方法来建立一个文档对象。Add方法是有参数的，该参数用于确定所创建的文档对象的类型或者使用的模板。如果参数为空，程序会提示用户选择一个模板。下面语句的功能是在新建的应用中建立一个零件文档对象：