Thank you BAshworth
That gave me a good start and some good ideas. I have it very close to the way I want it now.
BUT... I am having a couple of other problems. Here is a piece of my code:
--------------------------------------------------------------------------------------
Set newBlock = ThisDrawing.Blocks.Add(pt1, "txtBlock")
For i = 0 To iSelected - 1
If lbDrawings.Selected(i) Then
strDrawing = ("select [drawing id]
from drawings
where [drawing id] = '" & lbDrawings.Column(0, i) & "'")
Set rs = db.OpenRecordset(strDrawing, dbOpenDynaset)
Set flddrawing = rs.Fields("drawing id")
rs.MoveFirst
While Not rs.EOF
Set txtObj = newBlock.AddText(flddrawing, pt1, 0.09) pt1(1) = pt1(1) - 0.1696
rs.MoveNext
Wend
End If
Next
ThisDrawing.PaperSpace.InsertBlock pt, "txtBlock", 1, 1, 1, 0
------------------------------------------------------------------------------------
Ok questions are:
1. how do I delete the block I created or at least clear it.
I have tried
newBlock.delete and
ThisDrawing.Blocks("txtBlock").delete
I get object required errors
2.Can I format the text before or after I add it to the block
I need to set the font, width, and bold.
For the font I can use
ThisDrawing.ActiveTextStyle.SetFont "romans", False, False, 1, 1
but I dont want to do a global font change.
Any help or advice would be greatly appreaciated