[VBA程序]：怎样选择距形中的图元?

dtnjq

知道了一个距形四个顶点的座标,怎样才能把这个距形内的文字选中

雪山飞狐(lzh)

选取左下角和右上角
[php]
Public Sub ttt()
On Error Resume Next

    Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("test").Delete
    Set ss = ThisDrawing.SelectionSets.Add("test")
    Dim ft(14) As Integer, fd(14)
   
    pnt1 = ThisDrawing.Utility.GetPoint
    pnt2 = ThisDrawing.Utility.GetPoint
   
    ft(0) = 0: fd(0) = "text"
    ft(1) = -4: fd(1) = "<or"
    ft(2) = -4: fd(2) = "<and"
    ft(3) = -4: fd(3) = ">,>,*"
    ft(4) = 10: fd(4) = pnt1
    ft(5) = -4: fd(5) = "<,<,*"
    ft(6) = 10: fd(6) = pnt2
    ft(7) = -4: fd(7) = "and>"
    ft(8) = -4: fd(8) = "<and"
    ft(9) = -4: fd(9) = ">,>,*"
    ft(10) = 11: fd(10) = pnt1
    ft(11) = -4: fd(11) = "<,<,*"
    ft(12) = 11: fd(12) = pnt2
    ft(13) = -4: fd(13) = "and>"
    ft(14) = -4: fd(14) = "or>"
    ss.Select acSelectionSetAll, , , ft, fd
   
    MsgBox ss.Count

End Sub

[/php]

秦林

最初由 lzh741206 发布
[B]选取左下角和右上角
[php]
Public Sub ttt()
On Error Resume Next

    Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("test").Delete
    Set ss = ThisDrawing.SelectionSets.Add("test")
... [/B]

-----------------------------------------------------------------------
Public Sub ttt()
On Error Resume Next

    Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("test").Delete
    Set ss = ThisDrawing.SelectionSets.Add("test")
    Dim ft(14) As Integer, fd(14)
     
    pnt1 = ThisDrawing.Utility.GetPoint
    pnt2 = ThisDrawing.Utility.GetPoint
     
    ft(0) = 0: fd(0) = "text"
    ft(1) = -4: fd(1) = "<or"
    ft(2) = -4: fd(2) = "<and"
    ft(3) = -4: fd(3) = ">,>,*"
    ft(4) = 10: fd(4) = pnt1
    ft(5) = -4: fd(5) = "<,<,*"
    ft(6) = 10: fd(6) = pnt2
    ft(7) = -4: fd(7) = "and>"
    ft(8) = -4: fd(8) = "<and"
    ft(9) = -4: fd(9) = ">,>,*"
    ft(10) = 11: fd(10) = pnt1
    ft(11) = -4: fd(11) = "<,<,*"
    ft(12) = 11: fd(12) = pnt2
    ft(13) = -4: fd(13) = "and>"
    ft(14) = -4: fd(14) = "or>"
    ss.Select acSelectionSetAll, , , ft, fd  
    MsgBox ss.Count
End Sub

显示如下，怎么会这样

雪山飞狐(lzh)

什么意思？图呢？

秦林

对不起，上次上传附件不成功，显示如下，请指教：