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

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

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

x

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

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

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

Option Explicit
- V. p; \0 [( o! ?& W
4 G0 z% d/ ]% D) K
Dim swApp As SldWorks.SldWorks
+ s- [2 |7 C+ {: `& [9 D
Dim fileerror As Long) X1 P, } |4 F. T+ c
Dim filewarning As Long O k0 _/ k! B% S
; M1 y: l8 H5 J
2 c7 j. r8 b" \1 R+ E. v
Sub main()
" ?: c/ S/ P$ z C
$ s6 V' d+ u- {" K) e$ \( j7 T
Set swApp = Application.SldWorks* b* i' L3 N6 z; R/ v- G% B$ }$ N
swApp.Visible = True0 b9 O, m2 X1 O/ [) d( j5 o" V8 y
swApp.OpenDoc6 "d:\samples\hotrod.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning
i" ]; h: O; w; g$ _
d, e5 `5 Z1 L) G
3 V$ b) | A' X% I! z9 Z
End Sub7 G% y% j u7 D

复制代码

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

通知