ahopera 发表于 2007-9-6 13:04:00

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

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

wenwengg 发表于 2007-9-7 08:26:00

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 发表于 2007-9-7 09:57:00

<p>mtext？我问的可是字段啊</p>
页: [1]
查看完整版本: 如何用VBA在CAD中添加新字段？