Public Sub z_c()

Dim P1 As Variant

Dim p2 As Variant

P1 = ThisDocument.Utility.GetPoint(, "Wskaż początek linii:")

p2 = ThisDocument.Utility.GetPoint(P1, "Wskaż koniec linii:")

Dim lineObj As ZwcadLine

Set lineObj = ThisDocument.ModelSpace.AddLine(P1, p2)

'lineObj.LineWeight = zcLnWt050

Dim okrąg1 As ZwcadCircle

Set okrąg1 = ThisDocument.ModelSpace.AddCircle(p2, 15)

Dim okrąg2 As ZwcadCircle

Set okrąg2 = ThisDocument.ModelSpace.AddCircle(P1, 15)

ThisDocument.Regen

'rysuje linie z 2 okręgami o środkach w początku i końcu linii

Dim Kreskowanie1 As ZwcadHatch

Set Kreskowanie1 = ThisDocument.ModelSpace.AddHatch(zcHatchPatternTypePreDefined, "Solid", False)

Dim ObjList(0 To 0) As ZwcadEntity

Set ObjList(0) = okrąg1

Kreskowanie1.AppendOuterLoop ObjList

Dim Color

Set Color = Kreskowanie1.TrueColor

Color.SetRGB 255, 0, 0

Kreskowanie1.TrueColor = Color

Dim Kreskowanie2 As ZwcadHatch

Set Kreskowanie2 = ThisDocument.ModelSpace.AddHatch(zcHatchPatternTypePreDefined, "Solid", False)

Set ObjList(0) = okrąg2

Kreskowanie2.AppendOuterLoop ObjList

Set Color = Kreskowanie2.TrueColor

Color.SetRGB 0, 255, 0

Kreskowanie2.TrueColor = Color

Kreskowanie1.Update

Kreskowanie2.Update

End Sub

---