下面是我抄的部分代碼,可是怎么也新建不了新的文件,單擊按鈕就不管用,什么反應(yīng)也沒有,加上斷點感覺程序也是執(zhí)行了這幾句,但軟件就是沒反應(yīng)& H) Q; M" K' v k A }: h1 A
- E+ _0 @. Z/ j6 F; Y; j* P W
( } o P( Z( `) `
Dim swapp As SldWorks.SldWorks
4 B$ n) T- i7 [- @1 U Set swapp = Application.SldWorks; {& _5 z! ~/ n- M$ b5 V9 ]
Dim swmodel As SldWorks.ModelDoc2. j: A: {$ ^' G8 L
'Determine which option is selected
1 u0 Q1 a& v6 Y2 W8 n! h. U 'and connect to the modeldoc2 object
- R$ Y+ D& d, n6 j- r) O If optPart.Value = True Then; z' T( L0 ~( B- i" s B1 ?
Set swmodel = swapp.NewDocument(filedir + "APIPart.prtdot", 0, 0#, 0#)
# \0 {4 A8 a% ]$ T End If2 I8 s, ?$ U+ q; C
If optAssy.Value = True Then
# i( s4 G, y/ I4 D/ q; h, c Set swmodel = swapp.NewDocument(filedir + "APIassembly.asmdot", 0, 0#, 0#)
1 E4 C+ }6 {7 _% ~2 n End If3 J3 W6 {7 b5 j8 H# P$ \
If optDraw.Value = True Then
2 I% n# ^$ r+ y9 V# p Set swmodel = swapp.NewDocument(filedir + "APIdrawing.drwdot", 0, 0#, 0#)
G# f( I/ u' @4 F End If |