get block attributes

[Anonymous]

I have a block on my drawing called "Title".

I can get a userform to display all the information in my block when I select it on screen using an AcadEntity.

How would I go about, or is it even possible to fill my userform with the block data immediatley when the form starts up without user doing anything?

[Anonymous]

Do you only have 1 instance of the "Title" block in a given drawing?

--
Matt W
"Yesterday I found out what doughnuts are for. You put them on doughbolts.
They hold dough airplanes together. For kids, they make erector sets out of play-dough"

[Anonymous]

Yeah, there is only one instance

[Anonymous]

Can you post the code you have so far?

--
Matt W
"Yesterday I found out what doughnuts are for. You put them on doughbolts.
They hold dough airplanes together. For kids, they make erector sets out of play-dough"

[Anonymous]

This is what I have right now, I have to pick the block

Sub dgetattributes()

Dim varpick As Variant
Dim objent As AcadEntity
Dim objBlock As AcadBlocks
Dim objAttrib As AcadAttribute
Dim objBlock1 As AcadBlockReference
Dim varattribs As Variant

With ThisDrawing.Utility
.GetEntity objent, varpick

Set objBlock1 = objent

varattribs = objBlock1.GetAttributes


txtcontract.Text = varattribs(10).TextString

txtProject.Text = varattribs(0).TextString + ", " + varattribs(1).TextString
txtContractor.Text = varattribs(4).TextString

frmAddjob.Show

End With

End Sub

[Anonymous]

This should get you pointed in the right direction - I hope. 🙂

--
Matt W
"Yesterday I found out what doughnuts are for. You put them on doughbolts.
They hold dough airplanes together. For kids, they make erector sets out of play-dough"

[Anonymous]

thanks, That helped me out a great deal

[Anonymous]

You're welcome.
Glad I could help.

--
Matt W