[求助]关于JIG中引发的问题，屏幕坐标图标

 
     Friend Shared Function GetArrowObjectID(ByVal sets As CSetting) As ObjectId
        Dim BlkName As String = ""
        Dim Dbase As Database = Application.DocumentManager.MdiActiveDocument.Database
        Select Case sets.ArrowName
            Case 1
                BlkName = sets.BlockName
            Case 3
                BlkName = "_ClosedBlank"
            Case 4
                BlkName = "_Dot"
            Case 5
                BlkName = "_DotSmall"
            Case 6
                BlkName = "_DotBlank"
            Case 7
                BlkName = "_Small"
            Case 8
                BlkName = "_BoxBlank"
            Case 9
                BlkName = "_BoxFilled"
            Case 10
                BlkName = "_Open"
            Case 11
                BlkName = "_Open30"
            Case 12
                BlkName = "_Open90"
        End Select
        Dim OldName As String
        If sets.ArrowName  1 Then
            OldName = Application.GetSystemVariable("DIMLDRBLK")
            Application.SetSystemVariable("DIMLDRBLK", BlkName)
            If OldName.Length  0 Then Application.SetSystemVariable("DIMLDRBLK", OldName)
        End If
        Dim Trans As Transaction = Dbase.TransactionManager.StartTransaction
        Dim BlkTable As BlockTable = Trans.GetObject(Dbase.BlockTableId, OpenMode.ForRead)
        GetArrowObjectID = BlkTable.Item(BlkName)
        Trans.Commit()
        Trans.Dispose()
    End Function

 
      _
    Public Sub test()
        Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
        Dim res As PromptResult = ed.GetString("input arrow:")
        If res.Status = PromptStatus.OK Then
            Application.SetSystemVariable("DIMLDRBLK", res.StringResult)
        End If
    End Sub