如何得到由Boundary生成的闭合区域?

zhuxuhong

请问如何得到由Boundary生成的闭合区域?

Sub lplToclosed()
On Error GoTo Err_Control
Dim pnt
Dim picked As Boolean
Do While 1
pnt = ThisDrawing.Utility.GetPoint(, "在闭合区域内点击")
ThisDrawing.SendCommand "-boundary" & vbCr & "a" & vbCr & "b" & vbCr & "e" & vbCr & vbCr & pnt(0) & "," & pnt(1) & vbCr & vbCr
picked = True

'''''

我想在这里得到由Boundary生成的闭合区域

Loop
Exit_Here:
Exit Sub
Err_Control:
Select Case Err.Number
Case -2147467259

Err.Clear
Resume Exit_Here
End Select

End Sub

mccad

boundary的前后都统计图形中对象数量，这两个数量差就是新增加的数量。这些新增的对象是在数据库的最后面倒数。

zhuxuhong

谢谢，我已经得到了