Fields and User input into Table

I am trying to figure out the best methods to have a user creat a field in a
table which is link to a piece of text that the user is prompted for.

Simply the steps are:

Existing table:
Exiting Text:

(user is prompted to select existing text entitiy)
(user is prompted to select which cell in existing table)

Then the code will create a field (text contents) in the selected cell that
references the selected text entity

This should be easy right? Having a bugger of a time getting the field code
to work inside the cell.

I was looking into gathering the ObjectID# of the selected text, then
placing that in the Field code as a variable.

Not sure where to go.

I cannot find to much in the help files...

Thanks.

 

UPDATE: I have figured out how to get the user to select text, get the
Object ID, and create a field with that text reference.

LAST thing I need: How do I get the field created in a cell the user select
in a table?

Thanks again!
Dan

 

Here is a short example:

Sub Test()
Dim pickObj As AcadMText
Dim tblObj As AcadTable
Dim pickPt As Variant
Dim tblPt As Variant
With ThisDrawing.Utility
.GetEntity pickObj, pickPt, vbCrLf & "Select text: "
.GetEntity tblObj, tblPt, vbCrLf & "Select table: "
End With

Dim vec0(0 To 2) As Double
vec0(0) = 0#: vec0(1) = 0#: vec0(2) = 1#
Dim gotRow As Long, gotCol As Long
If tblObj.HitTest(tblPt, vec0, gotRow, gotCol) Then
tblObj.SetText gotRow, gotCol, "%<\AcObjProp Object(" &
CStr(pickObj.ObjectID) & ").TextString \f ""%bl2"">%"
End If
End Sub



--
R. Robert Bell


UPDATE: I have figured out how to get the user to select text, get the
Object ID, and create a field with that text reference.

LAST thing I need: How do I get the field created in a cell the user select
in a table?

Thanks again!
Dan

 

Ouch! That was good. My code was 5 times as big. So much to learn. Thank you
very much Robert.
That acomplishes exactly what I was working towards. Hope this helps
others. I have not found much documentation on Fields and tables. Do you
have any good resources?

Dan

 

Nope, no good resources. Lots of testing and so on.

Please be aware that my sample code is not error-checking the user
selections!

--
R. Robert Bell


Ouch! That was good. My code was 5 times as big. So much to learn. Thank you
very much Robert.
That acomplishes exactly what I was working towards. Hope this helps
others. I have not found much documentation on Fields and tables. Do you
have any good resources?

Dan

 

Now why would you error check user selections, Bob? Don't the users always
select as *we* think they will =)

-- Mike
___________________________
Mike Tuersley
CADalyst's CAD Clinic
Rand IMAGINiT Technologies
___________________________
the trick is to realize that there is no spoon...

 

Off with their heads if they don't!!!! <esg>

--
R. Robert Bell


Now why would you error check user selections, Bob? Don't the users always
select as *we* think they will =)

-- Mike
___________________________
Mike Tuersley
CADalyst's CAD Clinic
Rand IMAGINiT Technologies
___________________________
the trick is to realize that there is no spoon...

 

Agreed,I am researching different methods of error checking now.
Dan

 

I'm not sure that's the case, Dan. Your error message is saying that the
user chose something, or the lack of something, that is required.
Typically, this error is seen when your asking for the user to pick lets
say a LINE and they either pick nothing or another non-line entitiy
[circle, text, etc.]

-- Mike
___________________________
Mike Tuersley
CADalyst's CAD Clinic
Rand IMAGINiT Technologies
___________________________
the trick is to realize that there is no spoon...

 

Hint: TypeOf

--
R. Robert Bell


Agreed,I am researching different methods of error checking now.
Dan

 

I follow you, but when I do it, it fails, then I change the textstyle of the
cell to Standard, and it works fine....?
Dan