Dim pc As New Point3dCollection pc.Add(p) Dim obc As ObjectId() Dim acTypValAr(0) As TypedValue acTypValAr.SetValue(New TypedValue(DxfCode.Start, "*Line"), 0) Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr) Dim acSSPrompt As PromptSelectionResult = ed.SelectFence(pc, acSelFtr) Dim acSSet As SelectionSet = acSSPrompt.Value If Not acSSet Is Nothing Then obc = acSSet.GetObjectIds
Dim pc As New Point3dCollection pc.Add(p1) pc.Add(p2) Dim obc As ObjectId() Dim acTypValAr(0) As TypedValue acTypValAr.SetValue(New TypedValue(DxfCode.Start, "*Line"), 0) Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr) Dim acSSPrompt As PromptSelectionResult = ed.SelectFence(pc, acSelFtr) Dim acSSet As SelectionSet = acSSPrompt.Value If Not acSSet Is Nothing Then obc = acSSet.GetObjectIds Else : Return False
ed.SelectAll( new SelectionFilter( new TypedValue[] { new TypedValue(0, "*line"), new TypedValue(-4, "<or"), new TypedValue(10, pt1), new TypedValue(11, pt1), new TypedValue(-4, "or>") }));