下面是我抄的部分代码,可是怎么也新建不了新的文件,单击按钮就不管用,什么反应也没有,加上断点感觉程序也是执行了这几句,但软件就是没反应$ V+ ^% S- |( w% ]. ]" j
3 D& L/ w* A' K5 F# ~9 k5 _$ _# Z
% i& f/ v5 k1 @2 o/ m4 R Dim swapp As SldWorks.SldWorks( E) K7 Y$ i) j9 ?) k7 \+ }- @
Set swapp = Application.SldWorks* r. {' ^' K, o4 h1 u; X: Q
Dim swmodel As SldWorks.ModelDoc2, m t1 c0 d& `( `; H( U
'Determine which option is selected
) J6 J0 t* C, w 'and connect to the modeldoc2 object
* s5 m9 W& o# e' O% T$ g If optPart.Value = True Then! u v/ r, n; e
Set swmodel = swapp.NewDocument(filedir + "APIPart.prtdot", 0, 0#, 0#)! P7 y# q6 q% A1 r& m
End If
% b' U& F5 ]8 k7 P. D If optAssy.Value = True Then
. W6 Y: X$ E( P( s9 g, W6 k Set swmodel = swapp.NewDocument(filedir + "APIassembly.asmdot", 0, 0#, 0#)
, O# s' p! w, \; g1 P) l: l; N3 [% k' t End If" a: s e/ a l1 p6 R& }5 U
If optDraw.Value = True Then6 z8 K$ B" n8 I. o3 ?) K
Set swmodel = swapp.NewDocument(filedir + "APIdrawing.drwdot", 0, 0#, 0#)0 i* w' m4 N: F" u7 l
End If |