FieldCode Example

Using Programming Languages other than VBA

Sub Example_FieldCode()
	' This example creates a text object in model space.
	' It then returns the field code string for the object.

	Dim textObj As IAcadText2
	Dim text As String
	Dim insertionPoint(0 To 2) As Double
	Dim height As Double

	' Define the text object
	text = "%<\AcVar Date \f ""M/d/yyyy""%>%"
	insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
	height = 0.5

	' Create the text object in model space
	Set textObj = ThisDrawing.ModelSpace.AddText(text, insertionPoint, height)
	ZoomAll

	' Return the current text string for the object
	text = textObj.FieldCode
	MsgBox "The FieldCode for the text object equals: " & text, vbInformation, "FieldCode Example"

End Sub

 

   Comments?