insert drawing note at specific location

[chotchkiss]

I use the following code to insert a drawing note onto a drawing, but I cannot figure out how to place it at a specific XY coordinate.

	Public Function createSurfaceNote(drawing As IpfcDrawing) As IpfcDetailNoteItem
	Dim text As IpfcDetailText
	Dim texts As CpfcDetailTexts
	Dim textLine As IpfcDetailTextLine
	Dim textLines As CpfcDetailTextLines
	Dim noteInstructions As IpfcDetailNoteInstructions
	Dim note As IpfcDetailNoteItem = Nothing

Try

	'======================================================================
	'Allocate a text item and add it to a new text line
	'======================================================================
	text = (New CCpfcDetailText).Create("@[&sheet_name@]")
	texts = New CpfcDetailTexts
	texts.Insert(0, text)
	textLine = (New CCpfcDetailTextLine).Create(texts)
	textLines = New CpfcDetailTextLines
	textLines.Insert(0, textLine)

	'======================================================================
	'Allocate a note description and set its properties
	'======================================================================
	noteInstructions = (New CCpfcDetailNoteInstructions).Create(textLines)

	'======================================================================
	'Create and display the note
	'======================================================================
	note = drawing.CreateDetailItem(noteInstructions)
	note.Show()

	Catch ex As Exception
	MsgBox(ex.Message.ToString + Chr(13) + ex.StackTrace.ToString)
	End Try

createSurfaceNote = note

End Function

I am grateful for any help on this.  Clay

[rmcboaty]

check if there is a method to move it. i know that there is one to move a view on the drawing.