Set mxUtility15 = New MxDrawXLib.MxDrawUtility

    Set ent = mxUtility15.GetEntity(getPt, Chr(13) + Chr(10) + "选择需要改变显示顺序的实体")

    If (ent Is Nothing) Then
        MsgBox "没有选择实体.."
        Exit Sub
    End If

    Dim param15 As MxDrawXLib.MxDrawResbuf
    Set param15 = New MxDrawResbuf

    ' 第一个参数是实体的ID，第二个参数是实体的显示顺序，如果取-10顺序号，最初始时，默认为最小面。
    param15.AddLong ent.ObjectID
    param15.AddLong -10

    MxDrawX1.CallEx "Mx_SetEnityDrawOrder", param15