Public Sub Przyklad()

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)

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 okregami o srodkach w początku i koncu linii, okręgi są wypełnione solid

Dim Kreskowanie As ZwcadHatch

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

Dim ObjList(0 To 0) As ZwcadEntity

Set ObjList(0) = okrąg1

Kreskowanie.AppendOuterLoop ObjList

Set ObjList(0) = okrąg2

Kreskowanie.AppendOuterLoop ObjList

Kreskowanie.Update

ThisDocument.Regen

'rysuje linię i 2 okręgi na początku i końcu wypełnione kreskowaniem solid

End Sub

---