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

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

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

x

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

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

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

Option Explicit' t6 T% |# U: m, s
3 O( c8 c6 W, L" {2 p% o
Dim swApp As SldWorks.SldWorks% D+ Y# }+ X+ F3 p" m2 M
Dim fileerror As Long
* \& ?+ t) j4 i7 o& {6 g$ R1 N
Dim filewarning As Long( ]3 F7 R K! t4 v0 r
$ Z: \* @& e# _9 f+ E2 k
5 \! q7 j. c* x( U
Sub main()
( K# u Y. p- x/ g5 g8 F5 p0 T3 r8 {
@# m, H H- f* |) b7 \
Set swApp = Application.SldWorks
+ d# g. m, O6 u; {- ^+ e
swApp.Visible = True. n# r' s( ~, k7 A' F
swApp.OpenDoc6 "d:\samples\hotrod.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning
- p; e% Y4 y$ P% I3 e: D
2 e: L5 b3 N) F! C- n$ M2 U( m
9 _ z: G4 ]. ~/ ~+ z3 G
End Sub
1 c" t+ `3 x3 c8 `( L4 d

复制代码

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

通知