如何在已有零件的情况下，用将vb将零件插入装配体环境中

wangzq · 发表于 2016-5-4 20:31:22

Private Sub Command1_Click()
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModel = swApp.NewAssembly()
Assembly Title = swModel.GetTitle
Set swPart = swApp.OpenDoc6("C:\Users\Administrator\Desktop\中型夹具元件\定位件\Z300005-055.SLDPRT", 1, 0, "", longstatus, longwarnings)
boolstatus = swModel.AddComponent("C:\Users\Administrator\Desktop\中型夹具元件\定位件\Z300005-055.SLDPRT", 0, 0, 0)
End Sub
这是我的程序，vb提示用户定义类型未定义，求大神解答

qianxiaoanran · 发表于 2016-5-9 22:21:05

顶顶顶，有人懂不？？我也想知道

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

如何在已有零件的情况下，用将vb将零件插入装配体环境中

最佳新人