江湖救急！

mshuser

诸位版主及高手： 下列代码我想把用户输入的值加入到文本对象的1000延伸数据中，为什么不可以呢？错在哪里？ Sub ShuRu()
Dim xhobj As AcadText
Dim xuahao As Integer
xuahao = ThisDrawing.Utility.GetString(1, vbCrLf & "序号：")
Dim datatype(0 To 1) As Integer
Dim data(0 To 1) As String
datatype(0) = 1001: data(0) = "number"
datatype(1) = 1000: data(1) = "xuhao"
xhobj.SetXData datatype, data
End Sub

雪山飞狐_lzh

帮助的代码没看仔细？ Dim Data(0 To 9) As Variant

mshuser

改过来了，可是总是提示：运行错误91，对象变量或with块变量未设置。另外用insertblock插入在cad中做好的属性块，怎么做呀，做不出来，我按例子做的，如：在cad中作了一个btblock的属性块，在vba中插入： Dim blkRefObj As AcadBlockReference
Dim insertPnt(0 To 2) As Double
insertPnt(0) = 120: insertPnt(1) = 100: insertPnt(2) = 0
Set blkRefObj = ThisDrawing.ModelSpace.InsertBlock(insertPnt, _
"btblock", 1#, 1#, 1#, 0#)
blkRefObj.Update
MsgBox ""
ThisDrawing.Regen True