Imports Leadtools
Imports Leadtools.Annotations
Imports Leadtools.WinForms
Imports Leadtools.Codecs
Public Sub AnnAutomationManager_FindObject(ByVal manager As AnnAutomationManager)
' fine the line automation object
Dim obj As AnnAutomationObject = manager.FindObject(AnnAutomationManager.LineObjectId)
If Not obj Is Nothing Then
obj.Object.Pen = New AnnPen(Color.Blue, New AnnLength(1, AnnUnit.Pixel))
End If
End Sub
using Leadtools;
using Leadtools.Annotations;
using Leadtools.WinForms;
using Leadtools.Codecs;
public void AnnAutomationManager_FindObject(AnnAutomationManager manager)
{
// fine the line automation object
AnnAutomationObject obj = manager.FindObject(AnnAutomationManager.LineObjectId);
if(obj != null)
obj.Object.Pen = new AnnPen(Color.Blue, new AnnLength(1, AnnUnit.Pixel));
}