Insert block question

[Anonymous]

I'm new to VB programming in Autocad. Here's what I'd like to do.

Say I have 3 groups of blocks(.dwg files)
Group 1: 1a.dwg, 1b.dwg
Group 2: 2a.dwg, 2b.dwg
Group 3: 3a.dwg, 3b.dwg

I want to have a dialog box that I can select 1 block from each group and
have it insert all of them at 0,0 and 1:1 scale. I have the dialog box but
can't figure out how to insert the blocks that I select.

--
J_Toy

[Anonymous]

J_Toy,

Here is a snipet of code I use, I think it'll give you the idea. I use this
for details that I insert into my detail sheets. I mainly got it out of the
help refernences in the VBA IDE help.


Dim detInsPt(0 To 2) As Double
Dim detName As String
detInsPt(0) = 0#
detInsPt(1) = 0#
detInsPt(2) = 0#
detName = detDir + lstbxDtl.Text
Set detBlock = ThisDrawing.ModelSpace.InsertBlock(detInsPt, detName, 1#,
1#, 1#, 0)

Obviously you'll have to substitute in your method for the blockname
(detName variable in my case).

HTH


wrote in message
news:943D97BFCE6B335F4EE75D85902473C4@in.WebX.maYIadrTaRb...
> I'm new to VB programming in Autocad. Here's what I'd like to do.
>
> Say I have 3 groups of blocks(.dwg files)
> Group 1: 1a.dwg, 1b.dwg
> Group 2: 2a.dwg, 2b.dwg
> Group 3: 3a.dwg, 3b.dwg
>
> I want to have a dialog box that I can select 1 block from each group and
> have it insert all of them at 0,0 and 1:1 scale. I have the dialog box
but
> can't figure out how to insert the blocks that I select.
>
> --
> J_Toy
>
>
>

[Anonymous]

Thanks Jason,

That worked. It took a little while to figure out the radio buttons but
it works.

Thanks for you help.

--
J_Toy


"Jason Wilder" wrote in message
news:F401143C4AB3C33523B305F0D6C5877E@in.WebX.maYIadrTaRb...
> J_Toy,
>
> Here is a snipet of code I use, I think it'll give you the idea. I use
this
> for details that I insert into my detail sheets. I mainly got it out of
the
> help refernences in the VBA IDE help.
>
>
> Dim detInsPt(0 To 2) As Double
> Dim detName As String
> detInsPt(0) = 0#
> detInsPt(1) = 0#
> detInsPt(2) = 0#
> detName = detDir + lstbxDtl.Text
> Set detBlock = ThisDrawing.ModelSpace.InsertBlock(detInsPt, detName,
1#,
> 1#, 1#, 0)
>
> Obviously you'll have to substitute in your method for the blockname
> (detName variable in my case).
>
> HTH
>
>
> wrote in message
> news:943D97BFCE6B335F4EE75D85902473C4@in.WebX.maYIadrTaRb...
> > I'm new to VB programming in Autocad. Here's what I'd like to do.
> >
> > Say I have 3 groups of blocks(.dwg files)
> > Group 1: 1a.dwg, 1b.dwg
> > Group 2: 2a.dwg, 2b.dwg
> > Group 3: 3a.dwg, 3b.dwg
> >
> > I want to have a dialog box that I can select 1 block from each group
and
> > have it insert all of them at 0,0 and 1:1 scale. I have the dialog box
> but
> > can't figure out how to insert the blocks that I select.
> >
> > --
> > J_Toy
> >
> >
> >
>
>