如何用setxdata直接存储数据

tiger0101

 Dim a(0 To 2) As Integer
    Dim b(0 To 2) As Variant
   
    a(0) = 1011: b(0) = 500
    a(1) = 1012: b(1) = 2000
    a(2) = 1013: b(2) = "hjbjkl"

    Set pDict = ThisDrawing.Dictionaries.Add("ww")
    pDict.SetXData a, b

总说我出错，暮非只能再用addxrecord来存储，？？？？

雪山飞狐_lzh

Public Function SetXRecord(ByVal DictName As String, ByVal Keyword As String, ByVal XRecordData)
    Dim pDict As AcadDictionary
    Dim pXRecord As AcadXRecord
    Dim XRecordType() As Integer
    Dim pLen As Integer
   
    Set pDict = ThisDrawing.Dictionaries.Add(DictName)
    Set pXRecord = pDict.AddXRecord(Keyword)
   
    pLen = UBound(XRecordData)
    ReDim XRecordType(pLen) As Integer
    For i = 0 To pLen
        Select Case VarType(XRecordData(i))
            Case vbInteger, vbLong
                XRecordType(i) = 70
            Case vbSingle, vbDouble
                XRecordType(i) = 40
            Case vbString
                XRecordType(i) = 1
        End Select
    Next i
   
    pXRecord.SetXRecordData XRecordType, XRecordData

End Function

tiger0101

原来setxdata只能用cad中固定的组码

3ku