[分享]SolidWorks API接口的应用 [复制链接]

SolidWorks API是SolidWorks的OLE应用程序开发接口，用户可以利用它和支持OLE编程的开发工具，如VB、VBA(Excel,Access)、C、VC++等对SolidWorks进行二次开发，建立适合用户需要的、专用的SolidWorks 功能模块。 Q3,=~}ZNK  
Q<yAT(w  
　　一、问题的提出 8[~~gYl  
|YRY!V_w  
　　大多数工程图纸的标题栏中应该包括一些基本的设计信息，如零件名称、零件代号、材料以及设计人员和设计日期等，其中，零件的名称、代号、材料、数量、重量及一些重要的后处理要求等信息还应该出现在装配图的材料明细表(BOM)中。这些内容如果在工程图中一一进行编写和修改，其工作量是很大的，并且这种处理方法也不利于保证设计信息的一致性，对模型文件(零件或装配体文件)和图纸文件的管理来讲是脱节的。SolidWorks是一个全相关的三维机械设计软件，模型文件中的设计数据，如尺寸、注释、文件属性等内容与工程图相关，因此，我们在处理上述工程图标题栏和材料明细表中的设计数据时，应该将这些内容保存在模型文件中，并且自动显示在工程图相应的位置上。当需要对工程图中的内容进行修改时，直接修改模型文件中的相应数据即可实现。 kxh 5}eB  
v J-LPTB  
　　这样的处理方法不仅保证了设计信息的一致性，而且可以大大提高设计效率。根据这个设想，笔者将这些设计信息进行了归纳，并将它们作为模型文件的自定义属性保存在模型文件指定配置的属性(在SolidWorks中，选择菜单"文件→属性"，单击"指定配置"标签，如图1所示)中，针对模型文件指定配置的这些属性可以自动带入到工程图的标题栏和材料明细表。 PPj[;(A  
n8$=f'Hgb  
　　对于材料明细表模板进行修改或建立新的明细表模板就可以在装配图中的材料明细表中显示所需要的设计信息(工程图格式文件的定义和材料明细表模板的定义，请参阅《SolidWorks2001中文版实用技术精粹》一书)。因此，无论何时需要修改设计信息，只需在SolidWorks中打开相应的模型文件，修改指定配置属性即可。然而，即使采用这样的处理方法，在修改文件当前配置属性时仍然显得有些繁琐，能否为SolidWorks建立一个工作界面，可以更加方便地添加和修改这些信息就成了问题的关键。 x{Sd P$  
6b<+8w  
　　二、自定义属性Cpbom "<x&pQZ%  
8?1o<8hV  
　　为了更大程度地提高工作效率，我们利用VB6.0通过SolidWorks API建立了自定义属性设置程序--Cpbom，这个程序通过一个对话界面直接对当前模型文件的当前配置进行添加或修改，其基本功能如下： gQ>2!Qc a-  
lbS?/f  
　　☆ 针对配置添加模型文件的自定义属性; 6JH56  
]n5"Z,K  
　　☆ 设置的项目包括：零件代号、材料名称、后处理、设计者姓名、设计日期; f^?uY8<  
um[!|g/  
　　☆ 确定自定义属性后，自动保存文件;如当前文件还没有保存，提示文件保存路径和文件名称; +0"x|$f~  
%[ /<+
  
　　☆ 针对装配文件，可以选择是否删除"材料"和"后处理"两个属性。本程序利用VB进行编译生成可执行文件。自定义属性界面 "自定义属性"程序就是通过SolidWorks API对当前模型文件中当前配置的自定义属性的名称和值进行"读"和"写"的操作，程序非常简单，这里介绍一下该程序中用到的一些SolidWorks API的对象和方法。 xs%LRF#u  
uY;R8CiD  
　　1.SolidWorks对象这里指的是SolidWorks API的最高级别的对象。通过该对象可以控制SolidWorks软件的执行或退出，以及SolidWorks文件的建立、打开、关闭等操作。在VB中利用CreateObject方法来获得SolidWorks对象，利用该对象的activedoc方法可以获得当前SolidWorks文件对象，文件对象为空时，表示SolidWorks 没有打开任何文件。 G?/c/rG  
w;+ br  
　　Dim swApp As ObjectDim +T2HE\  
B+Z13;}B  
　　activeDocument As ObjectSet swApp=CreateObject("SldWorks.Application") k2p'G')H  
HIGNRm  
　　Set activeDocument = swApp.activedocIf (activeDocument Is Nothing) Then Dim Msg, Style, title Style = vbExclamation q^*6C[G B  
'gDe3@ci!  
　　title = "模型自定义属性" %b=p< h'(  
E:w:4[neh  
　　Msg = "请首先打开一个Solidworks模型文件" 9U^$.Lb  
_!!}'fMC  
　　Call MsgBox(Msg, Style, title) " Display error message Q]rqD83((  
FJT1i@N  
　　End ru{f]|  
X>t3|
h  
　　End If Obo_YE  
:Q-oV8t{  
　　2.获取当前文件信息自定义属性程序是对模型文件设置自定义属性，与工程图文件无关，因此需要利用GetType方法获得当前文件的类型，并利用Gettitle()方法和Getpathname()方法获得当前文件的名称和存盘路径。 @Tr&`Hi  
7F(5)Utt  
　　Dim docType As LongDim 6>,# 6{?jl  
%hINpZMr  
　　docName As StringDim k|FSz#Y  
62kb2C  
　　filename As StringDim {155b0  
eg3L:rk_  
　　FilePath as StringdocType = activeDocument. WeC(w+}p  
\zu}\{  
　　GetTypeIf (docType = swDocPART) iYKU[UP?  
.X'< D*  
　　Then docName = "零件"With CPbomfrm .deldescription.Enabled = False .delmaterial.Enabled = FalseEnd With Picture5.Picture = Picture3.Picture bRPO:lAy  
O k7zpq  
　　ElseIf (docType = swDocASSEMBLY) Then docName = "装配" Picture5.Picture = Picture2.Picture 3SNL5  
DZs^ 2Zc  
　　ElseIf (docType = swDocDRAWING) Then Style = vbExclamation Msg = "当前文件是工程图文件，请打开零件或装配文件" p<5!02yQ\  
B1$ikY  
　　Call MsgBox(Msg, Style, title) " Display error message >SDpuG&>  
0E6lmz`O  
　　End jPk c3dG +  
.Xd0 Q=1h  
　　End JE!("]&  
u9]1X1wV  
　　If filename = activeDocument.GETTITLE() )X5(#E  
0@pu@DP~  
　　FilePath = activeDocument.getpathname() } 
`T8A  
v <Hb-~  
　　3.获取文件配置名称SolidWorks API提供了按照配置名称访问自定义属性的方法--CustomInfo2(读取自定义属性的值)、deletecustominfo2(删除指定的自定义属性)、ADDcustominfo3(添加自定义属性的名称和参数值)，这些方法都要求指定文件的配置名称。因此，为了对当前模型文件和当前配置设定自定义属性，必须首先要获得当前配置的名称，利用GetActiveConfiguration()方法可以获得当前模型文件配置的对象，并利用Name方法获得当前配置的名称。 T?npQA07=  
Sj-[%D*  
　　Dim ConfName As StringSet E>pVn2|  
V1utUGJV  
　　CurCFG = activeDocument.GetActiveConfiguration() Qhy#r  
^$Krub{|  
　　ConfName = CurCFG.Name 6)[<)?A.[  
/P+q}L%  
　　4.按照配置访问自定义属性在本程序中，笔者对于指定配置的属性设置按照如下的步骤： `Ko[r R+  
Rj6|Y"gq9  
　　(1)按照配置名称读取文件中的自定义属性值，并赋值于相应的文本框; X:=c5*0e  
zn)yFnB!TH  
　　(2)判定当前文件和当前配置是否已经改变，如其中之一发生变化，则提示错误信息; l
,d,T  
c2<,|D|  
　　(3)根据配置名称删除指定的自定义属性; |LmSWy*7  

KAc>-c<  
　　(4)将相应文本框中的内容按照配置名称添加到模型文件自定义属性名称和参数值。下面对上述控制配置自定义属性的三种方法加以介绍。 <1@ (ioPH  
{1~T]5  
　　☆ CustomInfo2：获取或设置当前文档指定配置的自定义属性的值。 s-?fUqA  
@Zm Jz  
　　value = ModelDoc.CustomInfo2 (configuration, fieldName) Acu@[I^  
x(~<tX~  
　　其中，configuration为配置名称; JNo8>aFOb  
mX\ ;
oV!  
　　fieldName为自定义属性的名称。 wss?|XCI  
M"wue*&  
　　☆ deletecustominfo2：删除当前文档指定配置的自定义属性的值 p2d\ZgWD=)  
#H5=a6E+q  
　　retval = ModelDoc.DeleteCustomInfo2(configuration, FieldName ) $1@,Qor  
X9XI;c;b-
 
　　☆ ADDcustominfo3：向当前文档中指定的配置添加自定义属性以及值 Rs7|}Dl}  
%}b8aG+  
　　retval = ModelDoc.AddCustomInfo3 ( configuration, FieldName, FieldType, FieldValue ) `# ^0cW  
ctJ&URCi#  
　　其中，FieldType为自定义属性的类型;FieldValue为自定义属性的值。 S
SmHEy*r)  
(lWq[0^N  
　　下面这段代码是单击"确定"的子程序，为了简单，只给出了其中一个自定义属性的处理过程。 h6M;0_'  
9_huI'"p  
　　Private Sub cmd_OK_Click()On Error GoTo ERR_91 ngyY  
"2hh-L7ql  
　　Dim swApp2 As ObjectDim rK|*hcy  
Ceg!w#8Z,  
　　activeDocument2 As ObjectDim +>YfRqz:KB  
lhPGE_\  
　　curcfg2 As ObjectDim `&*bM0(J  
PC/!9s0W  
　　cfgname2 As StringDim NQLiWz-q  
-[]';f4]M  
　　retval As BooleanSet 2 ZG@!Y|  
%Fft R1"  
　　swApp2 = CreateObject("SldWorks.Application") pFO^/P'  
(?Q|s,  
　　Set activeDocument2 = swApp2.activedoc `X -<$x  
5w<A;f  
　　Set curcfg2 = activeDocument2.GetActiveConfiguration() +AI`R`Tm  
DTY<0Q.  
　　cfgname2 = curcfg2.Name" 判断文件或配置是否改变，如改变，则提示错误。 >D_F!_  
Pil;/t)"  
　　If cfgname2 = ConfName And FilePath = activeDocument2.getpathname() Then　　" 删除属性设置 lLiQ;@  
'%7 Bxof  
　　retval = activeDocument2.deletecustominfo2(ConfName, "PartID")" 添加属性 fx?$9(r,  
=`t^~.5  
　　retval = activeDocument2.ADDcustominfo3(ConfName, "PartID", swCustomInfoText, frmPartID)　　" 保存文件 N|dD
!  
A3R#z]Ub  
　　retval = activeDocument2.Save() >*qQ+_  
[Z<Z;=t  
　　Else Style = vbExclamation Lj 8<'"U#  
x';uCKWV  
　　title = "模型自定义属性" a5?8QAO~r  
|g_g8[@`}  
　　Msg = "错误：打开的文件或配置已经改变!" & Chr(10) & "请重新执行本程序" C`K^L=8`{  
S/gm.?$V  
　　Call MsgBox(Msg, Style, title) DxSsg  
BIMKsF Zt  
　　End 4gZ&^y'  
-Kxc$}  
　　End Q5n`F5   
p/olCmHD)  
　　IfERR_91: Style = vbExclamation title = "模型自定义属性" .+.j*>q>u  
APSgnf  
　　Msg = "程序运行错误，文件可能已经关闭" & Chr(10) & "自定义属性无法添加，单击确定退出!" \b8\Ug~t  
P&=lV}f  
　　Call MsgBox(Msg, Style, title) k1}hIAk3u  
?F@%S3h.  
　　End ,=PKd&  
pn%#w*'  
　　End Sub r>n" 51*  
LU2waq}VA  
　　三、在SolidWorks界面中执行应用程序 I:=dG[\h2  
?IW_O~Js  
　　对于使用VB编译的EXE、DLL文件，目前SolidWorks还不能直接支持这些文件作为插件使用，如果要在SolidWorks 中直接调用通过VB编译的可执行程序，可以使用SolidWorks"宏"操作来进行。利用"宏"在SolidWorks界面中添加指定的应用程序后，就好像SolidWorks调用了自身的功能一样，利用类似的方法，可以在SolidWorks添加任何可执行的文件。下面利用"自定义属性"程序来说明一下步骤。1.建立"宏"文件在SolidWorks中，我们利用录制并修改"宏"的方法来建立所需要的"宏"文件。主要步骤如下： pv# 2]v  
x` /)g(  
　　(1)选择菜单"工具→宏操作→录制"。 AEg(m<t  
;O=h$8]  
　　(2)停止录制，并保存宏文件。给定文件名称，如：Cpbom.swp。 7P**:b  
!:0v{ZQ  
　　(3)选择菜单"工具→宏操作→编辑"，把Cpbom.swp "宏"文件录制的内容全部删除，并输入下面的内容。 !1Y&Y@ze  
g>j| ]6  
　　Sub main()MyAppID = Shell("C:Program FilesCPbomCPbom.exe", 1) AppActivate MyAppID NiSO'=y$n  
@WOM#Kc  
　　End Sub p EusTP  
?IhB-fd>@  
　　(4)保存并退出宏编辑，返回到SolidWorks环境。 %&+59vq   
nCnjq=  
　　2.指定"宏"操作在SolidWorks中可以指定宏命令的文件位置，并定制工具栏，将所执行的宏操作按钮添加到指定的位置上。 ]r/^9XaqtA  
Fo|xzLm9*|  
　　(1)选择菜单"工具→自定义→宏"，在"自定义"对话框中单击"宏"标签。 m $dV<  
_D;@v?n6!O  
　　(2)参考图4的内容添加宏，单击"应用"完成。 fZN><3MO>  
M\2"gT-LV  
　　(3)在"自定义"对话框中单击"命令"标签，从"类别"列表框中选择"宏"，将所定义的宏(第1个)的图标按钮拖到相应的工具栏中，如图5所示。 5ukp^OxE  
p2O~>97t1  
　　(4)单击"确定"按钮，完成宏定义和工具栏定义。 +c$I&JO  
ocQWQ   
　　3.执行应用程序定义"宏"以后，单击相应的图标就可以在SolidWorks 中直接执行应用程序。 在SolidWorks中执行应用程序 1~yZ T  
B6M+mx"G  
　　四、总结
1{PG>W  
gS9>N/b|  
　　笔者利用这个"自定义属性"程序，明显提高了工作效率。需要说明的是，SolidWorks API的对象和方法十分丰富，涵盖了所有SolidWorks数据模型，这里介绍的只冰山之一角。另外，程序中提及的自定义属性与企业的要求有关，根据自己的需要开发适合需要的自定义属性设置程序。

多谢分享