|
I download the latest Leadtools v15 and setup it.
I test this issue on the VBAnnotationDemo
I changed code like below
//-----------------------------------------------
Private Sub _menuItemAnnotationsCurrentObject_Click(...)
...
ElseIf sender Is _menuItemAnnotationsCurrentObjectLine Then
objectTemplate = New AnnProtractorObject
Dim obj As AnnProtractorObject
obj = CType(objectTemplate, AnnProtractorObject)
obj.MeasurementUnit = AnnUnit.SmartEnglish
obj.AngularUnit = AnnAngularUnit.Degree
obj.Acute = True
obj.Font = New AnnFont("Arial", New AnnLength(43), FontStyle.Bold)
obj.Pen = New AnnPen(Color.Red, New AnnLength(5, AnnUnit.Pixel))
obj.ArcRadius = New AnnLength(0.5F, AnnUnit.Point)
obj.AnglePrecision = 0
...
If Not objectTemplate Is Nothing Then
If objectTemplate.SupportsPen AndAlso (Not TypeOf objectTemplate Is AnnProtractorObject) Then
objectTemplate.Pen = _currentPen
End If
If objectTemplate.SupportsBrush Then
...
end sub
Private Function CreateDrawDesigner(...)
...
ElseIf TypeOf annObject Is AnnProtractorObject Then
drawDesigner = New AnnProtractorDrawDesigner
...
end function
//---------------------------------------------------
Select line icon and draw it. but same problems occur
please tell me what is problem
ps. I wil send you source image by e-mail
|