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