topic Re: vba legend in VBA Forum

vba legend

Anonymous — Thu, 27 Jan 2000 18:01:26 GMT

Carlos,
If I understand correctly, your just looking for the type and count of the
blocks in your drawing, something for the user to view and then close out. If
that's the case, you can loop through the
autocad.application.activedrawing.blocks collection, not the blockref
collection. Then use select case or block if to count the blocks and assign the
quantities to a group of variables or place them in a multidimenional array
where the first column is the blockname and the second is the count, ect.. You
can then create a form and place the info you want in textboxes, ect for the
user to view. By setting the enabled property of the textboxes to false the user
won't be able to modify their values, just view them and close out the form
until the next time you run your program. Hope this is what your looking for.
-Josh

Carlos Femmer wrote:

> Hi guys,
>
> One quick note. I came to this vba news group several months ago and
> answered several questions and posted a couple. Unfortunately nobody knew
> anything about vba. I am looking at some recent post and answers and it
> looks like some programmers finally arrived. I have a problem and any input
> would be appreciated. I have an oracle database that stores our well
> information. I wrote a routine that grabs the wells from the database based
> on filters and plots them in the map. I have 26 different blocks that
> represent the type of wells. An example would be when I run the well
> routine for a particular area it might plot (10 active blocks, 16 shut in
> blocks, 27 water blocks etc...) What would be the easiest way to build a
> legend of the blocks plotted. I have the partial code that inserts the
> blocks based on filters below.
>
> /***************************************************************************
> ******
> If rs!serial > 1 Then
> wellPoint(0) = CDbl(rs!sx)
> wellPoint(1) = CDbl(rs!sy)
> wellPoint(2) = 0
> btmPoint(0) = CDbl(rs!btmx)
> btmPoint(1) = CDbl(rs!btmy)
> btmPoint(2) = 0
>
> If (rs!Status = "01") Or (rs!Status = "02") Then
> If rs!btmx = "0000000" Then
> Set anObj =
> acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, cirp, xscale,
> yscale, rotAngle)
> attr = anObj.GetAttributes
> attr(0).textstring = CStr(rs!serial)
> Set ahold =
> acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, lblosin, xscale,
> yscale, rotAngle)
> atts = ahold.GetAttributes
> atts(0).textstring = CStr(rs!OPNAMET)
> atts(1).textstring = CStr(rs!wn)
> atts(2).textstring = CStr(rs!se)
> atts(3).textstring = CStr(rs!tdpth)
> Else
> Set anObjsurf =
> acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, surfloc, xscale,
> yscale, rotAngle)
> Set anObj =
> acadObj.ActiveDocument.ModelSpace.InsertBlock(btmPoint, cirp, xscale,
> yscale, rotAngle)
> Set conObj =
> acadObj.ActiveDocument.ModelSpace.AddLine(wellPoint, btmPoint)
> conObj.Color = (cboLnclr.ListIndex + 1)
> attu = anObj.GetAttributes
> attu(0).textstring = CStr(rs!se)
> ****************************************************************************
> *******/
>
> Carlos

Re: vba legend

Anonymous — Thu, 27 Jan 2000 18:05:09 GMT

One more thing. If you want to keep the info visible while the user is working on
the drawing, you can use Jorge Lopez's dockable container and just update every so
often. But you'll have to build your code into an ocx.
-Josh

Re: vba legend

Anonymous — Thu, 27 Jan 2000 23:03:58 GMT

Hi guys,

One quick note. I came to this vba news group several months ago and
answered several questions and posted a couple. Unfortunately nobody knew
anything about vba. I am looking at some recent post and answers and it
looks like some programmers finally arrived. I have a problem and any input
would be appreciated. I have an oracle database that stores our well
information. I wrote a routine that grabs the wells from the database based
on filters and plots them in the map. I have 26 different blocks that
represent the type of wells. An example would be when I run the well
routine for a particular area it might plot (10 active blocks, 16 shut in
blocks, 27 water blocks etc...) What would be the easiest way to build a
legend of the blocks plotted. I have the partial code that inserts the
blocks based on filters below.

/***************************************************************************
******
If rs!serial > 1 Then
wellPoint(0) = CDbl(rs!sx)
wellPoint(1) = CDbl(rs!sy)
wellPoint(2) = 0
btmPoint(0) = CDbl(rs!btmx)
btmPoint(1) = CDbl(rs!btmy)
btmPoint(2) = 0

If (rs!Status = "01") Or (rs!Status = "02") Then
If rs!btmx = "0000000" Then
Set anObj =
acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, cirp, xscale,
yscale, rotAngle)
attr = anObj.GetAttributes
attr(0).textstring = CStr(rs!serial)
Set ahold =
acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, lblosin, xscale,
yscale, rotAngle)
atts = ahold.GetAttributes
atts(0).textstring = CStr(rs!OPNAMET)
atts(1).textstring = CStr(rs!wn)
atts(2).textstring = CStr(rs!se)
atts(3).textstring = CStr(rs!tdpth)
Else
Set anObjsurf =
acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, surfloc, xscale,
yscale, rotAngle)
Set anObj =
acadObj.ActiveDocument.ModelSpace.InsertBlock(btmPoint, cirp, xscale,
yscale, rotAngle)
Set conObj =
acadObj.ActiveDocument.ModelSpace.AddLine(wellPoint, btmPoint)
conObj.Color = (cboLnclr.ListIndex + 1)
attu = anObj.GetAttributes
attu(0).textstring = CStr(rs!se)
****************************************************************************
*******/

Carlos

Re: vba legend

Anonymous — Fri, 28 Jan 2000 17:19:07 GMT

Josh,

I was trying to get the type and count and display in some sort of form but
also what I would
like to accomplish is creating a legend in the map. For instance, in a
current view I have all
the wells plotted. I have a title block off to the right of the drawing.
In the title block I would
like to allocate some space for a legend. What I would like the legend to
display is one instance
of each block that was inserted in the drawing with a description of the
block. After the legend
is created in the map, maybe display some sort of form that you described.
I am currently working
on your solution and if you have any input on the above legend in a map I
would appreciate any feedback.

Carlos

Minkwitz Design wrote in message
news:389087F6.3E5704DC@xta.com...
> Carlos,
> If I understand correctly, your just looking for the type and count of
the
> blocks in your drawing, something for the user to view and then close out.
If
> that's the case, you can loop through the
> autocad.application.activedrawing.blocks collection, not the blockref
> collection. Then use select case or block if to count the blocks and
assign the
> quantities to a group of variables or place them in a multidimenional
array
> where the first column is the blockname and the second is the count, ect..
You
> can then create a form and place the info you want in textboxes, ect for
the
> user to view. By setting the enabled property of the textboxes to false
the user
> won't be able to modify their values, just view them and close out the
form
> until the next time you run your program. Hope this is what your looking
for.
> -Josh
>
> Carlos Femmer wrote:
>
> > Hi guys,
> >
> > One quick note. I came to this vba news group several months ago and
> > answered several questions and posted a couple. Unfortunately nobody
knew
> > anything about vba. I am looking at some recent post and answers and it
> > looks like some programmers finally arrived. I have a problem and any
input
> > would be appreciated. I have an oracle database that stores our well
> > information. I wrote a routine that grabs the wells from the database
based
> > on filters and plots them in the map. I have 26 different blocks that
> > represent the type of wells. An example would be when I run the well
> > routine for a particular area it might plot (10 active blocks, 16 shut
in
> > blocks, 27 water blocks etc...) What would be the easiest way to build
a
> > legend of the blocks plotted. I have the partial code that inserts the
> > blocks based on filters below.
> >
> >
/***************************************************************************
> > ******
> > If rs!serial > 1 Then
> > wellPoint(0) = CDbl(rs!sx)
> > wellPoint(1) = CDbl(rs!sy)
> > wellPoint(2) = 0
> > btmPoint(0) = CDbl(rs!btmx)
> > btmPoint(1) = CDbl(rs!btmy)
> > btmPoint(2) = 0
> >
> > If (rs!Status = "01") Or (rs!Status = "02") Then
> > If rs!btmx = "0000000" Then
> > Set anObj =
> > acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, cirp, xscale,
> > yscale, rotAngle)
> > attr = anObj.GetAttributes
> > attr(0).textstring = CStr(rs!serial)
> > Set ahold =
> > acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, lblosin,
xscale,
> > yscale, rotAngle)
> > atts = ahold.GetAttributes
> > atts(0).textstring = CStr(rs!OPNAMET)
> > atts(1).textstring = CStr(rs!wn)
> > atts(2).textstring = CStr(rs!se)
> > atts(3).textstring = CStr(rs!tdpth)
> > Else
> > Set anObjsurf =
> > acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, surfloc,
xscale,
> > yscale, rotAngle)
> > Set anObj =
> > acadObj.ActiveDocument.ModelSpace.InsertBlock(btmPoint, cirp, xscale,
> > yscale, rotAngle)
> > Set conObj =
> > acadObj.ActiveDocument.ModelSpace.AddLine(wellPoint, btmPoint)
> > conObj.Color = (cboLnclr.ListIndex + 1)
> > attu = anObj.GetAttributes
> > attu(0).textstring = CStr(rs!se)
> >
****************************************************************************
> > *******/
> >
> > Carlos
>

Re:

Anonymous — Fri, 28 Jan 2000 23:47:19 GMT

Carlos,
Use the insertion point of the title block as a reference for insertion
points of your "legend blocks". Then you after looping through the blocks, you
can check your variables for : If myvar > 0 then ... insert a block and set an
attribute or text string to the variable value showing the number of blocks. If
the variable count is still 0 then don't insert the block. I'm in a pinch for
time now, but if I have a chance, I may jump on this weekend and be a little
more descriptive.
-Josh

Carlos Femmer wrote:

> Josh,
>
> I was trying to get the type and count and display in some sort of form but
> also what I would
> like to accomplish is creating a legend in the map. For instance, in a
> current view I have all
> the wells plotted. I have a title block off to the right of the drawing.
> In the title block I would
> like to allocate some space for a legend. What I would like the legend to
> display is one instance
> of each block that was inserted in the drawing with a description of the
> block. After the legend
> is created in the map, maybe display some sort of form that you described.
> I am currently working
> on your solution and if you have any input on the above legend in a map I
> would appreciate any feedback.
>
> Carlos
>
> Minkwitz Design wrote in message
> news:389087F6.3E5704DC@xta.com...
> > Carlos,
> > If I understand correctly, your just looking for the type and count of
> the
> > blocks in your drawing, something for the user to view and then close out.
> If
> > that's the case, you can loop through the
> > autocad.application.activedrawing.blocks collection, not the blockref
> > collection. Then use select case or block if to count the blocks and
> assign the
> > quantities to a group of variables or place them in a multidimenional
> array
> > where the first column is the blockname and the second is the count, ect..
> You
> > can then create a form and place the info you want in textboxes, ect for
> the
> > user to view. By setting the enabled property of the textboxes to false
> the user
> > won't be able to modify their values, just view them and close out the
> form
> > until the next time you run your program. Hope this is what your looking
> for.
> > -Josh
> >
> > Carlos Femmer wrote:
> >
> > > Hi guys,
> > >
> > > One quick note. I came to this vba news group several months ago and
> > > answered several questions and posted a couple. Unfortunately nobody
> knew
> > > anything about vba. I am looking at some recent post and answers and it
> > > looks like some programmers finally arrived. I have a problem and any
> input
> > > would be appreciated. I have an oracle database that stores our well
> > > information. I wrote a routine that grabs the wells from the database
> based
> > > on filters and plots them in the map. I have 26 different blocks that
> > > represent the type of wells. An example would be when I run the well
> > > routine for a particular area it might plot (10 active blocks, 16 shut
> in
> > > blocks, 27 water blocks etc...) What would be the easiest way to build
> a
> > > legend of the blocks plotted. I have the partial code that inserts the
> > > blocks based on filters below.
> > >
> > >
> /***************************************************************************
> > > ******
> > > If rs!serial > 1 Then
> > > wellPoint(0) = CDbl(rs!sx)
> > > wellPoint(1) = CDbl(rs!sy)
> > > wellPoint(2) = 0
> > > btmPoint(0) = CDbl(rs!btmx)
> > > btmPoint(1) = CDbl(rs!btmy)
> > > btmPoint(2) = 0
> > >
> > > If (rs!Status = "01") Or (rs!Status = "02") Then
> > > If rs!btmx = "0000000" Then
> > > Set anObj =
> > > acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, cirp, xscale,
> > > yscale, rotAngle)
> > > attr = anObj.GetAttributes
> > > attr(0).textstring = CStr(rs!serial)
> > > Set ahold =
> > > acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, lblosin,
> xscale,
> > > yscale, rotAngle)
> > > atts = ahold.GetAttributes
> > > atts(0).textstring = CStr(rs!OPNAMET)
> > > atts(1).textstring = CStr(rs!wn)
> > > atts(2).textstring = CStr(rs!se)
> > > atts(3).textstring = CStr(rs!tdpth)
> > > Else
> > > Set anObjsurf =
> > > acadObj.ActiveDocument.ModelSpace.InsertBlock(wellPoint, surfloc,
> xscale,
> > > yscale, rotAngle)
> > > Set anObj =
> > > acadObj.ActiveDocument.ModelSpace.InsertBlock(btmPoint, cirp, xscale,
> > > yscale, rotAngle)
> > > Set conObj =
> > > acadObj.ActiveDocument.ModelSpace.AddLine(wellPoint, btmPoint)
> > > conObj.Color = (cboLnclr.ListIndex + 1)
> > > attu = anObj.GetAttributes
> > > attu(0).textstring = CStr(rs!se)
> > >
> ****************************************************************************
> > > *******/
> > >
> > > Carlos
> >