求助：已知直线的两个端点，怎样删除该直线啊，急急急！
如果直线对象已经取的，那么就可以直接删除。如果只知道两个端点，还不知道属于哪个直线的，就必须先找到直线对象。查找对象的方法可以是构建一个选择集，选中位于两个端点构成的矩形内部的所有对象，一一进行判断是否是所震直线，也可以加上过滤机制，减少要查找的对象数目。 斑竹，能不能提供一些源代码啊，我是新手，但是急着要用啊 具体如何创建矩形选择区域呢？参数设置有哪些啊？版主能告知吗？ 构建矩形使用两个对角点，也就是直线的两端点。
Sub test()
Dim SSetObj As AcadSelectionSet
On Error Resume Next
Set SSetObj = ThisDrawing.SelectionSets("Test") '创建选择集
If Err Then
Err.Clear
Set SSetObj = ThisDrawing.SelectionSets.Add("Test")
End If
SSetObj.Clear
Dim Pt1 As Variant
Dim Pt2 As Variant
'Pt1 = ThisDrawing.ModelSpace(0).StartPoint '赋值，使用已知的两个点
'Pt2 = ThisDrawing.ModelSpace(0).EndPoint
Dim groupCode(0) As Integer
Dim dataCode(0) As Variant
groupCode(0) = 0 '创建只选择直线的过滤机制，组码为0，值为"Line"
dataCode(0) = "Line"
SSetObj.Select acSelectionSetWindow, Pt1, Pt2, groupCode, dataCode '使用窗选
Dim EntObj As AcadEntity
For Each EntObj In SSetObj
'循环选择集，根据两点判断是否是需要的直线，是则删除，考虑到精度，可能还要加上误差判断。
If EntObj.StartPoint(0) = Pt1(0) And EntObj.StartPoint(1) = Pt1(1) _
And EntObj.EndPoint(0) = Pt2(0) And EntObj.EndPoint(1) = Pt2(1) Then
EntObj.Delete
Exit For
End If
Next
End Sub 到位了！多谢版主！
页:
[1]