下面是我抄的部分代码,可是怎么也新建不了新的文件,单击按钮就不管用,什么反应也没有,加上断点感觉程序也是执行了这几句,但软件就是没反应- j) `+ N1 }7 M/ V) h: {5 n* q
* Z( g. Z4 ~8 y) ~, U
8 v' I+ U: c! G' y* E. p# v% y Dim swapp As SldWorks.SldWorks4 S# r" ~( `. y6 e0 H
Set swapp = Application.SldWorks' o3 A: r9 I& a9 v- Q& k) e0 D Q
Dim swmodel As SldWorks.ModelDoc2! d5 Y8 v7 B; r0 H: b
'Determine which option is selected
; y% }1 a# c; F2 R7 ?1 M 'and connect to the modeldoc2 object) N9 m) w }' i7 Q- k! M6 k* E% X
If optPart.Value = True Then
0 V9 E, t1 w; A6 Y7 { Set swmodel = swapp.NewDocument(filedir + "APIPart.prtdot", 0, 0#, 0#)
3 f7 s( H4 n$ E3 l" a! d# X End If
/ b' o) P, ?% P$ V5 ?# q* g1 F" w# h If optAssy.Value = True Then
8 K8 A4 `# e8 `+ Q, { Set swmodel = swapp.NewDocument(filedir + "APIassembly.asmdot", 0, 0#, 0#)
* f ?2 |- ^& E2 d% @ f End If
: g' ?0 {: k# q5 ?& U5 O3 V If optDraw.Value = True Then
/ |; _/ i) e$ f- l5 m# A Set swmodel = swapp.NewDocument(filedir + "APIdrawing.drwdot", 0, 0#, 0#)3 I% V4 w# W w9 E. ?. J5 y
End If |