|
|
发表于 2009-6-15 10:57:41
|
显示全部楼层
来自： 中国北京
试试这样：, y3 y! s1 Q) w6 s/ q) a( H- H
-------------------------------------------------------------------6 X/ o0 l7 w" R+ ?! S P' T. n
Dim swApp As SldWorks.SldWorks
* Z1 i& R; V [4 w7 {8 P! H/ P! c, E+ JDim swPart As SldWorks.PartDoc '要制作的零件图，你自己起的名字' y/ t" J: V4 o+ m1 S
8 d" q/ ^- B. m) Z& y; v2 H8 U
Set swApp = Application.SldWorks `) M9 V9 Z+ G
。。。其他变量初始化
' s. i5 i" d9 X q2 I; gswApp.DocumentVisible False, swDocPART '开始隐藏零件窗口
7 [8 G: B, [8 k7 D4 u。。。开始画图
& _" f5 w+ ]. k$ BswApp.DocumentVisible True, swDocPART ‘'解除隐藏零件窗口
8 ]* x. H: Z, V7 w0 y: a6 ?5 h" dswPart.Visible = True '显示零件
# k% k7 {# j- I) I( {3 y( Z。。。 |
|
楼主