下面是我抄的部分代码,可是怎么也新建不了新的文件,单击按钮就不管用,什么反应也没有,加上断点感觉程序也是执行了这几句,但软件就是没反应
% P6 I0 N; ?* S( e0 ]; v Z- b% e$ d5 T
" b; I. u+ J( H% H2 P1 }$ U, ~
Dim swapp As SldWorks.SldWorks$ I# I" e+ P6 p2 _6 a. a+ n
Set swapp = Application.SldWorks8 ^$ w* X7 y0 C6 E' M6 q* t/ Q
Dim swmodel As SldWorks.ModelDoc2
& {* ^5 b0 W& q& Q+ h" g: m 'Determine which option is selected) N* H' c' u0 c6 @7 u
'and connect to the modeldoc2 object3 p3 W) v1 S9 {2 T
If optPart.Value = True Then
. Z' L# M, v7 S: G3 }: j4 C0 G1 y5 n6 M Set swmodel = swapp.NewDocument(filedir + "APIPart.prtdot", 0, 0#, 0#)4 c' ~) p5 C9 ]" T. s- y( V
End If$ j- a( E8 r' V# \. ^) G. [% U: f
If optAssy.Value = True Then
# D& [# |+ k1 b Set swmodel = swapp.NewDocument(filedir + "APIassembly.asmdot", 0, 0#, 0#)
# N# ]3 ]! C+ `, F; M. S, R End If
( G" b% E- S s: a& @4 o0 w# [6 d If optDraw.Value = True Then
. H; j9 @1 ]. R0 V Set swmodel = swapp.NewDocument(filedir + "APIdrawing.drwdot", 0, 0#, 0#)
1 p' c& R% j* \) M End If |