7 \6 K7 ^6 K/ X. J8 s( a Set pApp = GetObject(, "SldWorks.Application")3 {( M6 O3 j: M! H- N5 N
' Set pApp = Application.SldWorks ! J$ m3 K. z3 k; x4 B Set pModel = pApp.ActiveDoc ) w2 j7 Y% g/ T% u0 C0 ^$ S If pModel Is Nothing Then3 o( `6 G% k' Q5 b" b i
lngRet = MsgBox(“当前没有文档,请打开一个文档”, vbOKOnly, resTitle)# n r+ z2 D; G
Exit Sub $ `' C) i$ Y) R" ~' |% `' {& Z% y8 P End If 2 K0 F7 Q; V# Y+ ]$ B) a' k9 |也就是说你没有打开一个新的零件文件....