VB.net总又一些Bug,前段时间发现不能对同一实体附多次扩展数据
如:
Sub test() Dim a As AcadObject ThisDrawing.Utility.GetEntity a, pnt Dim datatype(1) As Integer, data(1) As Variant datatype(0) = 1001: data(0) = "Test" datatype(1) = 1000: data(1) = "This is a Test1" a.SetXData datatype, data data(1) = "This is a Test2" a.SetXData datatype, data End Sub VBA里可以,VB.net却不行,晕,害我忙了半天