Select all Objects inside a Polyline

[avinash00002002]

I have somany closed polyline in this polyline I have some entities/objects/text. I want to get the program of all the objects are selected in the polyline in one pick like hatch




pixlepark96@sancharnet.in

[Hammer.John.J]

when you are selecting you have the option to use "WP" which i think means window polygline

[zoomharis]

Hi Avinash,

I have done some experiments on it and the program works works well in AutoCAD 2004. Just try the following code.



Sub selEntByPline()
On Error Resume Next
Dim objCadEnt As AcadEntity
Dim vrRetPnt As Variant
ThisDrawing.Utility.GetEntity objCadEnt, vrRetPnt
If objCadEnt.ObjectName = "AcDbPolyline" Then '|-- Checking for 2D Polylines --|
Dim objLWPline As AcadLWPolyline
Dim objSSet As AcadSelectionSet
Dim dblCurCords() As Double
Dim dblNewCords() As Double
Dim iMaxCurArr, iMaxNewArr As Integer
Dim iCurArrIdx, iNewArrIdx, iCnt As Integer
Set objLWPline = objCadEnt
dblCurCords = objLWPline.Coordinates '|-- The returned coordinates are 2D only --|
iMaxCurArr = UBound(dblCurCords)
If iMaxCurArr = 3 Then
ThisDrawing.Utility.Prompt "The selected polyline should have minimum 2 segments..."
Exit Sub
Else
'|-- The 2D Coordinates are insufficient to use in SelectByPolygon method --|
'|-- So convert those into 3D coordinates --|
iMaxNewArr = ((iMaxCurArr + 1) * 1.5) - 1 '|-- New array dimension
ReDim dblNewCords(iMaxNewArr) As Double
iCurArrIdx = 0: iCnt = 1
For iNewArrIdx = 0 To iMaxNewArr
If iCnt = 3 Then '|-- The z coordinate is set to 0 --|
dblNewCords(iNewArrIdx) = 0
iCnt = 1
Else
dblNewCords(iNewArrIdx) = dblCurCords(iCurArrIdx)
iCurArrIdx = iCurArrIdx + 1
iCnt = iCnt + 1
End If
Next
Set objSSet = ThisDrawing.SelectionSets.Add("SEL_ENT")
objSSet.SelectByPolygon acSelectionSetWindowPolygon, dblNewCords
objSSet.Highlight True
objSSet.Delete
End If
Else
ThisDrawing.Utility.Prompt "The selected object is not a 2D Polyline...."
End If
If Err.Number <> 0 Then
MsgBox Err.Description
Err.Clear
End If
End Sub

I hope it works. Please try to give me feedback so that we can make it better. I doubt that the program can be much shorter. But this is all i can do for now.

Happy Experiments.....
:)
har!s

[avinash00002002]

Its great but I still want different type of program

We have a polygon but we don't select but only pick in an internl any point (Like hatch "Pick an Internal point")


Avinash Patil
pixlepark96@sancahrnet.in

[zoomharis]

We have a polygon but we don't select but only pick in an internl any point (Like hatch "Pick an Internal point")

I don't know what difference that makes. The above program is just like using HATCH command with OBJECT option. Can you please tell me exactly why you need to pick an internal point...? I may be able to sort it out.

By the way, I don't care about the paths, I only care the destination.....

:)
har!s

[avinash00002002]

Thanx for care

I need that I have a somany polylines in this polylines have somany text, I need to pick an Internal point so that every text in the polyline all the text are selected,


pixlepark96@sancharnet.in

[bradlyferrell]

Thanx for care

I need that I have a somany polylines in this polylines have somany text, I need to pick an Internal point so that every text in the polyline all the text are selected,


pixlepark96@sancharnet.in

Hello Avinash,
What version of AutoCAD are you using?
And, are you wanting a VB/VBA program that allows you to choose all text within a closed polyline or just "some command" within Acad?

Hope we can help.

[avinash00002002]

I am using AutoCAD 2006 and I waiting for your program

pixlepark96@sancharnet.in

[kannan.vin681064]

what is the key to use this lisp
like we press bf for batch find?
I used appload and lisp was sucesssfully loaded and next step is
I have a huge drawing and i have drawn a polyline. Now I want to select all objects inside that polyline
Please Help