下面是我抄的部分代码,可是怎么也新建不了新的文件,单击按钮就不管用,什么反应也没有,加上断点感觉程序也是执行了这几句,但软件就是没反应# `7 P% C/ z1 ?
1 _5 u6 g8 V. v
4 _/ P2 ~" W& w! Q5 U Dim swapp As SldWorks.SldWorks
8 Q: b3 e# p% C9 h, r Set swapp = Application.SldWorks( i n! ]9 U# L
Dim swmodel As SldWorks.ModelDoc2
- Y; s J0 a7 a! X2 Q 'Determine which option is selected( _4 ~) }) S$ q$ ?& S6 s- O
'and connect to the modeldoc2 object
% Y8 F+ }+ w, M# }: p; s If optPart.Value = True Then
- x" M4 v% g" ` G+ H/ G Set swmodel = swapp.NewDocument(filedir + "APIPart.prtdot", 0, 0#, 0#)+ i) O. M, T; y( _1 J( I9 a) `
End If/ m, A4 l ?1 E- P
If optAssy.Value = True Then4 O0 M+ W% h2 A# e9 P1 c
Set swmodel = swapp.NewDocument(filedir + "APIassembly.asmdot", 0, 0#, 0#)8 g7 I( r( d2 M# w) p* n
End If1 R- z% K9 ^% s, k
If optDraw.Value = True Then
/ r6 K" E, @4 q; d3 p$ M Set swmodel = swapp.NewDocument(filedir + "APIdrawing.drwdot", 0, 0#, 0#)
* G! @+ r! B9 M) q1 [ J End If |