社区 › VB › 求助:文字加扩展数据无法实现

cqy 发表于 2007-9-22 16:55:00

求助:文字加扩展数据无法实现

文字加扩展数据无法实现:
Dim objText As AcadText
Dim dataType(0 To 1) As Integer
    Dim data(0 To 1) As Variant
    dataType(0) = 1001: data(0) = "XData"
    dataType(1) = 1000: data(1) = "123"
    Dim ptinsert(2) As Double
    ptinsert(0) = 100: ptinsert(1) = 100: ptinsert(2) = 0
    AddText " 2004", ptinsert, 5
    objText.SetXData dataType, data
同样的方法直线没有问题,请帮忙。

alin 发表于 2007-9-24 07:25:00

怎会呢？
Sub TEST()
Dim objText As AcadText
Dim dataType(0 To 1) As Integer
    Dim data(0 To 1) As Variant
    dataType(0) = 1001: data(0) = "XData"
    dataType(1) = 1000: data(1) = "123"
    Dim ptinsert(2) As Double
    ptinsert(0) = 100: ptinsert(1) = 100: ptinsert(2) = 0
    Set objText = ThisDrawing.ModelSpace.AddText("AutoCAD 2004", ptinsert, 5)
    objText.SetXData dataType, data
    Dim xdataOut As Variant
    Dim xtypeOut As Variant
    objText.GetXData "", xtypeOut, xdataOut
    MsgBox xtypeOut(0)
    MsgBox xdataOut(0)
    MsgBox xtypeOut(1)
    MsgBox xdataOut(1)
End Sub

cqy 发表于 2007-9-24 14:23:00

感谢alin老师:
AddText "AutoCAD 2004", ptinsert, 5
Set objText = ThisDrawing.ModelSpace.AddText("AutoCAD 2004", ptinsert, 5)
这一句的问题,再次感谢!

查看完整版本: 求助:文字加扩展数据无法实现