Hello,

I'm trying to create an application that will add a row to an existing revsion table on a drawing,

Then add text to the  "Description" column. I have got it to the point where it will add the row with the correct revsion letter but fails whenn adding the text.

I have:

Dim myTable As Object
Set myTable = Part.SelectionManager.GetSelectedObject5(1)
myTable.Text(3, 1) = "AS BUILT" ...................................................... this is where it fails.

any ideas?

Thanks

Jacob

the code:

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("DetailItem306@Sheet1", "REVISIONTABLE", 0.1777396208626, 0.2621848124373, 0, False, 0, Nothing, 0)
Dim currentSheet As Object
Dim myRevisionTable As Object

Set currentSheet = Part.GetCurrentSheet()
Set myRevisionTable = currentSheet.RevisionTable

longstatus = myRevisionTable.AddRevision("A")

boolstatus = Part.Extension.SelectByID2("DetailItem306@Sheet1", "REVISIONTABLE", 0.1940328164493, 0.2358870230692, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True

Dim myTable As Object
Set myTable = Part.SelectionManager.GetSelectedObject5(1)
myTable.Text(3, 1) = "AS BUILT"