[vlados_68rus]

Ошибка в строке выделенная желтым

Код:

[Выделить все]

Public Function MkBlock(ByRef PLine, ByRef LayerName, ByRef TextStyle, ByRef TextSize, Optional ByVal AddLayer As String) As ZcadBlock
Dim Blk As ZcadBlock
Dim Attrib As ZcadAttribute
Dim AttribPoint As ZcadAttribute
Dim Point As Variant
Dim Lay As ZcadLayer
Dim Insert As ZcadBlockReference

Suffixes = Array("", "_NUM", "_RAZMER")
If AddLayer <> "" Then
ReDim Preserve Suffixes(UBound(Suffixes) + 1)
Suffixes(UBound(Suffixes)) = AddLayer
End If
For Each suffix In Suffixes
NewLay = True
For Each Lay In ActiveDocument.Layers
If Lay.name = LayerName + suffix Then _
NewLay = False: Exit For
Next Lay
If NewLay Then ActiveDocument.Layers.Add (LayerName + suffix)
Next suffix

For i = 0 To ActiveDocument.Blocks.count - 1
If ActiveDocument.Blocks.Item(i).name = PLine.Handle Then
ActiveDocument.Blocks.Item(i).Delete: Exit For
End If
Next

Set Blk = ActiveDocument.Blocks.Add(As3D(, 0, 0, 0), PLine.Handle)
Set Insert = Blk.InsertBlock(As3D(, 0, 0, 0), "KonturPoint.dwg", 1, 1, 1, 0)
Insert.Color = zcByBlock
'Blk.AddPointEntity Point
'Set TmpCircle = Blk.AddCircle(As3D(, 0, 0, 0), 0.37 * TextSize)

Set Attrib = Blk.AddAttribute(1, zcAttributeModeNormal, _
"Имя точки", As3D(, 1, 1, 0), "PointName", "?")
Attrib.StyleName = TextStyle
Attrib.Color = zcByBlock
Attrib.ObliqueAngle = 3.14 * 15 / 180

Set AttribPoint = Blk.AddAttribute(1, zcAttributeModeInvisible, _
"Номер точки", As3D(, 1, -1 - TextSize, 0), "PointNumber", "?")
AttribPoint.StyleName = TextStyle
AttribPoint.Color = zcByBlock
AttribPoint.ObliqueAngle = 3.14 * 15 / 180
Set MkBlock = Blk
End Function

[Кулик Алексей aka kpblc]

1. Есть иэги [code][/code]
2. Никакого выделения цветом не наблюдается.
3. В заголовок вынеси версию, разрядность AutoCAD и название языка, на котором пишешь.