Vba选择cad中不同类型图元(Select Case True语句和like用法)

Select Case True 是一个常见的VBA编程技巧，用于在多个条件之间进行选择。具体来说，Select Case True 语句的每个 Case 语句都包含一个布尔表达式，这些表达式会逐个与 True 进行比较。当其中一个表达式的结果为 True 时，对应的代码块将被执行。Select Case True 示例，每个 Case 语句中的表达式 ent.ObjectName Like "*Line" 和 ent.ObjectName Like "*Circle" 都会返回布尔值 (True 或 False)。Select Case True 将这些布尔值与 True 进行比较，并执行匹配的代码块。

我们选择图形空间中第一个图元:

Dim ent As AcadEntity

Set ent = ThisDrawing.ModelSpace.Item(0)

 

' 不区分大小写的匹配

Select Case LCase(ent.ObjectName)

    Case "acdbline"

        MsgBox "This is a Line"

    Case "acdbcircle"

        MsgBox "This is a Circle"

    Case Else

        MsgBox "This is some other type of object"

End Select

 

 

Select Case True

    Case ent.ObjectName Like "*line"

        MsgBox "This is a Line"

    Case ent.ObjectName Like "*circle"

        MsgBox "This is a Circle"

    Case Else

        MsgBox "This is some other type of object"

End Select

 

'（InStr 函数）

If InStr(1, ent.ObjectName, "Line", vbTextCompare) > 0 Then

    MsgBox "This is a Line"

ElseIf InStr(1, ent.ObjectName, "Circle", vbTextCompare) > 0 Then

    MsgBox "This is a Circle"

Else

    MsgBox "This is some other type of object"

End If

如果你不指定 compare 参数，InStr 默认区分大小写。使用 vbTextCompare 参数可以使 InStr 不区分大小写。以下是代码以及解释：Dim ent As AcadEntity

Set ent = ThisDrawing.ModelSpace.Item(0)

 

Select Case True

    Case ent.ObjectName Like "*Line"

        MsgBox "This is a Line"

    Case ent.ObjectName Like "*Circle"

        MsgBox "This is a Circle"

    Case Else

        MsgBox "This is some other type of object"

End SelectSelect 

Case True：启动一个 Select Case 结构，将每个 Case 表达式的结果与 True 进行比较。Case ent.ObjectName Like "*Line"：如果 ent.ObjectName 包含 "Line"，则此表达式为 True，将执行 MsgBox "This is a Line"。Case ent.ObjectName Like "*Circle"：如果 ent.ObjectName 包含 "Circle"，则此表达式为 True，将执行 MsgBox "This is a Circle"。Case Else：如果前面的条件都不满足，将执行 MsgBox "This is some other type of object"。

注意事项

通配符匹配：Like 运算符允许使用通配符进行匹配。星号 (*) 匹配零个或多个字符，问号 (?) 匹配单个字符。在你的代码中，*Line 和 *Circle 都是合法的用法。大小写敏感：Like 运算符在VBA中默认是不区分大小写的。所以即使 ObjectName 的值是 "acdbLINE" 或 "ACDbcircle"，你的匹配依然会成功。