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 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 255, 0, 0

Kreskowanie2.TrueColor = Color

Kreskowanie1.Update

Kreskowanie2.Update

End Sub

'rysuje linie 2 okręgi na początku i końcu czerwone

---