AutoCAD开发2--添加带属性的点

Private Sub CommandButton11_Click()

    Dim pPoint As AcadPoint

   

    Dim DataType(0 To 1) As Integer

    Dim Data(0 To 1) As Variant

   

    Dim pLocation(0 To 2) As Double

   

    Dim sValue() As String

   

    Open "F:\2.txt" For Input As #1

   

    DataType(0) = 1001: Data(0) = "gcz"

   

    Do While Not EOF(1)

        Line Input #1, sStr

        sValue = Split(sStr, ",")

       

        pLocation(0) = CDbl(sValue(0)): pLocation(1) = CDbl(sValue(1)): pLocation(2) = 0

       

        DataType(1) = 1000: Data(1) = sValue(2)

       

        Set pPoint = ThisDrawing.ModelSpace.AddPoint(pLocation)

       

        pPoint.SetXData DataType, Data

       

    Loop

   

    Close #1

End Sub