求用VB打开现存SOLIDWORKS零件的方法

sfyan

如题，现在想在VB中建立一个按钮，通过它可以打开现存SOLIDWORKS零件，求按钮的代码

votasee

这个简单的玩意.还要求代码啊....连打开都不会,还搞VBA干吗呢...老老实实看点APIHELP好了.

1. Option Explicit
   ) p; z2 `- k) [- R) V* W% N; v/ J1 m
2. 
   # s& ^9 |% \8 \4 @; T7 T( p, K' D$ i
3. Dim swApp       As SldWorks.SldWorks
   3 W( H: m+ B0 Z: l# j7 b/ t
4. Dim fileerror   As Long
   
5. Dim filewarning As Long
   ( S- Y+ i7 \5 A" L' f- q
6. 
   ' p* j6 m& H" o
7. 
   1 I/ j' C% N: I) v# w0 C8 Y
8. Sub main()
   + p3 D* h8 `$ `4 w/ u2 x
9. 
   
10. Set swApp = Application.SldWorks
    
11. swApp.Visible = True
    
12. swApp.OpenDoc6 "d:\samples\hotrod.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning
    ! ~$ B2 V# F' M* O0 d$ R' o/ Z+ H- Q
13. 
    
14. 
    0 L* D7 q" y9 @2 ^: t
15. End Sub
    , o. J: L) J/ _* ]6 }( Q- L( b+ [$ L

复制代码