|
经典图书 SolidWorks API是SolidWorks的OLE应用程序开发接口,用户可以利用它和支持OLE编程的开发工具,如VB、VBA(Excel,Access)、C、VC++等对SolidWorks进行二次开发,建立适合用户需要的、专用的SolidWorks 功能模块。
一、问题的提出
大多数工程图纸的标题栏中应该包括一些基本的设计信息,如零件名称、零件代号、材料以及设计人员和设计日期等,其中,零件的名称、代号、材料、数量、重量及一些重要的后处理要求等信息还应该出现在装配图的材料明细表(BOM)中。这些内容如果在工程图中一一进行编写和修改,其工作量是很大的,并且这种处理方法也不利于保证设计信息的一致性,对模型文件(零件或装配体文件)和图纸文件的管理来讲是脱节的。SolidWorks是一个全相关的三维机械设计软件,模型文件中的设计数据,如尺寸、注释、文件属性等内容与工程图相关,因此,我们在处理上述工程图标题栏和材料明细表中的设计数据时,应该将这些内容保存在模型文件中,并且自动显示在工程图相应的位置上。当需要对工程图中的内容进行修改时,直接修改模型文件中的相应数据即可实现。
这样的处理方法不仅保证了设计信息的一致性,而且可以大大提高设计效率。根据这个设想,笔者将这些设计信息进行了归纳,并将它们作为模型文件的自定义属性保存在模型文件指定配置的属性(在SolidWorks中,选择菜单"文件→属性",单击"指定配置"标签,如图1所示)中,针对模型文件指定配置的这些属性可以自动带入到工程图的标题栏和材料明细表。
对于材料明细表模板进行修改或建立新的明细表模板就可以在装配图中的材料明细表中显示所需要的设计信息(工程图格式文件的定义和材料明细表模板的定义,请参阅《SolidWorks2001中文版实用技术精粹》一书)。因此,无论何时需要修改设计信息,只需在SolidWorks中打开相应的模型文件,修改指定配置属性即可。然而,即使采用这样的处理方法,在修改文件当前配置属性时仍然显得有些繁琐,能否为SolidWorks建立一个工作界面,可以更加方便地添加和修改这些信息就成了问题的关键。
二、自定义属性Cpbom
为了更大程度地提高工作效率,我们利用VB6.0通过SolidWorks API建立了自定义属性设置程序--Cpbom,这个程序通过一个对话界面直接对当前模型文件的当前配置进行添加或修改,其基本功能如下:
☆ 针对配置添加模型文件的自定义属性;
☆ 设置的项目包括:零件代号、材料名称、后处理、设计者姓名、设计日期;
☆ 确定自定义属性后,自动保存文件;如当前文件还没有保存,提示文件保存路径和文件名称;
☆ 针对装配文件,可以选择是否删除"材料"和"后处理"两个属性。本程序利用VB进行编译生成可执行文件。自定义属性界面 "自定义属性"程序就是通过SolidWorks API对当前模型文件中当前配置的自定义属性的名称和值进行"读"和"写"的操作,程序非常简单,这里介绍一下该程序中用到的一些SolidWorks API的对象和方法。
1.SolidWorks对象这里指的是SolidWorks API的最高级别的对象。通过该对象可以控制SolidWorks软件的执行或退出,以及SolidWorks文件的建立、打开、关闭等操作。在VB中利用CreateObject方法来获得SolidWorks对象,利用该对象的activedoc方法可以获得当前SolidWorks文件对象,文件对象为空时,表示SolidWorks 没有打开任何文件。
Dim swApp As ObjectDim
activeDocument As ObjectSet swApp=CreateObject("SldWorks.Application")
Set activeDocument = swApp.activedocIf (activeDocument Is Nothing) Then Dim Msg, Style, title Style = vbExclamation
title = "模型自定义属性"
Msg = "请首先打开一个SolidWorks模型文件"
Call MsgBox(Msg, Style, title) " Display error message
End
End If
2.获取当前文件信息自定义属性程序是对模型文件设置自定义属性,与工程图文件无关,因此需要利用GetType方法获得当前文件的类型,并利用Gettitle()方法和Getpathname()方法获得当前文件的名称和存盘路径。
Dim docType As LongDim
docName As StringDim
filename As StringDim
FilePath as StringdocType = activeDocument.
GetTypeIf (docType = swDocPART)
Then docName = "零件"With CPbomfrm .deldescription.Enabled = False .delmaterial.Enabled = FalseEnd With Picture5.Picture = Picture3.Picture
ElseIf (docType = swDocASSEMBLY) Then docName = "装配" Picture5.Picture = Picture2.Picture
ElseIf (docType = swDocDRAWING) Then Style = vbExclamation Msg = "当前文件是工程图文件,请打开零件或装配文件"
Call MsgBox(Msg, Style, title) " Display error message
End
End
If filename = activeDocument.GETTITLE()
FilePath = activeDocument.getpathname()
3.获取文件配置名称SolidWorks API提供了按照配置名称访问自定义属性的方法--CustomInfo2(读取自定义属性的值)、deletecustominfo2(删除指定的自定义属性)、ADDcustominfo3(添加自定义属性的名称和参数值),这些方法都要求指定文件的配置名称。因此,为了对当前模型文件和当前配置设定自定义属性,必须首先要获得当前配置的名称,利用GetActiveConfiguration()方法可以获得当前模型文件配置的对象,并利用Name方法获得当前配置的名称。
Dim ConfName As StringSet
CurCFG = activeDocument.GetActiveConfiguration()
ConfName = CurCFG.Name
|
|