Question

用VB做solidworks二次开发怎么实现零件自动装配啊?宏录制的代码不好用，有谁做过这方面的帮帮忙！高分

网上说先通过OpenDoc6函数将要打开的零件写入内存，然后再添加到装配体里就可以了。
怎么实现啊？

Answer 1

把要用到的零件打开，这是自动装配的前提
运行宏的时候，要么宏代码里有打开所需要零件的驱动代码
要么手动打开所需要的零件

追问

我已经编代码把零件图打开了啊，在用AddComponent函数调入装配体文件，结果装配体是空的，载不进去啊。
还有OpenDoc6函数怎么用呀？

追答

AddComponent函数在装配体中添加零部件，录制一个宏，我试过的，可以

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.AddComponent("C:\Documents and Settings\Desktop\零件1.SLDPRT", 0.008286408480103, 0.00842855280473, 0.00828640848016)
End Sub

OpenDoc6函数指的是打开solidworks文件，录制一个宏，就知道怎么用了

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Set Part = swApp.OpenDoc6("C:\Documents and Settings\Desktop\DD零件1.SLDPRT", 1, 0, "", longstatus, longwarnings)

swApp.ActivateDoc2 "DD零件1.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
End Sub

追问

载入零件弄好了，怎么确定装配关系呀？我自己装配好了之后，用宏录制后播放零件只是摆在装配图里了，没按装配关系装配呀？

追答

这个。。。。
当初我就止步于此，我也没有再往下研究
后来发现自动装配也没有多大实际意义
我没有什么好的方法，你可以研究研究！！！！

Answer 2

提交时给某个隐含输入域写入提交的标志。
窗口上放个timer 定时检测提交标志，以执行代码。如果timer循环时间足够短，则在用户看来；几乎是在点提交后马上执行的！

Answer 3

你好能不能把你装配的程序发过来啊，我现在刚学，不知道怎么装配啊。先谢谢了！

Answer 4

您好，想向你请教SW二次开发自动装配的源代码，邮箱117983908@qq.com

Answer 5

AddComponent