如何用VBA在CAD中添加新字段？

ahopera

如题，并不是cad中已有的字段，而是自已在文件属性中加入的，比如“图号”、“设计院名称”等，查了vba手册，没有找到

wenwengg

Sub Ch4_CreateMText()
    Dim mtextObj As AcadMText
    Dim insertPoint(0 To 2) As Double
    Dim width As Double
    Dim textString As String

    insertPoint(0) = 2
    insertPoint(1) = 2
    insertPoint(2) = 0
    width = 4
    textString = "This is a text string for the mtext object."

    ' 在模型空间中创建文字对象
    Set mtextObj = ThisDrawing.ModelSpace. _
               AddMText(insertPoint, width, textString)
    ZoomAll
End Sub

ahopera

mtext？我问的可是字段啊