filter for objects only in model space?

[vbcad]

below is some code that selects objects that are on a specific layer. What code do I need to add for selecting only model space objects? I tried to use a set command to reference model space but this did not work. Any help is appreciated. I also want to take the model space selection set and create a block from the objects. Would i need to check the block table for the block if it exists in the drawing?

Sub scalebar()
Dim sstext As AcadSelectionSet
Dim entObj As AcadEntity
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Dim mode As Integer
mode = acSelectionSetAll
Set sstext = ThisDrawing.SelectionSets.Add("SS2")
FilterType(0) = 8
FilterData(0) = "G-TTLB-PLBK"
sstext.Select mode, , , FilterType, FilterData
sstext.Delete
End Sub

 

[bErEsTh]

Can I asak you what version of Autocad you are running?

 

[vbcad]

i am using 2005.

 

[basepointdesignz]

Use filter number 67 - it specifies ModelSpace or PaperSpace..

Use 0 or omitted = model space, 1 = paper space..


Cheers,
Paul @ basepoint designz LTD..

basepoint designz LTD

http://www.bpdesignz.com

 

[vbcad]

here is the revised code. works now

Sub scalebar()
Dim sstext As AcadSelectionSet
Dim entObj As AcadEntity
Dim filtertype(1) As Integer
Dim FilterData(1) As Variant
Dim mode As Integer
mode = acSelectionSetAll
Set sstext = ThisDrawing.SelectionSets.Add("SS2")
filtertype(0) = 8
filtertype(1) = 67
FilterData(0) = "G-TTLB-PLBK"
FilterData(1) = "0"
sstext.Select mode, , , filtertype, FilterData
sstext.Delete
End Sub

 

[vbcad]

I would like to create a block named "scalebar" from the selection set. i know i need to check for the block name before creating the block. If the block exists how do i handle any errors encountered with the block creation? The block will always be inserted at 0,0.