|
|
发表于 2009-6-15 10:57:41
|
显示全部楼层
来自： 中国北京
试试这样：; n# ]3 N) J8 z9 N" Q5 J0 ]8 k
-------------------------------------------------------------------
9 X7 ~4 h& H3 D ?. I" E9 b" @: @Dim swApp As SldWorks.SldWorks
+ B2 `. M# |% g8 jDim swPart As SldWorks.PartDoc '要制作的零件图，你自己起的名字4 p9 @/ }& Y- z: i
# [' ?+ M; @. E) [( x' d+ `
Set swApp = Application.SldWorks' T, k1 B' ]3 ?
。。。其他变量初始化: J& o$ d# r1 X' Q3 T; y' n. \5 k. A
swApp.DocumentVisible False, swDocPART '开始隐藏零件窗口- |. {- b' g; S |4 H( j
。。。开始画图6 `+ m: m6 o# ~0 ]) i& E! J2 d4 ]
swApp.DocumentVisible True, swDocPART ‘'解除隐藏零件窗口3 @+ h& L: @$ I5 b) O
swPart.Visible = True '显示零件4 u* k8 G2 Q3 E' \9 g" O$ b X
。。。 |
|
楼主