Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

DXF code 410 VBA solutions?

Status
Not open for further replies.

PZero

IS-IT--Management
Jan 16, 2006
28
GB
I have run across a problem that seems to have come up a few times, but all links to helpful resources in those threads are dead. I am trying to select a particular block on the active layout, however due to the failings of code 410 in VBA, I can only select the block on the first layout.

I'm using vbdPowerSet and BuildFilter as found at
Heres my code (many thanks to Todd so far) which does not include the failed 410 bits;

Code:
' Build the filter criteria.
'
BuildFilter intData, varData, -4, "" _

' Ensure a selection set is not already in memory.
'
Set ssTitleBlock = vbdPowerSet("TITLE_BLOCK")


' Build the selection set.
'
ssTitleBlock.Select Mode:=acSelectionSetAll, FilterType:=intData, FilterData:=varData

Does anyone have a solution to this problem?
 
Sorry, my code actually looks like the following;

Code:
  ' Build the filter criteria.
  '
  BuildFilter intData, varData, -4, "<and", _
                                  0, "INSERT", _
                                  2, "TitleBlock", _
                                -4, "and>" _

  ' Ensure a selection set is not already in memory.
  '
  Set ssTitleBlock = vbdPowerSet("TITLE_BLOCK")

  
  ' Build the selection set.
  '
  ssTitleBlock.Select Mode:=acSelectionSetAll, FilterType:=intData, FilterData:=varData
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top