下面是我抄的部分代码,可是怎么也新建不了新的文件,单击按钮就不管用,什么反应也没有,加上断点感觉程序也是执行了这几句,但软件就是没反应
! Z8 v) D) o1 \2 H3 b) A W! \- r+ E2 Q& _6 Y$ i3 e# ~: H
; y( \, ?% @& \ Dim swapp As SldWorks.SldWorks
7 y9 p+ d( y1 C: X Set swapp = Application.SldWorks3 W; ]1 j+ j' C$ W+ q2 B) ?% ]
Dim swmodel As SldWorks.ModelDoc2
- q8 _3 U9 P J$ H+ y6 }5 l 'Determine which option is selected3 j; p' l- s3 \7 j7 {' L
'and connect to the modeldoc2 object
# `7 P2 v8 }- ?" v If optPart.Value = True Then
\0 J$ h3 m1 L Set swmodel = swapp.NewDocument(filedir + "APIPart.prtdot", 0, 0#, 0#)9 X9 ?! v7 f5 `+ p( X! ^3 b
End If
# l: Z! I+ q* s4 t( E( H; j- F h; P( k If optAssy.Value = True Then
- ^0 E# |% Y# t) b# R+ n! x- g( A$ i Set swmodel = swapp.NewDocument(filedir + "APIassembly.asmdot", 0, 0#, 0#)5 Q4 K* \4 P* S& m" K9 `, n: ~+ j
End If
% k$ h" w7 M/ P. r( w' F If optDraw.Value = True Then( ~5 Z& z. ]) ~
Set swmodel = swapp.NewDocument(filedir + "APIdrawing.drwdot", 0, 0#, 0#)6 @$ I7 m" M7 A. v4 J8 `1 ?+ k
End If |