您好，我在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
| 
置顶卡
