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