摘要：
toolbox智能扣件、迈迪设计宝（今日智造）等工具都有快速装配功能，前者跟SolidWorks结合很紧密，但是也许是太智能了，有些bug莫名其妙（也不好意思要人家免费解惑、修复）；后者本人没有实际使用过。 本文主要介绍我自己写的快速装配小程序，优点是： 轻量化(只需要有Excel或wps（带vba 阅读全文
摘要：
SolidWorks文档不同于AutoCAD、PDF、Word等独立文件，大部分SolidWorks文档都依赖其他文档，由其他文档组合而成。如下图： 上图中，如果最低层的“零件1”更改了文件名或者移动存放路径，而没有做恰当处理的话，“组件1”和“部件1”都将无法正确显示。 SolidWorks文档通 阅读全文
摘要：
SolidWorks焊接件有两种建模方式：一种是装配体方式，每个组成部分都做为单独的零件；一种是焊接件模式，每个组成部分作为一个切割清单项目，共用一个零件模型。第一种方式方便每个组成部分独立出工程图，但是建模和修改不方便、且型材不能享受SolidWorks焊接模块带来的便利；第二种方式要将每个组成部 阅读全文
摘要：
Sub 获取模板信息() Call sw初始化("") FilePathName = swModel.GetPathName If swFileTYpe = 2 Then ' ElseIf swFileTYpe = 3 Then ' Dim vDepend As Variant vDepend = 阅读全文
摘要：
Public 禁止改变 As Boolean Public 表头行 As Integer Public 首行 As Integer Public 末行 As Long ' Public 首列 As Integer Public 末列 As Integer Public 配置列 As Integer 阅读全文
摘要：
Sub 遍历文件夹(ByVal 指定子文件夹) 目录路径 = ThisWorkbook.Path & "\" 获取行列号 If Not 指定子文件夹 Then 遍历文件夹路径 = 目录路径 Else 遍历文件夹路径 = Cells(ActiveCell.Row, 文件夹名称列号) & "\" 遍历文 阅读全文
摘要：
Sub 遍历配置() Dim swDim As SldWorks.Dimension 清除_保留首行 sw全名 = Cells(首行, 文件路径列) & Cells(首行, 文件名称列) Call sw初始化(sw全名) 获取浮动列 '先一次性获取所有配置尺寸值，再在后面列出==开始 configN 阅读全文
摘要：
Public 禁止改变 As Boolean Public 表头行 As Integer Public 首行 As Integer Public 末行 As Long ' Public 首列 As Integer Public 末列 As Integer Public 配置列 As Integer 阅读全文
摘要：
Sub 移动文件() 获取行列号 Set 已经处理文件 = CreateObject("Scripting.Dictionary") 文件个数 = 1 Set fso = CreateObject("Scripting.FileSystemObject") Call sw初始化("") For 当前 阅读全文
摘要：
Sub 热改名(ByVal 旧文件名全名, ByVal 新文件名全名, ByRef 释放锁定或关闭的文件, ByRef 是否成功) Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next fso.MoveFi 阅读全文