请教延伸数据问题

mshuser · 发表于 2004-8-18 11:25:00

Sub ShuRu()
Dim xhobj As AcadText
Dim xuhao As Integer
xuahao = ThisDrawing.Utility.GetString(1, vbCrLf & "序号：")
Dim datatype(0 To 1) As Integer
Dim data(0 To 1) As Variant
datatype(0) = 1001: data(0) = "number"
datatype(1) = 1000: data(1) = "xuhao"
xhobj.SetXData datatype, data
End Sub
请问上面的代码能将用户输入的序号的值加入到xhobj的文本对象中吗？我运行后提示错误91，为什么呢？

雪山飞狐_lzh · 发表于 2004-8-18 11:35:00

Sub test()
Dim xhobj As AcadText
Dim xuhao As Integer
Dim pnt(2) As Double
xuahao = ThisDrawing.Utility.GetString(1, vbCrLf & "序号：")
Set xhobj = ThisDrawing.ModelSpace.AddText(xuahao, pnt, 5)
Dim datatype(0 To 1) As Integer
Dim data(0 To 1) As Variant
datatype(0) = 1001: data(0) = "我的序号"
datatype(1) = 1000: data(1) = xuahao
xhobj.SetXData datatype, data
End Sub

mshuser · 发表于 2004-8-19 09:12:00

感谢版主对我的帮助，有贴比复，献花一朵，表示感谢！上一个程序我看懂了，我想问的是必须用“set xhobj=....”吗？这样就在cad图形中生成了序号，我不想生成，只想加入延伸数据，能办到吗？

请教延伸数据问题

发表回复

精选推荐