小编点评

**行列教程（暂时不更新）** **如何提取图纸中的文字：** 1. 启动图纸应用程序。 2. 使用 **MyAmFunctionAtt** 函数识别文本。 3. 指定函数参数： * **NameOf(用户交互)**：要识别文本的元素的名称。 * **NameOf(选择单个文字)**：识别单个文字的名称。 4. 执行函数。 5. 显示文本。 **示例代码：** ```vba Public Sub 选择单个文字(wm As WindowManager) Dim amEnv As New AmEnvironment Try If Not amEnv.DraftApp.DwgCurrent() Then MsgBox("当前未开启任何图纸,结束命令!", MsgBoxStyle.Critical) : Exit Sub Dim pt As MarPointPlanar = Pick2dPt(amEnv) If pt Is Nothing Then MsgBox("拾取点失败", MsgBoxStyle.Critical) amEnv.Dispose() Return End If Try Dim ele As MarElement = amEnv.DraftApp.TextIdentify(pt) Dim t As MarText = amEnv.DraftApp.TextPropertiesGet(ele) MsgBox(t.String) Catch ex As Exception MsgBox("拾取文字失败", MsgBoxStyle.Critical) amEnv.Dispose() Return End Try Catch ex As Exception MsgBox(ex.StackTrace) Finally amEnv.Dispose() End Try End Sub ```

正文

此系列的教程，暂时不更新，因为没多少人愿意加入一起学习的行列，有需要学习的可以加我微信或者QQ讨论

电话：17607170146（微信同号）

QQ：442024898

提取图纸中的文字，

 

 

<MyAmFunctionAtt(NameOf(用户交互), NameOf(选择单个文字))> Public Sub 选择单个文字(wm As WindowManager)
    Dim amEnv As New AmEnvironment()
    Try
        If Not amEnv.DraftApp.DwgCurrent() Then MsgBox("当前未开启任何图纸,结束命令!", MsgBoxStyle.Critical) : Exit Sub
        Dim pt As MarPointPlanar = Pick2dPt(amEnv)
        If pt Is Nothing Then
            MsgBox("拾取点失败"， MsgBoxStyle.Critical)
            amEnv.Dispose()
            Return
        End If
        Try
            Dim ele = amEnv.DraftApp.TextIdentify(pt)
            Dim t As MarText = amEnv.DraftApp.TextPropertiesGet(ele)
            MsgBox(t.String)
        Catch ex As Exception
            MsgBox("拾取文字失败"， MsgBoxStyle.Critical)
            amEnv.Dispose()
            Return
        End Try
    Catch ex As Exception
        MsgBox(ex.StackTrace)
    Finally
        amEnv.Dispose()
    End Try

End Sub
Public Shared Function Pick2dPt(env As AmEnvironment, Optional promptstr As String = "Pick one Point") As MarPointPlanar
    Dim ptrtn As MarPointPlanar = New MarPointPlanar()
    Dim flag As Boolean = env.MarUI.PointPlanarReq(promptstr, ptrtn) = env.MarUtility.Ok()
    Dim result As MarPointPlanar
    If flag Then
        env.DraftApp.PointHighlight(ptrtn)
        result = ptrtn
    Else
        result = Nothing
    End If
    Return result
End Function