在CAD中快速数出植物数量，可以采用以下几种方法：

1. 使用块（Block）功能：

将每种植物创建成一个块，并给每个块赋予一个唯一的属性（Attribute）。

将植物放置到图纸上时，每个块都包含一个属性，该属性可以存储植物的种类或编号。

使用“属性提取”（Attribute Extraction）功能，将图纸上的所有植物块提取出来，并统计每个属性的个数。

2. 使用查询（Query）功能：

如果植物已经用块创建，并且每个块都有属性，可以直接使用“属性查询”（Attribute Query）功能。

输入查询命令，选择要查询的属性，系统会列出所有该属性的值及其出现的次数。

3. 使用脚本或插件：

编写VBA、LISP或ObjectARX等脚本，通过编程方式遍历图纸中的所有对象，检查它们是否是植物块，并统计数量。

或者，使用第三方插件，这些插件通常提供更高级的功能，可以快速统计图纸中的植物数量。

4. 手动计数：

如果图纸上的植物不是块，或者没有属性，可能需要手动计数。

可以使用CAD的“选择集”（Selection Set）功能，选择所有植物，然后通过计数选择集内的对象数量来得到植物的总数。

以下是一个简单的VBA脚本示例，用于统计植物块的数量：

```vba

Sub CountPlants()

Dim doc As Document

Dim selSet As SelectionSet

Dim plantCount As Integer

Dim plantName As String

Set doc = ThisDrawing

Set selSet = doc.SelectionSets.Add

' 假设植物块的属性名为 "PlantType"

plantCount = 0

plantName = ""

' 遍历选择集中的所有对象

For Each obj In selSet

' 检查对象是否是块引用

If obj.IsBlockReference Then

' 获取块引用的属性值

plantName = obj.BlockReference.GetAttributeByName("PlantType")

' 统计每个植物类型的数量

plantCount = plantCount + 1

End If

Next obj

' 输出植物总数

MsgBox "Total number of plants: " & plantCount

End Sub

```

请注意，以上脚本仅为示例，实际使用时可能需要根据具体情况调整。