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

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

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

x

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

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

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

Option Explicit' u `; J! _; v
6 J0 S, K7 R5 X
Dim swApp As SldWorks.SldWorks; h, S9 A; G) c* f6 G
Dim fileerror As Long
9 R# q: D) i* B) U
Dim filewarning As Long/ y1 [, j2 ]; T* P2 z+ M
1 @, x* M* V! U) s( P. f+ u
7 L, A6 X; ?- e0 b8 [1 ?
Sub main()
# Q3 F4 N% R& s! O" P" U
6 G: O! q& F( `& l8 T; L7 o
Set swApp = Application.SldWorks+ y; B0 V; l; U0 b( h3 ^: E9 e
swApp.Visible = True
) n+ D+ H+ z O& s
swApp.OpenDoc6 "d:\samples\hotrod.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning
& w% d" M$ x) C+ g8 I4 {/ S
; O4 j: d9 z# C$ y' F; ~
' f _# X4 }! |
End Sub( P* }2 G/ X, U$ t: N7 V

复制代码

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

通知