Selection Set - How do I select Block Reference Objects?
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Google
 
Web cadforums.net
Selection Set - How do I select Block Reference Objects?

 
Post new topic   Reply to topic    CADForums.net Forum Index -> VBA
Author Message
Mel
Guest
Posted: Fri Mar 25, 2005 1:57 am    Post subject: Selection Set - How do I select Block Reference Objects? Reply with quote
I have used selection sets before, like the example below to select all of
the light-weight polylines on the Bottom layer. Does anyone know how to
select just Block Reference objects? I tried to just replace LWPOLYLINE
with BLOCK REFERENCE, BLOCK, BLOCKREF, etc, but it didn't work.

'------------Start of Example------------
Dim CurSet As AcadSelectionSet
Dim SelCode(0 To 1) As Integer
Dim SelValue(0 To 1) As Variant

SelCode(0) = 8
SelValue(0) = "Bottom" 'look on Bottom layer
SelCode(1) = 0
SelValue(1) = "LWPOLYLINE" 'find lightweight polylines only

CurSet.Select acSelectionSetAll, , , SelCode, SelValue
'------------End of Example------------

Any help would be greatly appreciated.
--
- Mel
-------------------------------------------
Please reply to the group so all can benefit.
-------------------------------------------

Back to top
Jeff Mishler
Guest
Posted: Fri Mar 25, 2005 2:07 am    Post subject: Re: Selection Set - How do I select Block Reference Objects? Reply with quote
A block reference is an "INSERT".......

--
Jeff
check out www.cadvault.com
"Mel" <Mel@REMOVE_CAPS_AND_INVALIDcircuitcheck.com.invalid> wrote in message
news:42432ab6$1_2@newsprd01...
Quote:
I have used selection sets before, like the example below to select all of
the light-weight polylines on the Bottom layer. Does anyone know how to
select just Block Reference objects? I tried to just replace LWPOLYLINE
with BLOCK REFERENCE, BLOCK, BLOCKREF, etc, but it didn't work.

'------------Start of Example------------
Dim CurSet As AcadSelectionSet
Dim SelCode(0 To 1) As Integer
Dim SelValue(0 To 1) As Variant

SelCode(0) = 8
SelValue(0) = "Bottom" 'look on Bottom layer
SelCode(1) = 0
SelValue(1) = "LWPOLYLINE" 'find lightweight polylines only

CurSet.Select acSelectionSetAll, , , SelCode, SelValue
'------------End of Example------------

Any help would be greatly appreciated.
--
- Mel
-------------------------------------------
Please reply to the group so all can benefit.
-------------------------------------------

Back to top
Mel
Guest
Posted: Fri Mar 25, 2005 2:15 am    Post subject: Re: Selection Set - How do I select Block Reference Objects? Reply with quote
Thank you so much!
For the life of me I just couldn't find it anywhere in the help, "one of those days" I guess.

"Jeff Mishler" <jeff_m@cadvault.com> wrote in message news:42432bfa$1_2@newsprd01...
Quote:
A block reference is an "INSERT".......

--
Jeff
check out www.cadvault.com
"Mel" <Mel@REMOVE_CAPS_AND_INVALIDcircuitcheck.com.invalid> wrote in message
news:42432ab6$1_2@newsprd01...
I have used selection sets before, like the example below to select all of
the light-weight polylines on the Bottom layer. Does anyone know how to
select just Block Reference objects? I tried to just replace LWPOLYLINE
with BLOCK REFERENCE, BLOCK, BLOCKREF, etc, but it didn't work.

'------------Start of Example------------
Dim CurSet As AcadSelectionSet
Dim SelCode(0 To 1) As Integer
Dim SelValue(0 To 1) As Variant

SelCode(0) = 8
SelValue(0) = "Bottom" 'look on Bottom layer
SelCode(1) = 0
SelValue(1) = "LWPOLYLINE" 'find lightweight polylines only

CurSet.Select acSelectionSetAll, , , SelCode, SelValue
'------------End of Example------------

Any help would be greatly appreciated.
--
- Mel
-------------------------------------------
Please reply to the group so all can benefit.
-------------------------------------------





Back to top
Mel
Guest
Posted: Fri Mar 25, 2005 2:15 am    Post subject: Re: Selection Set - How do I select Block Reference Objects? Reply with quote
Thank you so much!
For the life of me I just couldn't find it anywhere in the help, "one of those days" I guess.

"Jeff Mishler" <jeff_m@cadvault.com> wrote in message news:42432bfa$1_2@newsprd01...
Quote:
A block reference is an "INSERT".......

--
Jeff
check out www.cadvault.com
"Mel" <Mel@REMOVE_CAPS_AND_INVALIDcircuitcheck.com.invalid> wrote in message
news:42432ab6$1_2@newsprd01...
I have used selection sets before, like the example below to select all of
the light-weight polylines on the Bottom layer. Does anyone know how to
select just Block Reference objects? I tried to just replace LWPOLYLINE
with BLOCK REFERENCE, BLOCK, BLOCKREF, etc, but it didn't work.

'------------Start of Example------------
Dim CurSet As AcadSelectionSet
Dim SelCode(0 To 1) As Integer
Dim SelValue(0 To 1) As Variant

SelCode(0) = 8
SelValue(0) = "Bottom" 'look on Bottom layer
SelCode(1) = 0
SelValue(1) = "LWPOLYLINE" 'find lightweight polylines only

CurSet.Select acSelectionSetAll, , , SelCode, SelValue
'------------End of Example------------

Any help would be greatly appreciated.
--
- Mel
-------------------------------------------
Please reply to the group so all can benefit.
-------------------------------------------



Back to top
Mel
Guest
Posted: Fri Mar 25, 2005 2:46 am    Post subject: Re: Selection Set - How do I select Block Reference Objects? Reply with quote
I am currently using a For Next loop to evaluate the block reference names
in the selection set. So...if I know the name of the block reference is
there a way I can filter that too?
"Jeff Mishler" <jeff_m@cadvault.com> wrote in message
news:42432bfa$1_2@newsprd01...
Quote:
A block reference is an "INSERT".......

--
Jeff
check out www.cadvault.com
"Mel" <Mel@REMOVE_CAPS_AND_INVALIDcircuitcheck.com.invalid> wrote in
message
news:42432ab6$1_2@newsprd01...
I have used selection sets before, like the example below to select all
of
the light-weight polylines on the Bottom layer. Does anyone know how to
select just Block Reference objects? I tried to just replace LWPOLYLINE
with BLOCK REFERENCE, BLOCK, BLOCKREF, etc, but it didn't work.

'------------Start of Example------------
Dim CurSet As AcadSelectionSet
Dim SelCode(0 To 1) As Integer
Dim SelValue(0 To 1) As Variant

SelCode(0) = 8
SelValue(0) = "Bottom" 'look on Bottom layer
SelCode(1) = 0
SelValue(1) = "LWPOLYLINE" 'find lightweight polylines only

CurSet.Select acSelectionSetAll, , , SelCode, SelValue
'------------End of Example------------

Any help would be greatly appreciated.
--
- Mel
-------------------------------------------
Please reply to the group so all can benefit.
-------------------------------------------



Back to top
Jeff Mishler
Guest
Posted: Fri Mar 25, 2005 2:53 am    Post subject: Re: Selection Set - How do I select Block Reference Objects? Reply with quote
Sure, incresase the size of the arrays and add a 2 to the SelCode(2) and the
block name to SelValue(2)

--
Jeff
check out www.cadvault.com
"Mel" <Mel@REMOVE_CAPS_AND_INVALIDcircuitcheck.com.invalid> wrote in message
news:4243362c_1@newsprd01...
Quote:
I am currently using a For Next loop to evaluate the block reference names
in the selection set. So...if I know the name of the block reference is
there a way I can filter that too?
"Jeff Mishler" <jeff_m@cadvault.com> wrote in message
news:42432bfa$1_2@newsprd01...
A block reference is an "INSERT".......

--
Jeff
check out www.cadvault.com
"Mel" <Mel@REMOVE_CAPS_AND_INVALIDcircuitcheck.com.invalid> wrote in
message
news:42432ab6$1_2@newsprd01...
I have used selection sets before, like the example below to select all
of
the light-weight polylines on the Bottom layer. Does anyone know how
to
select just Block Reference objects? I tried to just replace
LWPOLYLINE
with BLOCK REFERENCE, BLOCK, BLOCKREF, etc, but it didn't work.

'------------Start of Example------------
Dim CurSet As AcadSelectionSet
Dim SelCode(0 To 1) As Integer
Dim SelValue(0 To 1) As Variant

SelCode(0) = 8
SelValue(0) = "Bottom" 'look on Bottom layer
SelCode(1) = 0
SelValue(1) = "LWPOLYLINE" 'find lightweight polylines only

CurSet.Select acSelectionSetAll, , , SelCode, SelValue
'------------End of Example------------

Any help would be greatly appreciated.
--
- Mel
-------------------------------------------
Please reply to the group so all can benefit.
-------------------------------------------





Back to top
Mel
Guest
Posted: Fri Mar 25, 2005 3:26 am    Post subject: Re: Selection Set - How do I select Block Reference Objects? Reply with quote
Thanks again. I thought I'd post what I ended up with if anyone's
interested:

'------------Start of Example------------
Dim CurSet As AcadSelectionSet
Dim SelCode(0 To 2) As Integer
Dim SelValue(0 To 2) As Variant

Set CurSet = ThisDrawing.SelectionSets.Add("CutSelSet")

SelCode(0) = 8
SelCode(1) = 0
SelCode(2) = 2
SelValue(0) = "Drill" 'Look on Drill layer
SelValue(1) = "INSERT" 'only select block references
SelValue(2) = "SYMG*" 'only block names beginning with symg
CurSet.Select acSelectionSetAll, , , SelCode, SelValue
'------------End of Example------------

"Jeff Mishler" <jeff_m@cadvault.com> wrote in message
news:424336ef$1_3@newsprd01...
Quote:
Sure, incresase the size of the arrays and add a 2 to the SelCode(2) and
the
block name to SelValue(2)

--
Jeff
check out www.cadvault.com
"Mel" <Mel@REMOVE_CAPS_AND_INVALIDcircuitcheck.com.invalid> wrote in
message
news:4243362c_1@newsprd01...
I am currently using a For Next loop to evaluate the block reference
names
in the selection set. So...if I know the name of the block reference is
there a way I can filter that too?
"Jeff Mishler" <jeff_m@cadvault.com> wrote in message
news:42432bfa$1_2@newsprd01...
A block reference is an "INSERT".......

--
Jeff
check out www.cadvault.com
"Mel" <Mel@REMOVE_CAPS_AND_INVALIDcircuitcheck.com.invalid> wrote in
message
news:42432ab6$1_2@newsprd01...
I have used selection sets before, like the example below to select
all
of
the light-weight polylines on the Bottom layer. Does anyone know how
to
select just Block Reference objects? I tried to just replace
LWPOLYLINE
with BLOCK REFERENCE, BLOCK, BLOCKREF, etc, but it didn't work.

'------------Start of Example------------
Dim CurSet As AcadSelectionSet
Dim SelCode(0 To 1) As Integer
Dim SelValue(0 To 1) As Variant

SelCode(0) = 8
SelValue(0) = "Bottom" 'look on Bottom layer
SelCode(1) = 0
SelValue(1) = "LWPOLYLINE" 'find lightweight polylines only

CurSet.Select acSelectionSetAll, , , SelCode, SelValue
'------------End of Example------------

Any help would be greatly appreciated.
--
- Mel
-------------------------------------------
Please reply to the group so all can benefit.
-------------------------------------------







Back to top
 
Post new topic   Reply to topic    CADForums.net Forum Index -> VBA All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum




Windows Server DSP VoIP Electronics New Topics
Powered by phpBB