|
|
发表于 2009-6-15 10:57:41
|
显示全部楼层
来自: 中国北京
试试这样:4 s4 O0 i+ D% p8 V+ P
-------------------------------------------------------------------
7 U# E$ Q5 u+ Q" x1 `. PDim swApp As SldWorks.SldWorks; s7 }% f; S/ n* F
Dim swPart As SldWorks.PartDoc '要制作的零件图,你自己起的名字) Q1 o9 @$ e* J
6 ~ \. `( C I' l. sSet swApp = Application.SldWorks+ g6 w" Q7 [' o- [
。。。其他变量初始化8 Q8 r( ~& Q8 }8 ?+ w8 j, Z
swApp.DocumentVisible False, swDocPART '开始隐藏零件窗口
- R) E3 t+ p+ B8 a: K* h+ C。。。开始画图0 _/ _" s: Z0 s
swApp.DocumentVisible True, swDocPART ‘'解除隐藏零件窗口! d( a- \0 G) \6 g1 e3 w7 v2 D
swPart.Visible = True '显示零件; e& y9 y( Z5 o3 ]6 U
。。。 |
|