在VBA程序中设定特定图元的显示层次

Hawking

PS：在CAD制图中，通常是在别人的底图基础上进行自己的画图操作，那么我把底图制成块以后，并在上边画了很多自己的图元，一旦修改了底图那么它就显示在上层了，怎么样程序化把这个图元显示在最底层啊？谢谢！！！

Hawking

怎么都没有人人回答啊，哎！

woaishuijia

    Dim C(0) As AcadCircle, P(2) As Double
    Dim S As AcadSortentsTable
    With ThisDrawing.ModelSpace
        Set C(0) = .AddCircle(P, 10)
        Set S = .GetExtensionDictionary.AddObject("AAA", "AcDbSortentsTable")
        S.MoveToBottom C
    End With