|
|
发表于 2009-6-15 10:57:41
|
显示全部楼层
来自： 中国北京
试试这样：
: K" Z0 V6 a3 ?-------------------------------------------------------------------
/ _" |5 `. Y8 MDim swApp As SldWorks.SldWorks
% S8 N/ P+ S: ]3 @" ^Dim swPart As SldWorks.PartDoc '要制作的零件图，你自己起的名字( o; h- H$ f8 j9 E
4 T! w6 t6 f5 u: RSet swApp = Application.SldWorks" ~1 B l6 k8 @
。。。其他变量初始化
, g0 m, D* n/ {1 `6 E NswApp.DocumentVisible False, swDocPART '开始隐藏零件窗口3 S- ^$ @% e' W3 ^
。。。开始画图
" Z) N. u H' t9 s' N$ MswApp.DocumentVisible True, swDocPART ‘'解除隐藏零件窗口
) G. f% G/ D) B, I. gswPart.Visible = True '显示零件
|5 F! z! \- f# D9 x. ?9 C5 [。。。 |
|
楼主