SolidWorks API是SolidWorks的OLE应用程序开发接口,用户可以利用它和支持OLE编程的开发工具,如VB、VBA(Excel,Access)、C、VC++等对SolidWorks进行二次开发,建立适合用户需要的、专用的SolidWorks 功能模块。 o+?@5zw-&
UsW5d]i}Y
一、问题的提出 649 !=
I44s(G1jl
大多数工程图纸的标题栏中应该包括一些基本的设计信息,如零件名称、零件代号、材料以及设计人员和设计日期等,其中,零件的名称、代号、材料、数量、重量及一些重要的后处理要求等信息还应该出现在装配图的材料明细表(BOM)中。这些内容如果在工程图中一一进行编写和修改,其工作量是很大的,并且这种处理方法也不利于保证设计信息的一致性,对模型文件(零件或装配体文件)和图纸文件的管理来讲是脱节的。SolidWorks是一个全相关的三维机械设计软件,模型文件中的设计数据,如尺寸、注释、文件属性等内容与工程图相关,因此,我们在处理上述工程图标题栏和材料明细表中的设计数据时,应该将这些内容保存在模型文件中,并且自动显示在工程图相应的位置上。当需要对工程图中的内容进行修改时,直接修改模型文件中的相应数据即可实现。 02b6s&L
i.a _C'<$
这样的处理方法不仅保证了设计信息的一致性,而且可以大大提高设计效率。根据这个设想,笔者将这些设计信息进行了归纳,并将它们作为模型文件的自定义属性保存在模型文件指定配置的属性(在SolidWorks中,选择菜单"文件→属性",单击"指定配置"标签,如图1所示)中,针对模型文件指定配置的这些属性可以自动带入到工程图的标题栏和材料明细表。 }0/a\
JSVeU54T^<
对于材料明细表模板进行修改或建立新的明细表模板就可以在装配图中的材料明细表中显示所需要的设计信息(工程图格式文件的定义和材料明细表模板的定义,请参阅《SolidWorks2001中文版实用技术精粹》一书)。因此,无论何时需要修改设计信息,只需在SolidWorks中打开相应的模型文件,修改指定配置属性即可。然而,即使采用这样的处理方法,在修改文件当前配置属性时仍然显得有些繁琐,能否为SolidWorks建立一个工作界面,可以更加方便地添加和修改这些信息就成了问题的关键。 /XpSe<3
4MvC]_&
二、自定义属性Cpbom MgJ5B(c
c. K =(y*
为了更大程度地提高工作效率,我们利用VB6.0通过SolidWorks API建立了自定义属性设置程序--Cpbom,这个程序通过一个对话界面直接对当前模型文件的当前配置进行添加或修改,其基本功能如下: 5G*II_j
gQVBA %
☆ 针对配置添加模型文件的自定义属性; ?[1SiJT
"ED8z|]j
☆ 设置的项目包括:零件代号、材料名称、后处理、设计者姓名、设计日期; RI.2F*|
2<W&\D o@
☆ 确定自定义属性后,自动保存文件;如当前文件还没有保存,提示文件保存路径和文件名称; T 1Cs>#)
[?KIN_e#
☆ 针对装配文件,可以选择是否删除"材料"和"后处理"两个属性。本程序利用VB进行编译生成可执行文件。自定义属性界面 "自定义属性"程序就是通过SolidWorks API对当前模型文件中当前配置的自定义属性的名称和值进行"读"和"写"的操作,程序非常简单,这里介绍一下该程序中用到的一些SolidWorks API的对象和方法。 G2Qjoe`Uc
7>.OVh<
1.SolidWorks对象这里指的是SolidWorks API的最高级别的对象。通过该对象可以控制SolidWorks软件的执行或退出,以及SolidWorks文件的建立、打开、关闭等操作。在VB中利用CreateObject方法来获得SolidWorks对象,利用该对象的activedoc方法可以获得当前SolidWorks文件对象,文件对象为空时,表示SolidWorks 没有打开任何文件。 D(XqyN-P
&r_uQbx
Dim swApp As ObjectDim knHv?#
{U @3yB
activeDocument As ObjectSet swApp=CreateObject("SldWorks.Application") ej[S u
&a #GXf
Set activeDocument = swApp.activedocIf (activeDocument Is Nothing) Then Dim Msg, Style, title Style = vbExclamation qd2xb8r
F?]N8W
title = "模型自定义属性" 7sV/_3H+
x mo&![P
Msg = "请首先打开一个Solidworks模型文件" BQrL7y
xy^1US,L1
Call MsgBox(Msg, Style, title) " Display error message ,;iA2
EZj1jpL
End c ~Kc7}I
4F#%f#"
End If rxE&fjW
WmVVR>0V|
2.获取当前文件信息自定义属性程序是对模型文件设置自定义属性,与工程图文件无关,因此需要利用GetType方法获得当前文件的类型,并利用Gettitle()方法和Getpathname()方法获得当前文件的名称和存盘路径。 _wu*M
3 wt
Dim docType As LongDim U ":"geU
Mtp%co )f
docName As StringDim P;U@y"s
F=Y S^
filename As StringDim )x\z@g
g9V.13k
FilePath as StringdocType = activeDocument. z,Xk\@
i^g~~h
F
GetTypeIf (docType = swDocPART) /bcY6b=:
[b1hC ~I;
Then docName = "零件"With CPbomfrm .deldescription.Enabled = False .delmaterial.Enabled = FalseEnd With Picture5.Picture = Picture3.Picture htHv&
,U=E[X=H
ElseIf (docType = swDocASSEMBLY) Then docName = "装配" Picture5.Picture = Picture2.Picture uBeNXOre
Bw-s6MS
ElseIf (docType = swDocDRAWING) Then Style = vbExclamation Msg = "当前文件是工程图文件,请打开零件或装配文件" "$@,n7k
>]/dOH,A
Call MsgBox(Msg, Style, title) " Display error message P\(30
L8P36]>
End $c=&0yt5
In(NF#
End Z<]VTo
_Ex?Xk
If filename = activeDocument.GETTITLE() pGkef0p@
qS]G&l6QF
FilePath = activeDocument.getpathname() F6&P ~H
SCq3Ds^
3.获取文件配置名称SolidWorks API提供了按照配置名称访问自定义属性的方法--CustomInfo2(读取自定义属性的值)、deletecustominfo2(删除指定的自定义属性)、ADDcustominfo3(添加自定义属性的名称和参数值),这些方法都要求指定文件的配置名称。因此,为了对当前模型文件和当前配置设定自定义属性,必须首先要获得当前配置的名称,利用GetActiveConfiguration()方法可以获得当前模型文件配置的对象,并利用Name方法获得当前配置的名称。 !sK#zAR2
6\`DlUn'*
Dim ConfName As StringSet !%62Phai
I#c(J
CurCFG = activeDocument.GetActiveConfiguration() W-Of[X{<
s`vSt*
]K
ConfName = CurCFG.Name U.Hdbmix
u}CG>^0C
4.按照配置访问自定义属性在本程序中,笔者对于指定配置的属性设置按照如下的步骤: f\'G`4e
04\Ta
(1)按照配置名称读取文件中的自定义属性值,并赋值于相应的文本框; NcM3P G
,.7vBt6 p
(2)判定当前文件和当前配置是否已经改变,如其中之一发生变化,则提示错误信息; fLM.kCD?u
nKu(XgFv
(3)根据配置名称删除指定的自定义属性; jkCHi@
<G9<"{
(4)将相应文本框中的内容按照配置名称添加到模型文件自定义属性名称和参数值。下面对上述控制配置自定义属性的三种方法加以介绍。 m5qCq9Y
.EzSSU7n)
☆ CustomInfo2:获取或设置当前文档指定配置的自定义属性的值。 Sw
"|iBZ@
ybYXD?
value = ModelDoc.CustomInfo2 (configuration, fieldName) sH@ &*
i-"<[*ePd
其中,configuration为配置名称; JP%RTGu
1>;6x^_h0S
fieldName为自定义属性的名称。 _UIgRkl.
Cz[5Ug'V
☆ deletecustominfo2:删除当前文档指定配置的自定义属性的值 VO|u8Z"
@7X\tV.Z
retval = ModelDoc.DeleteCustomInfo2(configuration, FieldName )
2%]t3\XW
8J^d7uC
☆ ADDcustominfo3:向当前文档中指定的配置添加自定义属性以及值 W
U0UG$o`
w= B
retval = ModelDoc.AddCustomInfo3 ( configuration, FieldName, FieldType, FieldValue ) tnJ`D4
c}'Xoc
其中,FieldType为自定义属性的类型;FieldValue为自定义属性的值。 .S(^roM;+
vC-[#]<
下面这段代码是单击"确定"的子程序,为了简单,只给出了其中一个自定义属性的处理过程。 <>?^ 4NC<M
C#T)@UxBZ
Private Sub cmd_OK_Click()On Error GoTo ERR_91 }Fz!6F2w
]3 j[3'
Dim swApp2 As ObjectDim K)N)IZ1q
8nf4Jk8r
activeDocument2 As ObjectDim 6ku8`WyoF
)2toL5 Q
curcfg2 As ObjectDim W
n6,U=$3
13\Sh
cfgname2 As StringDim sgD@}":m
$'y1Po'2
retval As BooleanSet Z{
%Uw;d
Q>V?w gZ
swApp2 = CreateObject("SldWorks.Application") I,w^?o
P2 |}*h5(
Set activeDocument2 = swApp2.activedoc E4hq}
'%:5axg?]
Set curcfg2 = activeDocument2.GetActiveConfiguration() y^, "gD
%qONJP
cfgname2 = curcfg2.Name" 判断文件或配置是否改变,如改变,则提示错误。 <BQ%8}
ud.poh~|
If cfgname2 = ConfName And FilePath = activeDocument2.getpathname() Then " 删除属性设置 EI<"DB
-z&9DWH
retval = activeDocument2.deletecustominfo2(ConfName, "PartID")" 添加属性 Q.<giBh
Fr<Pe&d