|
|
发表于 2009-6-15 10:57:41
|
显示全部楼层
来自： 中国北京
试试这样：- a3 s, o Y. n* V1 ?
-------------------------------------------------------------------
# l, u% L G; K" t5 eDim swApp As SldWorks.SldWorks
5 S$ }+ Y2 y* I3 `3 D2 a1 `Dim swPart As SldWorks.PartDoc '要制作的零件图，你自己起的名字
7 Y Q! K& ` g# e* U+ v) P( V' {
Set swApp = Application.SldWorks4 q! x$ D8 {: v
。。。其他变量初始化
" R1 E" W5 C$ b6 r$ _1 R* pswApp.DocumentVisible False, swDocPART '开始隐藏零件窗口) n0 g7 ?5 }. O; Z9 v. a
。。。开始画图
4 E, E% a+ k: NswApp.DocumentVisible True, swDocPART ‘'解除隐藏零件窗口+ \( a, L' C' Q" ]# q6 }
swPart.Visible = True '显示零件/ [/ Y, ?# g3 A" S' c0 L! }
。。。 |
|
楼主