交互式操作代码出错

xiaopingai

Sub yy()
    Dim pt As Variant
    Dim xyz(2) As Double
    pt = ThisDrawing.Utility.GetPoint(xyz, "请在屏幕上指定一个点")
    Dim ptname As String
    ptname = ThisDrawing.Utility.GetString(1, "请输入点号")
    Dim keys As String
    keys = "Y N"
    ThisDrawing.Utility.InitializeUserInput 1, keys
    Dim mykey As String
    mykey = ThisDrawing.Utility.GetKeyword("是否要显示点号?是(Y)否(N)")
    If UCase(mykey) = "Y" Then
        ThisDrawing.ModelSpace.AddText ptname, pt, 0
    End If
End Sub
交互式操作代码出错 请问如何修改