|
|
2#
樓主 |
發(fā)表于 2016-11-10 14:41:03
|
只看該作者
下面是我抄的部分代碼,，可是怎么也新建不了新的文件，單擊按鈕就不管用,，什么反應(yīng)也沒有,，加上斷點(diǎn)感覺程序也是執(zhí)行了這幾句，但軟件就是沒反應(yīng)- P1 A; Z7 ^3 m
. z( R+ n0 f# u$ E, K3 J
0 X5 s: K& L" q! F9 @ Dim swapp As SldWorks.SldWorks
* c4 f0 \( I" Z- z& W Set swapp = Application.SldWorks8 P+ o% K0 {; H, A0 |) S
Dim swmodel As SldWorks.ModelDoc2 _9 \6 n8 f+ A7 p, ]# L$ A
'Determine which option is selected0 _& J f4 A: B9 v* Y4 g, O8 l5 V
'and connect to the modeldoc2 object
D; W! D4 T- q% z% Y5 z If optPart.Value = True Then' P1 [; p) r: O$ v" m
Set swmodel = swapp.NewDocument(filedir + "APIPart.prtdot", 0, 0#, 0#)
/ f& F6 G g: u End If, `! p4 |+ l$ y1 o
If optAssy.Value = True Then! ]& F# { W- }0 E7 k5 x
Set swmodel = swapp.NewDocument(filedir + "APIassembly.asmdot", 0, 0#, 0#)
! y( m& j) R2 h2 p( o End If
( f; q2 x, i+ a5 k If optDraw.Value = True Then x" l/ d2 G- P9 _. n& ?, o& n! n8 v( W
Set swmodel = swapp.NewDocument(filedir + "APIdrawing.drwdot", 0, 0#, 0#): W- @) h/ W! B
End If |
|
發(fā)表于 2016-11-10 13:49:45
QQ好友和群
收藏
淘帖
問題專業(yè)，描述清楚
伸手黨/灌水/看不懂