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

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

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

x

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

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

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

Option Explicit
?4 x, ?6 D" g9 q! f/ h" Y
0 l% V! [# W" v4 e7 p/ ?
Dim swApp As SldWorks.SldWorks8 H# W6 @" Z2 k: D2 q9 Q$ o- a
Dim fileerror As Long
* s) Y% s' Y; I9 U8 u" r3 ^
Dim filewarning As Long: `: F4 _% g8 g! `7 i
; d/ V- x' v y4 [: [. C
9 C, P$ w: o0 \( |( g
Sub main()' W" Y- F! i2 ~/ f3 i4 @; ^
+ _1 A1 k2 V( @* @9 s" n6 s. u
Set swApp = Application.SldWorks7 p$ L8 I# ^& R) |9 R
swApp.Visible = True
1 U* \' S# U6 x2 u
swApp.OpenDoc6 "d:\samples\hotrod.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning& \4 U9 c( g$ e: K
4 r8 o. J' C" {0 r3 [
+ j7 i% ~' s/ G' z
End Sub/ p0 |$ S. U# E% \) T6 X# c

复制代码

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

通知