Dim TVP As AcadEntity
Set TVP = IPCOL(1)
IntPointsL = lineObj.IntersectWith(TVP, acExtendThisEntity)
程序出现“要求对象”
Public Function SelectAtPoint2()
On Error Resume Next
Dim A As AcadEntity
dim IPCOL As AcadModelSpace
If Not IsNull(ThisDrawing.SelectionSets.Item("SSet2")) Then
Set SSet2 = ThisDrawing.SelectionSets.Item("SSet2")
SSet2.Delete
End If
Set SSet2 = ThisDrawing.SelectionSets.Add("SSet")
SSet2.Select acSelectionSetLast
For Each A In SSet2
IPCOL.Add A
Next
End Function
请各位高手指教一下呀！！！谢谢
置顶卡
