|
|
发表于 2009-6-15 10:57:41
|
显示全部楼层
来自： 中国北京
试试这样：$ E$ ~" r' E8 Q3 A) r. [$ k
-------------------------------------------------------------------
+ A) R y2 h& A/ a/ E, b+ Y$ iDim swApp As SldWorks.SldWorks
7 ^ L! ~4 ^. C7 y' iDim swPart As SldWorks.PartDoc '要制作的零件图，你自己起的名字
5 F% @. m8 Z+ N- ]9 V3 f
: Z& I) W* ]" |( t# e9 y# ~% }Set swApp = Application.SldWorks
9 ^; A C3 h( u& K* E, |( k。。。其他变量初始化" H& d: W7 n7 E
swApp.DocumentVisible False, swDocPART '开始隐藏零件窗口3 _" H8 O6 ]. \
。。。开始画图$ y' I0 s4 t; z, t4 Y0 Q
swApp.DocumentVisible True, swDocPART ‘'解除隐藏零件窗口& H, ^; x3 x$ R$ v8 M. u6 m& x, W
swPart.Visible = True '显示零件% `- Q! R6 B- [2 _
。。。 |
|
楼主