VBA设置扩展数据问题
您好，我在vba上编写的setxdata函数有点问题。问题是，我试图将多段线的objectid存储到不同的行中，方法是首先将该objectid转换为字符串，然后通过setxdata按1000个组码存储。但不知怎的，它给了我这个错误“类型SetxData方法中的参数组代码无效”。我尝试了许多其他代码，但我的努力是徒劳的。代码如下所示。Public Function setdata(polyid1 As Variant, polyid2 As Variant, akot As Variant, polyid3 As Variant)
Dim datatipi(0 To 3) As Integer
Dim data(0 To 3) As Variant
datatipi(0) = 1000 'arazi profil çizgi id
datatipi(1) = 1000 'arazi plan çizgi id
datatipi(2) = 1000 'arazi profil ilk kotu
datatipi(3) = 1000 'çizilen hattın id'si
data(0) = CStr(polyid1)
data(1) = CStr(polyid2)
data(2) = CStr(akot)
data(3) = CStr(polyid3)
Stop
ActiveDocument.ObjectIdToObject(polyid1).SetXData datatipi, data
ActiveDocument.ObjectIdToObject(polyid2).SetXData datatipi, data
ActiveDocument.ObjectIdToObject(polyid3).SetXData datatipi, data
End Function
页:
[1]