|
|
发表于 2009-6-15 10:57:41
|
显示全部楼层
来自： 中国北京
试试这样：+ e. J% H1 L7 n( t6 R
-------------------------------------------------------------------
7 y* j8 Y2 S9 W/ r* Q1 l. xDim swApp As SldWorks.SldWorks4 I, f8 e/ J9 x4 Y2 g- ]& z; F
Dim swPart As SldWorks.PartDoc '要制作的零件图，你自己起的名字, h- w6 F. [: G' T
9 e& T ^7 O% eSet swApp = Application.SldWorks
. Z! h/ c: L" E。。。其他变量初始化/ c, Z0 { {- ] M- I! U- y V( S0 F
swApp.DocumentVisible False, swDocPART '开始隐藏零件窗口9 c7 u5 u) Y- Z9 i6 f
。。。开始画图7 ~0 V" E+ _; k+ k
swApp.DocumentVisible True, swDocPART ‘'解除隐藏零件窗口" ~& z Y* d' j [5 ]7 f
swPart.Visible = True '显示零件
0 }9 W5 w# A0 o。。。 |
|
楼主