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

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

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

x

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

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

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

Option Explicit& H+ u3 |. d1 W6 a+ h4 U
4 d$ g2 W* W Q6 A, \
Dim swApp As SldWorks.SldWorks* z8 u1 e6 y1 u% Y$ @. D
Dim fileerror As Long
( ^$ |& X$ Z; z# p- x4 E
Dim filewarning As Long* ~5 C' g3 h4 F, N8 H
+ S$ r' s; Z( i/ }8 k( ^" M
2 m, x7 u% `2 l) Z! n9 g
Sub main()
# {! c5 w; x3 d; e
# K5 F" b) O( X- a
Set swApp = Application.SldWorks
( L% m+ y( P0 h, Z4 l8 x3 Z; `9 j) e6 T
swApp.Visible = True. k% C, z- ?' n2 h1 H4 U
swApp.OpenDoc6 "d:\samples\hotrod.sldprt", swDocPART, swOpenDocOptions_Silent, "", fileerror, filewarning
3 U7 V' F" c7 y- ^: r X
3 ^8 B3 M N% j! ~( m7 j+ W6 t
( v: @+ [ y% ~/ ?, Z* f
End Sub
/ B5 I# @$ V6 o U6 n

复制代码

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

通知