VB.NET 在 AutoCAD 中设置文字字体、高度和宽度

在 VB.NET 中，可以使用 AutoCAD 的 COM 接口来选择字体并输入文字的高度和宽度。

首先，需要添加对 AutoCAD COM 库的引用。在 VB.NET 项目中，右键点击“引用”文件夹，选择“添加引用”，然后在 COM 选项卡中找到并选择 AutoCAD 类型库。

接下来，可以使用以下代码来选择字体并输入文字的高度和宽度：

Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建 AutoCAD 应用程序对象
        Dim acadApp As AcadApplication = New AcadApplication()

        ' 启动 AutoCAD 应用程序
        acadApp.Visible = True

        ' 获取当前活动文档
        Dim acadDoc As AcadDocument = acadApp.ActiveDocument

        ' 创建一个新的文本对象
        Dim textObj As AcadText = acadDoc.ModelSpace.AddText('Hello, World!', New Point3d(0, 0, 0), 1)

        ' 设置字体
        textObj.StyleName = 'Arial'

        ' 设置文字高度
        textObj.Height = 2

        ' 设置文字宽度
        textObj.WidthFactor = 0.7

        ' 刷新 AutoCAD 界面显示
        acadApp.Update()
    End Sub
End Class

上述代码中，首先创建了一个 AutoCAD 应用程序对象，然后启动 AutoCAD 应用程序，并获取当前活动文档。接下来，使用AddText方法在模型空间中创建了一个新的文本对象，并设置了字体、文字高度和宽度。最后，调用Update方法刷新 AutoCAD 界面显示。

请注意，上述代码中的 AutoCAD COM 接口调用方式适用于 AutoCAD 2016 及更早的版本。如果使用的是 AutoCAD 2017 及更高版本，请使用新的 .NET API（如 AutoCAD .NET API）来操作 AutoCAD。