如何设置实体的显示顺序？

• 回答：

   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