|
|

楼主 |
发表于 2013-7-31 10:30:12
|
显示全部楼层
来自: 中国广东佛山
; c2 k0 Z: c: t Set pApp = GetObject(, "SldWorks.Application")3 W( _: o# f; m, M) W# {& P
' Set pApp = Application.SldWorks
* x9 a4 H) \2 @$ H6 ? V7 Q Set pModel = pApp.ActiveDoc
. ]% r9 `* q; ]* E6 b5 V# ?( ~ If pModel Is Nothing Then
* ^8 E/ d/ `2 E: K lngRet = MsgBox(“当前没有文档,请打开一个文档”, vbOKOnly, resTitle)
- e3 q" B% X* O: @; a; @ Exit Sub7 P' T$ [9 D/ R8 p! u
End If, L8 r7 m. S- s. h, A. E# i6 P) s, Y
也就是说你没有打开一个新的零件文件.... |
|