在CAD中快速统计门型号数量，可以通过以下几种方法实现：

方法一：使用CAD自带的查询功能

1. 选择对象：选择所有需要统计的门对象。

2. 属性查询：在CAD的命令行输入“PROPERTIES”或点击“属性”按钮，选择门对象。

3. 查询属性：在属性窗口中找到“类型”或“型号”这一属性，点击右键选择“全部选择”，然后点击“确定”。

4. 统计数量：使用Excel或其他电子表格软件打开属性查询结果，使用筛选功能筛选出不同型号的门，统计数量。

方法二：编写VBA脚本

1. 打开VBA编辑器：在CAD中按下 `Alt + F11` 打开VBA编辑器。

2. 创建模块：在VBA编辑器中，选择“插入” > “模块”，创建一个新的模块。

3. 编写脚本：在模块中编写VBA代码，用于遍历所有门对象并统计型号数量。

4. 运行脚本：保存模块，返回CAD界面，使用 `Run` 命令运行脚本。

以下是一个简单的VBA脚本示例：

```vba

Sub CountDoors()

Dim doorCount As Object

Dim doorType As String

Dim doorTypes As Object

Dim doorTypesDict As Object

Set doorTypesDict = CreateObject("Scripting.Dictionary")

For Each doorCount In ThisDrawing.ModelSpace

If doorCount.ObjectType = "AcDbEntity" And doorCount.Layer = "Doors" Then

doorType = doorCount.GetAttribute("Type", "Type")

doorTypesDict(doorType) = doorTypesDict(doorType) + 1

End If

Next doorCount

' 输出结果

For Each doorType In doorTypesDict.Keys

Debug.Print doorType & ": " & doorTypesDict(doorType)

Next doorType

End Sub

```

方法三：使用第三方插件

市面上有一些第三方插件可以方便地统计CAD中的对象数量，例如：

CAD Manager：可以统计各种对象的数量，包括门、窗等。

CADscript：可以编写脚本自动化处理CAD对象。

以上方法可以根据你的具体需求和环境选择使用。