How to connect data in Excel to Block inside Modelspace

[i_len2884]

hello. i have a problem here.i have an application where it can find block inside drwg,give the qty and place these report in the drwg.
purpose :
create an application to
a)count block quantity
b)extract block name and block graphical image
c)open file(excel) which store the block description ("ID No","height","weight","symbol ","Qty","Block name")
d)list all the block descriptions inside a table-like.
can anyone show me how to pform this application?
is it complicated?if it is,can u suggest anythg else?'

1) can dbconnect connect the "BLOCK" inside drwg to the"EXTERNAL DATABASE ,like MSAccess/Excel for example?can sum1 show me how?code example,plz?
2)i have a block type of plant named =" havea brasiliensis" which is stored in a plant file.
is it possibble for me to extrct the block name with the image for the block altogether ?if possibble,then how?
but..if it not possible, can sum1 here suggest to me in what way can i get the image represented the block ?because i need to putit inside the table altogether with the "Block Name"

3)i have tried a code where the first time it executed successfully.But at the second time,it gave me an error .can sumone please tell me how to fix the error?i will attach below.hope to share with all of you out there.im really not an expert in this filed.im a very new beginner in this.really appreciate for any help.

i really hope sumone out there can help me.please please..i really really need a help.i'm very begginer in this creating application using vb and autocad.please..any help/suggesstion would be great;thanks a lot.

[jwanstaett]

the first time you run the program the selectionset ONLYBLOCKS is not in the drawing the next time you run the program it is so you get a error

Set objnewss = objDoc.SelectionSets.Add("ONLYBLOCKS")

change the code to

On Error Resume Next
Set objnewss = objDoc.SelectionSets.Add("ONLYBLOCKS")
Set objnewss = objDoc.SelectionSets("ONLYBLOCKS")
On Error GoTo 0

this way if the selectionset is in the drawing it will just do the next line and set objenewss to the selectionset

you should add this code before you use the selectionset or any object in the old selectionset will stall be there

objnewss.Clear

change

 
Dim objnewss As Object '''this line caused an error.why is it?.plz correct it.

to this

 
Dim objnewss As AcadSelectionSet

[i_len2884]

So thank you to u...i will try the codes and see what happen.i'll tell you the results tomorrow.Thanks a lot.

[i_len2884]

i already used it and it succeed but when i close the AutoCAD, i try to run the code again and it wont work...please help

[i_len2884]

Set objnewss = objDoc.SelectionSets.Add("ONLYBLOCKS")
On Error Resume Next
Set objnewss = objDoc.SelectionSets("ONLYBLOCKS")
Set objnewss.clear
On Error GoTo 0


An error accured after "On Error Resume Next" please help

tq

[fixo]

Set objnewss = objDoc.SelectionSets.Add("ONLYBLOCKS")
On Error Resume Next
Set objnewss = objDoc.SelectionSets("ONLYBLOCKS")
Set objnewss.clear
On Error GoTo 0


An error accured after "On Error Resume Next" please help

tq

Maybe this will work for you:

    Dim objnewss As AcadSelectionSet
    Dim objSelColl As AcadSelectionSets

  With ThisDrawing
    Set objSelColl = .SelectionSets
    For Each objnewss In objSelColl
      If objnewss.Name = "ONLYBLOCKS" Then
        objSelColl.Item("ONLYBLOCKS").Delete
        Exit For
      End If
    Next objnewss
    Set objnewss = objSelColl.Add("ONLYBLOCKS")
  End With

f.

[jwanstaett]

Set objnewss = objDoc.SelectionSets.Add("ONLYBLOCKS")
On Error Resume Next
Set objnewss = objDoc.SelectionSets("ONLYBLOCKS")
Set objnewss.clear
On Error GoTo 0


An error accured after "On Error Resume Next" please help

tq

should be

 
On Error Resume Next
Set objnewss = objDoc.SelectionSets.Add("ONLYBLOCKS")
Set objnewss = objDoc.SelectionSets("ONLYBLOCKS")
On Error GoTo 0
Set objnewss.clear