[求助]关于COM添加扩展数据

single-yu

因为.NET在CAD2006下实现不了的一些功能后，我利用COM来建立属性块，这个虽然实现了，但到添加扩展数据时，
出现了致命错误，是否是我的代码有问题。不添加扩展数据时，还是很好用的。哪位大侠帮我看看，谢了！

2.     <CommandMethod("GCD")> Public Sub GCD()
3.         Try
4.             acApp = DirectCast(Marshal.GetActiveObject(progID), AcadApplication)
5.         Catch
6.             Try
7.                 Dim acType As Type = Type.GetTypeFromProgID(progID)
8.                 acApp = DirectCast(Activator.CreateInstance(acType, True), AcadApplication)
9.             Catch
10.                 Application.ShowAlertDialog("Cannot Create The ProgID")
11.             End Try
12.         End Try
13.         If acApp IsNot Nothing Then
14.             acApp.Visible = True
15.             Dim aDocument As AcadDocument = acApp.ActiveDocument
16.             Dim objBlkDef As Common.AcadBlock
17.             For Each objBlkDef In aDocument.Blocks
18.                 If objBlkDef.Name = "GC200" Then
19.                     Dim pt1 As Double() = New Double(2) {1, -1, 0}
20.                     objBlkDef.AddAttribute(2, Common.AcAttributeMode.acAttributeModeNormal, "", pt1, "height", "20.35")
21.                     For i As Integer = 0 To 10
22.                         Dim pt As Double() = New Double(2) {500 + i * 10, 600 + i * 10, 0}
23.                         Dim block As Common.AcadBlockReference = aDocument.ModelSpace.InsertBlock(pt, "GC200", 1, 1, 1, 0, )
24.                         aDocument.Application.ZoomAll()
25.                         Dim v As Object
26.                         v = block.GetAttributes
27.                         v(0).textstring = (100 + i * 10).ToString
28.                         v(0).Alignment = Common.AcAlignment.acAlignmentMiddleLeft
29.                         v(0).TextAlignmentPoint = pt
30.                         v(0).update()
31.                         Dim DataType(2) As Object
32.                         Dim Data(2) As Object
33.                         DataType(0) = 1001
34.                         Data(0) = "SOUTH"
35.                         DataType(1) = 1000
36.                         Data(1) = "202101"
37.                         block.SetXData(DataType, Data)
38.                     Next
39.                 End If
40.             Next
41.         End If
42.     End Sub

    <CommandMethod("GCD")> Public Sub GCD()         Try             acApp = DirectCast(Marshal.GetActiveObject(progID), AcadApplication)         Catch             Try                 Dim acType As Type = Type.GetTypeFromProgID(progID)                 acApp = DirectCast(Activator.CreateInstance(acType, True), AcadApplication)             Catch                 Application.ShowAlertDialog("Cannot Create The ProgID")             End Try         End Try         If acApp IsNot Nothing Then             acApp.Visible = True             Dim aDocument As AcadDocument = acApp.ActiveDocument             Dim objBlkDef As Common.AcadBlock             For Each objBlkDef In aDocument.Blocks                 If objBlkDef.Name = "GC200" Then                     Dim pt1 As Double() = New Double(2) {1, -1, 0}                     objBlkDef.AddAttribute(2, Common.AcAttributeMode.acAttributeModeNormal, "", pt1, "height", "20.35")                     For i As Integer = 0 To 10                         Dim pt As Double() = New Double(2) {500 + i * 10, 600 + i * 10, 0}                         Dim block As Common.AcadBlockReference = aDocument.ModelSpace.InsertBlock(pt, "GC200", 1, 1, 1, 0, )                         aDocument.Application.ZoomAll()                         Dim v As Object                         v = block.GetAttributes                         v(0).textstring = (100 + i * 10).ToString                         v(0).Alignment = Common.AcAlignment.acAlignmentMiddleLeft                         v(0).TextAlignmentPoint = pt                         v(0).update()                         Dim DataType(2) As Object                         Dim Data(2) As Object                         DataType(0) = 1001                         Data(0) = "SOUTH"                         DataType(1) = 1000                         Data(1) = "202101"                         block.SetXData(DataType, Data)                     Next                 End If             Next         End If     End Sub

在block.SetXData(DataType, Data)上，出现致命错误的，因为VBA不懂，所以没有办法修改了！

雪山飞狐_lzh

VbNet的数组声明语法改了么？不记得了

Dim DataType(1) As Short

Dim Data(1) As Object

single-yu

呵呵，数组声明错了，别见笑呀！谢谢版主指点！