CAD菜单“显示顺序”置前、置后，VBA里应该调用什么命令？

pmq

CAD菜单“显示顺序”置前、置后，VBA里应该调用什么命令？

pmq

ThisDrawing.SendCommand "_draworder" & vbCr & "p" & vbCr & vbCr & "f" & vbCr

ThisDrawing.SendCommand "_draworder" & vbCr & "p" & vbCr & vbCr & "b" & vbCr

zzyong00

哈哈，自己十年后回复自己的问题

szj612

这个真是有意思，楼主真是有心人

北莽刀客

楼主十年磨一剑

向卫

pmq 发表于 2015-3-3 10:09
ThisDrawing.SendCommand "_draworder" & vbCr & "p" & vbCr & vbCr & "f" & vbCr

ThisDrawing.SendComm ...

楼主话说用sortentstable怎么解决呢?
而且draworder必须要手动选择才行啊

mikewolf2k

向卫 发表于 2015-12-14 23:22
楼主话说用sortentstable怎么解决呢?
而且draworder必须要手动选择才行啊

应该是通过其它方式事先选择过了，所以在这里通过P选择上次选择的物体。

pmq

Public Sub CommQZ() '前置
    On Error Resume Next
    Dim esc As String
    esc = Chr(3) & Chr(3)
    ThisDrawing.SendCommand esc
   
    Dim sset1 As AcadSelectionSet
    Set sset1 = ThisDrawing.SelectionSets.Add("ss1")
    If Err.number <> 0 Then
        Err.Clear
        Set sset1 = ThisDrawing.SelectionSets.Item("ss1")
        sset1.Clear
    End If
    ThisDrawing.Utility.Prompt ("请框选要前置的对象:")
    sset1.SelectOnScreen
    If sset1.count = 0 Then
        Exit Sub
    End If
   
    '0  恢复普通模式的消息反馈
    '1   禁止不确定的消息反馈
    ThisDrawing.SetVariable "nomutt", 1
    ThisDrawing.SendCommand "_draworder" & vbCr & "p" & vbCr & vbCr & "f" & vbCr
    ThisDrawing.SetVariable "nomutt", 0
    sset1.Clear
    sset1.Delete
End Sub