entities nested in polylines
entities nested in polylines
(OP)
Using VBA how would I be able to select all polylines in modelspace and "filter through" them leaving only those with a vertex from another polyline left on the screen. Any help would be greatly appriciated.





RE: entities nested in polylines
"Everybody is ignorant, only on different subjects." — Will Rogers
RE: entities nested in polylines
RE: entities nested in polylines
Dim acSelSet As AcadSelectionSet
Dim acItem As AcadLWPolyline
Dim vntAcItems As Variant
Dim intCode() As Integer
Dim vntValue() As Variant
Dim vntVerts As Variant
Dim lCnt As Long
'--------------------------------------
ReDim intCode(3): ReDim vntValue(3)
intCode(0) = -4: vntValue(0) = "<AND"
intCode(1) = 0: vntValue(1) = "LWPOLYLINE" 'OBJECT TYPE
intCode(2) = 67: vntValue(2) = 0 'MODELSPACE
intCode(3) = -4: vntValue(3) = "AND>"
Set acSelSet = ThisDrawing.SelectionSets.Add("PLINESSET")
acSelSet.Select acSelectionSetAll, , , intCode, vntValue
For Each acItem In acSelSet
'--------------------------------------------------------------------------
'Get vertice list
'--------------------------------------------------------------------------
vntVerts = acItem.Coordinates
For lCnt = 0 To UBound(vntVerts)
'Figure out your vertice calcs here
MsgBox vntVerts(lCnt)
Next lCnt
Next acItem
"Everybody is ignorant, only on different subjects." — Will Rogers
RE: entities nested in polylines