a1347017e3
Refine project overview to include specific business context (Blaidy Company) and the main workbook file. Restructure the architecture section into a layered object-oriented design (Data, Processing, Application layers) and define the responsibilities of core VBA classes. Add new technical documentation sections covering: - Model number format parsing structure - Condition expression language syntax - Category hierarchy logic and picking strategies - Material matching pipeline flow Include VBA code examples for key methods such as CollectAllMaterials and GetMaterialsByCategoryAndModel to illustrate recursive traversal and material retrieval logic. Clarify the structure of key Excel configuration sheets.
428 lines
9.5 KiB
Markdown
428 lines
9.5 KiB
Markdown
# 型号解析与物料匹配系统 - 使用说明
|
||
|
||
## 📋 目录
|
||
|
||
1. [系统概述](#系统概述)
|
||
2. [安装部署](#安装部署)
|
||
3. [快速开始](#快速开始)
|
||
4. [详细使用](#详细使用)
|
||
5. [API参考](#api参考)
|
||
6. [扩展指南](#扩展指南)
|
||
7. [常见问题](#常见问题)
|
||
|
||
---
|
||
|
||
## 系统概述
|
||
|
||
### 功能简介
|
||
|
||
本系统实现了从产品型号中自动提取物料选择条件，并根据这些条件从BOM库中筛选出符合要求的物料清单。
|
||
|
||
### 核心功能
|
||
|
||
- ✅ **型号解析**: 自动解析产品型号的各个组成部分
|
||
- ✅ **条件提取**: 按规则提取物料选择条件(过程连接、接液材质、量程范围等)
|
||
- ✅ **条件匹配**: 支持复杂的逻辑表达式(AND/OR/NOT/括号)
|
||
- ✅ **物料筛选**: 自动筛选符合条件的物料
|
||
- ✅ **批量处理**: 支持批量处理多个型号
|
||
- ✅ **可扩展性**: 便于添加新的提取条件和匹配规则
|
||
|
||
### 示例
|
||
|
||
**输入型号**: `YTHN-100.A0.532.M203.M16.Y3|BP-095.2312.M16.PA3`
|
||
|
||
**提取条件**:
|
||
- `gclj` (过程连接) = `M20`
|
||
- `jycz` (接液材质) = `3`
|
||
- `lcfw` (量程范围) = `M16`
|
||
|
||
**匹配结果**: `01011019018 - 高压接头部件`
|
||
|
||
---
|
||
|
||
## 安装部署
|
||
|
||
### 1. 导入类模块
|
||
|
||
将以下4个类模块文件导入到VBA项目中:
|
||
|
||
1. **clsModelParser.cls** - 型号解析器
|
||
2. **clsConditionExtractor.cls** - 条件提取器
|
||
3. **clsConditionMatcher.cls** - 条件匹配器
|
||
4. **clsBOMManager.cls** - BOM管理器(扩展版本)
|
||
|
||
### 2. 导入标准模块
|
||
|
||
将以下2个标准模块导入到VBA项目中:
|
||
|
||
1. **modModelParserTest.bas** - 测试模块
|
||
2. **modModelParserExamples.bas** - 应用示例模块
|
||
|
||
### 3. 验证安装
|
||
|
||
运行测试过程验证安装是否成功:
|
||
|
||
```vba
|
||
' 在立即窗口或通过运行按钮执行
|
||
RunAllTests
|
||
```
|
||
|
||
如果所有测试通过，说明安装成功！
|
||
|
||
---
|
||
|
||
## 快速开始
|
||
|
||
### 最简单的使用方式
|
||
|
||
```vba
|
||
Sub QuickStart()
|
||
' 1. 创建BOM管理器并加载数据
|
||
Dim bomMgr As New clsBOMManager
|
||
bomMgr.LoadData ThisWorkbook.Worksheets("领料配置"), _
|
||
ThisWorkbook.Worksheets("平台配置清单")
|
||
|
||
' 2. 根据型号获取物料
|
||
Dim modelStr As String
|
||
modelStr = "YTHN-100.A0.532.M203.M16.Y3"
|
||
|
||
Dim materials As Collection
|
||
Set materials = bomMgr.GetMaterialsByModel(modelStr, "部件")
|
||
|
||
' 3. 查看结果
|
||
Dim mat As clsMaterialItem
|
||
For Each mat In materials
|
||
Debug.Print mat.Code & " - " & mat.Name
|
||
Next mat
|
||
End Sub
|
||
```
|
||
|
||
### 生成领料清单
|
||
|
||
运行以下示例生成完整的领料清单:
|
||
|
||
```vba
|
||
Example1_GeneratePickingListByModel
|
||
```
|
||
|
||
这将创建一个新工作表，包含完整的领料清单。
|
||
|
||
---
|
||
|
||
## 详细使用
|
||
|
||
### 1. 型号解析
|
||
|
||
#### 基础解析
|
||
|
||
```vba
|
||
Dim parser As New clsModelParser
|
||
Dim modelStr As String
|
||
modelStr = "YTHN-100.A0.532.M203.M16.Y3|BP-095.2312.M16.PA3"
|
||
|
||
If parser.ParseModel(modelStr) Then
|
||
' 解析成功
|
||
Debug.Print "型号: " & parser.ModelType ' YTHN
|
||
Debug.Print "外径: " & parser.Diameter ' 100
|
||
Debug.Print "过程连接: " & parser.ConnectionCode ' M203
|
||
Debug.Print "量程: " & parser.RangeCode ' M16
|
||
Else
|
||
' 解析失败
|
||
Debug.Print "错误: " & parser.ErrorMessage
|
||
End If
|
||
```
|
||
|
||
#### 获取提取的代码
|
||
|
||
```vba
|
||
Debug.Print "螺纹代码: " & parser.GetThreadCode() ' M20
|
||
Debug.Print "材质代码: " & parser.GetMaterialCode() ' 3
|
||
Debug.Print "量程代码: " & parser.GetRangeCode() ' M16
|
||
```
|
||
|
||
### 2. 条件提取
|
||
|
||
```vba
|
||
Dim parser As New clsModelParser
|
||
parser.ParseModel "YTHN-100.A0.532.M203.M16.Y3"
|
||
|
||
Dim extractor As New clsConditionExtractor
|
||
Dim conditions As Object
|
||
Set conditions = extractor.ExtractConditions(parser)
|
||
|
||
' 获取单个条件
|
||
Debug.Print "过程连接: " & extractor.GetConditionValue("gclj") ' M20
|
||
Debug.Print "接液材质: " & extractor.GetConditionValue("jycz") ' 3
|
||
Debug.Print "量程范围: " & extractor.GetConditionValue("lcfw") ' M16
|
||
|
||
' 遍历所有条件
|
||
Dim key As Variant
|
||
For Each key In conditions.Keys
|
||
Debug.Print key & " = " & conditions(key)
|
||
Next key
|
||
```
|
||
|
||
### 3. 条件匹配
|
||
|
||
#### 简单条件
|
||
|
||
```vba
|
||
Dim matcher As New clsConditionMatcher
|
||
Dim conditions As Object
|
||
Set conditions = CreateObject("Scripting.Dictionary")
|
||
conditions("gclj") = "M20"
|
||
conditions("lcfw") = "M16"
|
||
|
||
' 等于
|
||
Debug.Print matcher.IsMatch("lcfw=M16", conditions) ' True
|
||
|
||
' 不等于
|
||
Debug.Print matcher.IsMatch("gclj!=M10", conditions) ' True
|
||
```
|
||
|
||
#### 复合条件
|
||
|
||
```vba
|
||
' AND 运算
|
||
Debug.Print matcher.IsMatch("lcfw=M16 AND gclj=M20", conditions) ' True
|
||
|
||
' OR 运算
|
||
Debug.Print matcher.IsMatch("lcfw=M16 OR lcfw=M17", conditions) ' True
|
||
|
||
' 括号优先级
|
||
Debug.Print matcher.IsMatch("gclj=M20 AND (lcfw=M16 OR lcfw=M17)", conditions) ' True
|
||
```
|
||
|
||
### 4. 获取物料清单
|
||
|
||
#### 指定类别
|
||
|
||
```vba
|
||
Dim bomMgr As New clsBOMManager
|
||
bomMgr.LoadData wsConfig, wsPlatform
|
||
|
||
' 获取"部件"类别的符合条件的物料
|
||
Dim materials As Collection
|
||
Set materials = bomMgr.GetMaterialsByModel("YTHN-100.A0.532.M203.M16.Y3", "部件")
|
||
```
|
||
|
||
#### 所有类别
|
||
|
||
```vba
|
||
' 获取所有类别的符合条件的物料
|
||
Set materials = bomMgr.GetMaterialsByModel("YTHN-100.A0.532.M203.M16.Y3")
|
||
```
|
||
|
||
#### 使用父类别/子类别逻辑
|
||
|
||
```vba
|
||
' 使用父类别物料(默认)
|
||
Set materials = bomMgr.GetMaterialsByCategoryAndModel( _
|
||
"YTHN-100.A0.532.M203.M16.Y3", "部件", True)
|
||
|
||
' 使用子类别物料(库存不足时)
|
||
Set materials = bomMgr.GetMaterialsByCategoryAndModel( _
|
||
"YTHN-100.A0.532.M203.M16.Y3", "部件", False)
|
||
```
|
||
|
||
---
|
||
|
||
## API参考
|
||
|
||
### clsModelParser
|
||
|
||
| 方法/属性 | 说明 | 返回类型 |
|
||
|---------|------|---------|
|
||
| `ParseModel(modelStr)` | 解析型号字符串 | Boolean |
|
||
| `GetThreadCode()` | 获取螺纹代码 | String |
|
||
| `GetMaterialCode()` | 获取材质代码 | String |
|
||
| `GetRangeCode()` | 获取量程代码 | String |
|
||
| `IsValid` | 解析是否成功 | Boolean |
|
||
| `ErrorMessage` | 错误信息 | String |
|
||
| `ToString()` | 返回解析结果(调试用) | String |
|
||
|
||
### clsConditionExtractor
|
||
|
||
| 方法/属性 | 说明 | 返回类型 |
|
||
|---------|------|---------|
|
||
| `ExtractConditions(parser)` | 提取所有条件 | Dictionary |
|
||
| `GetConditionValue(varName)` | 获取单个条件值 | String |
|
||
| `AddCondition(varName, value)` | 手动添加条件 | - |
|
||
| `AddExtractionRule(...)` | 添加提取规则 | - |
|
||
| `ToString()` | 返回条件字符串(调试用) | String |
|
||
|
||
### clsConditionMatcher
|
||
|
||
| 方法 | 说明 | 返回类型 |
|
||
|-----|------|---------|
|
||
| `IsMatch(expr, conditions)` | 判断条件是否匹配 | Boolean |
|
||
| `TestExpression(expr)` | 测试表达式有效性 | String |
|
||
|
||
### clsBOMManager (新增方法)
|
||
|
||
| 方法 | 说明 | 返回类型 |
|
||
|-----|------|---------|
|
||
| `GetMaterialsByModel(modelStr, [categoryName])` | 根据型号获取物料 | Collection |
|
||
| `GetMaterialsByCategoryAndModel(...)` | 根据类别和型号获取物料 | Collection |
|
||
| `ParseModelAndExtractConditions(modelStr)` | 解析型号并返回条件 | Dictionary |
|
||
|
||
---
|
||
|
||
## 扩展指南
|
||
|
||
### 添加新的提取条件
|
||
|
||
假设需要添加"表盘类型"条件:
|
||
|
||
```vba
|
||
' 在 clsConditionExtractor.InitializeRules 方法中添加:
|
||
m_ExtractionRules("bplx") = Array("DialCode", "Direct")
|
||
```
|
||
|
||
### 添加新的提取方法
|
||
|
||
如果需要特殊的提取逻辑:
|
||
|
||
```vba
|
||
' 在 clsConditionExtractor.ExtractValue 方法中添加:
|
||
Case "GetMiddleChars"
|
||
' 提取中间几位字符
|
||
If Len(sourceValue) > 4 Then
|
||
ExtractValue = Mid(sourceValue, 2, 3)
|
||
Else
|
||
ExtractValue = sourceValue
|
||
End If
|
||
```
|
||
|
||
### 扩展条件匹配运算符
|
||
|
||
在 `clsConditionMatcher.EvaluateSimpleCondition` 中添加新运算符:
|
||
|
||
```vba
|
||
' 示例: 添加 > 运算符
|
||
ElseIf InStr(cond, ">") > 0 Then
|
||
' ... 实现大于比较
|
||
```
|
||
|
||
---
|
||
|
||
## 常见问题
|
||
|
||
### Q1: 型号解析失败怎么办?
|
||
|
||
**A**: 检查型号格式是否正确:
|
||
- 表头部分必须包含: `型号-外径.安装.壳体.连接.量程.[特性]`
|
||
- 各部分用 `.` 分隔
|
||
- 表头和表盘用 `|` 分隔
|
||
|
||
### Q2: 条件匹配不准确?
|
||
|
||
**A**:
|
||
1. 检查物料的选择条件表达式是否正确
|
||
2. 运行 `Test3_ConditionMatcher` 验证匹配器功能
|
||
3. 使用 `TestExpression` 方法测试具体表达式
|
||
|
||
### Q3: 如何调试条件提取?
|
||
|
||
**A**: 使用以下代码查看提取结果:
|
||
|
||
```vba
|
||
Dim conditions As Object
|
||
Set conditions = bomMgr.ParseModelAndExtractConditions(modelStr)
|
||
|
||
Dim key As Variant
|
||
For Each key In conditions.Keys
|
||
Debug.Print key & " = " & conditions(key)
|
||
Next key
|
||
```
|
||
|
||
### Q4: 批量处理速度慢?
|
||
|
||
**A**:
|
||
1. 避免在循环中重复加载BOM数据
|
||
2. 使用 `GetMaterialsByModel` 一次性获取所有类别
|
||
3. 考虑添加缓存机制
|
||
|
||
### Q5: 如何验证物料条件表达式?
|
||
|
||
**A**: 运行示例:
|
||
|
||
```vba
|
||
Example5_ValidateMaterialConditions
|
||
```
|
||
|
||
这将生成一个验证报告，显示所有物料条件的有效性。
|
||
|
||
---
|
||
|
||
## 测试用例
|
||
|
||
### 运行所有测试
|
||
|
||
```vba
|
||
RunAllTests
|
||
```
|
||
|
||
### 单独测试
|
||
|
||
```vba
|
||
' 测试型号解析
|
||
Test1_ModelParser
|
||
|
||
' 测试条件提取
|
||
Test2_ConditionExtractor
|
||
|
||
' 测试条件匹配
|
||
Test3_ConditionMatcher
|
||
|
||
' 测试完整流程
|
||
Test4_GetMaterialsByModel
|
||
```
|
||
|
||
---
|
||
|
||
## 应用示例
|
||
|
||
### 示例1: 生成领料清单
|
||
|
||
```vba
|
||
Example1_GeneratePickingListByModel
|
||
```
|
||
|
||
### 示例2: 批量处理型号
|
||
|
||
```vba
|
||
Example2_BatchProcessModels
|
||
```
|
||
|
||
### 示例3: 查询型号详情
|
||
|
||
```vba
|
||
Example3_ShowModelDetails
|
||
```
|
||
|
||
### 示例4: 对比两个型号
|
||
|
||
```vba
|
||
Example4_CompareModels
|
||
```
|
||
|
||
### 示例5: 验证条件表达式
|
||
|
||
```vba
|
||
Example5_ValidateMaterialConditions
|
||
```
|
||
|
||
---
|
||
|
||
## 技术支持
|
||
|
||
如有问题，请:
|
||
1. 查看测试结果和调试信息
|
||
2. 运行相关示例程序
|
||
3. 检查条件表达式语法
|
||
|
||
---
|
||
|
||
**文档版本**: v1.0
|
||
**最后更新**: 2026-01-19 |