Hi
A. '07
Any idea why myStyle returns Nothing for the code below?
It should test to see if a table style existing & create it if it doesn't.
tblDict correctly returns with one item in it (The Standard style)
What's irritating about this is that it worked when I first wrote it a year ago.
Any ideas for a solutions?
Thanks
Dave F.
Code:
Dim tblDict As AcadDictionary
Dim myStyle As AcadTableStyle
Function SetStyle(ByVal Name As String)
Set tblDict = ThisDrawing.Database.Dictionaries.Item("ACAD_TableStyle") ' create a list of Tables
On Error Resume Next
tblDict.Item (Name) ' does it exist
If Err <> 0 Then ' if it doesn't - create it
Set myStyle = tblDict.AddObject(Name, "AcDbTableStyle")
With myStyle
<etc>...