信息化 频道

基于Solid Edge的塑料门窗三维CAD系统的设计

3 关键技术问题
3.1 Solid Edge对象层次结构
     Solid Edge对象之间一般通过对象层次结构的形式互相联系。Solid Edge 的对象层次结构可以描述为自上而下的树结构,其根节点对象通常是一个应用。要访问应用中的一个对象,必须从层次树中的顶部向底部遍历,直到找到需要访问的对象。Solid Edge拥有四种工作环境:零件(Part)、钣金(sheet Metal)、装配(Assembly)和工程图(Draft),其中 ,零件和钣金共用一个对象层次结构,而装配和工程图分别拥有各自独立的层次结构。每个文档对象都包含了各自的属性与方法,这些属性有包含很多子属性和方法。对象与方法的调用关系与使用Solid Edge建模的过程是一致的,在二次开发时只要按照设计的思路,分步调用适当的对象和方法,就可以实现所需要的功能[1]。


3.2 特征信息的提取和匹配
     塑料门窗CAD系统的基础是变量化设计。系统首先创建了型材和常用窗型的参数化模型,用户可以通过选择不同的设计参数完成常用窗型的参数化设计。为了提高系统的柔性,增加了窗型编辑模块。在已经生成的参数化模型的基础上,有计算机提取相关特征信息并与窗型知识库相匹配。通过特征的识别,获取用户的输入信息,自动完成窗型零件类型的识别。特征信息提取的主要方法是利用Solid Edge的对象层次结构,遍历相关特征集合,找到实体中的所有特征[2]。利用特征对象的方法,提取特征属性,获得特征的定义信息。例如遍历窗型文件中每个零件,判别出边框和中梃的代码如下:
  Set objApp = GetObject(, "solidedge.application")
    If Err Then
        Err.Clear
        Set objApp = CreateObject("solidedge.application")
        End If
        objApp.Visible = False
        Set objDocs = objApp.Documents
        If objDocs.Count <> 0 Then
           objApp.ActiveDocument.Close (False)
        End If
        Set objdoc = objDocs.Open(Bpath)
            If Err Then
            Err.Clear
            MsgBox "不能打开所选窗型"
            Else
            Set objParts = objdoc.Occurrences
            For i = 1 To objParts.Count
                Set objpart = objParts.Item(i)     
          llx = Getlx(objpart)
                If llx = "xk" Then
                   Text1.Text = Getedit(objpart)
                   QDKC = Getedit(objpart)
                ElseIf llx = "zk" Then
                   Text2.Text = Getedit(objpart)
                   QDKG = Getedit(objpart)
                End If
            Next i
      End If

0
相关文章