小编点评

```vb.net Imports MarApi Imports Aveva.ApplicationFramework.PresentationImports Aveva.Marine.Drafting Public Class MyAmFunctionAtt(NameOf(绘图控制), NameOf(新建文字)) Public Sub 新建文字(wm As WindowManager) Dim draftApp As New MarDrafting Try If Not draftApp.DwgCurrent() Then MsgBox("未开启任何图纸无法创建文字", MsgBoxStyle.Critical, "错误提示") Return End If Dim tstr = InputBox("输入文字内容", "输入", DateTime.Now.ToString("yyyyMMdd-HHmmss")) Using t As New MarText(tstr) t.Position = New Aveva.Marine.Geometry.MarPointPlanar(0, 0) t.Height = 5.0 t.TextColour = New MarColour("Red") draftApp.TextNew(t) End Using Catch ex As Exception MsgBox(ex.StackTrace) Finally draftApp.Dispose() End Try End Sub Public Sub 新建多行文字(wm As WindowManager) Dim draftApp As New MarDrafting Try If Not draftApp.DwgCurrent() Then MsgBox("未开启任何图纸无法创建文字", MsgBoxStyle.Critical, "错误提示") Return End If Dim tstr = InputBox("输入文字内容", "输入", DateTime.Now.ToString("yyyyMMdd-HHmmss") + Environment.NewLine + "我是第二行") Using t As New MarText(tstr) t.Position = New Aveva.Marine.Geometry.MarPointPlanar(0, 0) t.Height = 5.0 t.TextColour = New MarColour("Red") draftApp.TextNew(t) End Using Catch ex As Exception MsgBox(ex.StackTrace) Finally draftApp.Dispose() End Try End Sub End Class ``` **使用方法：** 1. 将此代码复制到一个新的模块中。 2. 在 Visual Studio 中创建一个新的 Winforms 项目。 3. 将该模块添加为项目中的部分。 4. 在项目属性中设置以下设置： * 项目类型：Windows Forms * 启动项目：.NET Framework 的应用程序 * 页面模板：Windows Forms 5. 构建和运行项目。

正文

根据MarApi,创建图形文件，新建文字

Imports Aveva.ApplicationFramework.Presentation
Imports Aveva.Marine.Drafting ' marAPI.dll
Public Class 绘图控制

    <MyAmFunctionAtt(NameOf(绘图控制), NameOf(新建图纸))>
    Public Sub 新建图纸(wm As WindowManager)
        Dim draftApp As New MarDrafting
        Try
            'am是单文档模式。不可以同时开2个文件
            If draftApp.DwgCurrent() Then
                If Not draftApp.DwgIsModified() Then '图纸未改动直接退出
                    draftApp.DwgClose()
                Else
                    If MsgBox("检测到图纸有改动", MsgBoxStyle.Question, "是否保存当前图纸？") = MsgBoxResult.Ok Then
                        draftApp.DwgSave()
                    Else
                        draftApp.DwgClose()
                    End If
                End If
            End If
            draftApp.DwgNew(DateTime.Now.ToString("yyyyMMdd-HHmmss"))
        Catch ex As Exception
            MsgBox(ex.StackTrace)
        Finally
            draftApp.Dispose()
        End Try

    End Sub

    <MyAmFunctionAtt(NameOf(绘图控制), NameOf(新建文字))>
    Public Sub 新建文字(wm As WindowManager)
        Dim draftApp As New MarDrafting
        Try
            If Not draftApp.DwgCurrent() Then
                MsgBox("未开启任何图纸无法创建文字", MsgBoxStyle.Critical, "错误提示")
                Return
            End If
            Dim tstr = InputBox("输入文字内容", "输入", DateTime.Now.ToString("yyyyMMdd-HHmmss"))
            Using t As New MarText(tstr)
                t.Position = New Aveva.Marine.Geometry.MarPointPlanar(0, 0)
                t.Height = 5.0
                t.TextColour = New MarColour("Red")
                draftApp.TextNew(t)
            End Using
        Catch ex As Exception
            MsgBox(ex.StackTrace)
        Finally
            draftApp.Dispose()
        End Try
    End Sub
    <MyAmFunctionAtt(NameOf(绘图控制), NameOf(新建多行文字))>
    Public Sub 新建多行文字(wm As WindowManager)
        Dim draftApp As New MarDrafting
        Try
            If Not draftApp.DwgCurrent() Then
                MsgBox("未开启任何图纸无法创建文字", MsgBoxStyle.Critical, "错误提示")
                Return
            End If
            Dim tstr = InputBox("输入文字内容", "输入", DateTime.Now.ToString("yyyyMMdd-HHmmss") + Environment.NewLine + "我是第二行")
            Using t As New MarText(tstr)
                t.Position = New Aveva.Marine.Geometry.MarPointPlanar(0, 0)
                t.Height = 5.0
                t.TextColour = New MarColour("Red")
                draftApp.TextNew(t)
            End Using
        Catch ex As Exception
            MsgBox(ex.StackTrace)
        Finally
            draftApp.Dispose()
        End Try
    End Sub
End Class