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

sfyan · 发表于 2011-8-22 14:17:21

您需要登录才可以下载或查看，没有帐号？注册

x

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

votasee · 发表于 2011-9-1 15:36:01

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

Option Explicit
* s, i5 i' w* L7 K& k* s
( W2 _6 O+ c) K+ w; [, R
Dim swApp As SldWorks.SldWorks+ D: b, |% |$ u1 l# x
Dim fileerror As Long) \4 H" ^ b6 |0 ^2 e
Dim filewarning As Long
) @/ Q$ ~1 p/ q: ]! D. O
+ F* }) e7 U6 A+ E: L3 L
6 H/ [ o; I- @/ P6 {! N2 o" V
Sub main()
9 L7 P0 q9 z3 a4 [
- e+ T1 T2 K! D4 }6 d0 [5 D/ \
Set swApp = Application.SldWorks+ G' i" m# x1 X% @
swApp.Visible = True' j- s1 `- Y% t$ g0 ^2 x- w
swApp.OpenDoc6 "d:\samples\hotrod.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning) \ E# B X( i/ T4 c6 P6 x; X/ _
* z7 H2 k2 e V0 N7 K; [: }3 `4 }" D
1 z* t( u% i6 Q' f
End Sub* o" Y+ V6 R w/ F5 P6 }/ A b

复制代码

		自动登录	找回密码
密码			注册

通知