下面是我抄的部分代码，可是怎么也新建不了新的文件，单击按钮就不管用，什么反应也没有，加上断点感觉程序也是执行了这几句，但软件就是没反应
2 V- X4 }$ }- I/ N: v5 m( o
2 t( j8 r# R. j. ?
- I- |$ Q% I: Y5 A$ J& d* X Dim swapp As SldWorks.SldWorks
0 f; c2 J0 B$ h4 N( r: n Set swapp = Application.SldWorks
* f" N1 P7 i$ k0 w2 z Dim swmodel As SldWorks.ModelDoc2
& }* C% O& C/ x) D+ z* a+ a 'Determine which option is selected
9 L% w9 P# ~9 ]" W 'and connect to the modeldoc2 object, I, d' E: e0 u% S
If optPart.Value = True Then
- @ m5 {8 M1 d* h+ X# j Set swmodel = swapp.NewDocument(filedir + "APIPart.prtdot", 0, 0#, 0#)' G2 A8 s# ]% s2 g9 p6 m
End If8 |" c) V6 g; o
If optAssy.Value = True Then2 z4 h4 ^% Z% A7 d
Set swmodel = swapp.NewDocument(filedir + "APIassembly.asmdot", 0, 0#, 0#)9 T; [! J8 n& U) G* i6 ^$ d
End If
K" D( u% ?3 v# `+ Y+ Q2 E, h If optDraw.Value = True Then" C8 f: u0 g9 U( D
Set swmodel = swapp.NewDocument(filedir + "APIdrawing.drwdot", 0, 0#, 0#)
8 y9 c/ R+ G- X7 [; N End If |
发表于 2016-11-10 13:49:45