在CAD软件中快速统计消防电工程量，可以遵循以下步骤：

1. 数据准备：

确保你的CAD图纸中已经包含了所有消防电气设备的尺寸、数量等信息。

检查图纸是否按照统一的命名和编号规则进行标注。

2. 创建工程量统计表：

在CAD中创建一个新的表格，用于记录各个消防电气设备的工程量。

表格应包含设备名称、规格、数量、单价、总价等列。

3. 编写脚本或宏：

CAD软件通常支持编写脚本或宏来自动化操作。你可以使用VBA（Visual Basic for Applications）或AutoLISP等语言编写脚本。

脚本的主要功能是遍历图纸中的所有设备标注，提取相关信息，并填充到刚才创建的表格中。

4. 脚本示例（VBA）：

以下是一个简单的VBA脚本示例，用于统计消防电气设备的数量：

```vba

Sub CountFireSafetyEquipment()

Dim doc As Document

Dim selSet As SelectionSet

Dim ent As Entity

Dim count As Integer

Dim blockRef As BlockReference

Dim blockTableRecord As BlockTableRecord

Dim table As Table

Dim row As TableRow

Dim cell As TableCell

Set doc = ThisDrawing

Set selSet = doc.SelectionSets.Add

selSet.SetByLayer "FireSafetyEquipment" ' 假设消防设备标注在“FireSafetyEquipment”图层上

count = 0

For Each ent In selSet

If TypeOf ent Is BlockReference Then

Set blockRef = ent

Set blockTableRecord = blockRef.BlockTableRecord

' 假设设备名称在块定义的属性中，属性标签为"EquipmentName"

For Each cell In blockTableRecord.GetAttributes("EquipmentName")

count = count + 1

Next cell

End If

Next ent

' 输出结果到表格

Set table = doc.Marks.Add

Set row = table.Rows.Add

Set cell = row.Cells.Add

cell.Text = "消防电气设备总数"

Set cell = row.Cells.Add

cell.Text = count

MsgBox "消防电气设备总数: " & count

End Sub

```

5. 运行脚本：

在CAD中运行上述脚本，脚本会自动统计消防电气设备的数量，并将结果输出到表格中。

6. 调整和优化：

根据实际情况调整脚本，例如添加对设备规格、单价、总价等的统计。

如果需要，可以进一步优化脚本，使其能够处理不同类型的消防电气设备。

通过以上步骤，你可以在CAD中快速统计消防电工程量，提高工作效率。具体的实现方法可能会根据你使用的CAD软件版本和具体需求有所不同。