|
|
发表于 2009-6-15 10:57:41
|
显示全部楼层
来自： 中国北京
试试这样：
7 K3 o/ n8 x+ I) Q5 {7 A# h-------------------------------------------------------------------
. I0 O7 w* x/ t/ _/ P( G! XDim swApp As SldWorks.SldWorks
. I8 T0 D& n8 L0 V B5 O8 EDim swPart As SldWorks.PartDoc '要制作的零件图，你自己起的名字6 Y9 U& o; g7 G4 ~
0 |3 Z. o; ?2 x0 k: o1 O
Set swApp = Application.SldWorks
A. p5 o& j9 E4 ~7 b, ~# n: P, Q。。。其他变量初始化3 j0 {. ?0 \4 d; b3 [% b& v, |; e
swApp.DocumentVisible False, swDocPART '开始隐藏零件窗口) r8 m1 W' G% U9 F
。。。开始画图
% o# f- v) `& _- f6 x+ YswApp.DocumentVisible True, swDocPART ‘'解除隐藏零件窗口
) N0 ~9 ~8 {5 v- u+ ^4 H0 M; M2 SswPart.Visible = True '显示零件
5 V- B/ a. `$ f; e# r。。。 |
|
楼主