11、AutoCAD VBA编程：文本发送、字符串处理与直线绘制

AutoCAD VBA编程：文本发送、字符串处理与直线绘制

向AutoCAD命令行发送文本

在AutoCAD的VBA编程中，可以使用Utility对象的Prompt方法将文本字符串直接从VBA代码发送到AutoCAD命令行。Utility对象位于对象模型中Document对象列的末尾、MenuBar集合上方，它能让应用程序通过命令行与用户交互，还能在模型空间中选择点。

下面是一个示例代码，展示了如何使用Prompt方法在命令行显示消息，以指示应用程序在读取文件数据和创建绘图对象时的进度：

' LISTING 5.5: DRAWVILLAPLANS MACRO
Sub DrawVillaPlans()
    CreateVillaPlans "Colonial"
End Sub

Sub CreateVillaPlans(VillaType As String)
    ThisDrawing.Utility.Prompt vbLf & "Loading data for villa " & VillaType & vbLf
    ReadData VillaType
    ThisDrawing.Utility.Prompt vbLf & "Drawing plans for " & VillaType & vbLf
    DrawPlans VillaType
    ThisDrawing.Utility.Prompt vbLf & "Plans completed successfully!" & vbLf
End Sub

Sub ReadDat