Give this a try:
Sub SpotEl_Insert()
Dim v As Variant, d As AcadBlockReference, insPnt As Variant
insPnt = ThisDrawing.Utility.GetPoint(, "Insertion Point: ")
Set d = ThisDrawing.ModelSpace.InsertBlock(insPnt, "block_name", 1, 1, 1, 0)
v = d.GetAttributes
v(0).TextString = insPnt(2)
End Sub
block_name would have to be changed to the name of your block.
Assumption that attribute value is first attribute.
Sincerely,
Drew Burgasser
CAD Masters, Inc.
"Mark Scacco" wrote in message
news:C8D191912FB7E2E82F338DDADADD5193@in.WebX.maYIadrTaRb...
> Anyone know if I can define a block with an attribute such that the
default
> value of the attribute is the elevation at which the block itself is
> inserted? I want to insert a block at a specific elevation and have that
> elevation labeled as part of the block.
>
> Thanks,
>
> Mark Scacco
> Scacco Consulting, Inc.
>
>
>
>