Не создается окружность в дефиниции символа

[brigval 690]

В строке ERR выдает ошибку и оружность не создается:

'

' Создание окружности в дефиниции символа

'

Private Function SymbolDefAddCircle(ByRef oSymDef As IpfcDetailSymbolDefItem, _

						   ByVal oPt As CpfcPoint3D, ByVal dR As Double, _

						   Optional ByVal oColour As IpfcColorRGB = Nothing) As IpfcDetailEntityItem

   Dim oCircleDescrCreate  As New CCpfcCircleDescriptor

   Dim oEntInstrsCreate	As New CCpfcDetailEntityInstructions

   Dim oCircleDescr		As IpfcCircleDescriptor

   Dim oCircleInstrs	   As IpfcDetailEntityInstructions

   Dim oVector As CpfcVector3D

   

   On Error GoTo 1

   Set oVector = New CpfcVector3D

   oVector.Set 0, 1

   oVector.Set 1, 0

   oVector.Set 2, 0

   '

   Set oCircleDescr = oCircleDescrCreate.Create(oPt, dR, oVector)

   Set oCircleInstrs = oEntInstrsCreate.Create(oCircleDescr, Nothing)

   If Not oColour Is Nothing Then oCircleInstrs.Color = oColour

ERR:   Set SymbolDefAddCircle = oSymDef.CreateDetailItem(oCircleInstrs)

   Exit Function

1:

   MsgBox "SymbolDefAddCircle: " + ERR.Description, vbExclamation, TI

'Resume '

End Function

В то время как линия в дефиниции символа создается нормально:

'

' Создание линии в дефиниции символа

'

Private Function SymbolDefAddLine(ByRef oSymDef As IpfcDetailSymbolDefItem, _

							 ByVal oEnd1 As IpfcPoint3D, ByVal oEnd2 As IpfcPoint3D, _

							  Optional ByVal oColour As IpfcColorRGB = Nothing) As IpfcDetailEntityItem

   Dim oLineDescrCreate	As New CCpfcLineDescriptor

   Dim oEntInstrsCreate	As New CCpfcDetailEntityInstructions

   Dim oLineDescr		  As IpfcLineDescriptor

   Dim oLineInstrs		 As IpfcDetailEntityInstructions

   '

   Set oLineDescr = oLineDescrCreate.Create(oEnd1, oEnd2)

   Set oLineInstrs = oEntInstrsCreate.Create(oLineDescr, Nothing)

   If Not oColour Is Nothing Then oLineInstrs.Color = oColour

   Set SymbolDefAddLine = oSymDef.CreateDetailItem(oLineInstrs)

End Function

Как побороть ошибку? В чем может быть причина?