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"

&n