Public Sub Linia_z_okręgiem_solid_k_czarny()

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ąg As ZwcadCircle

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

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

ThisDocument.Regen

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

Dim Kreskowanie As ZwcadHatch

Dim ObjList(0 To 0) As ZwcadEntity

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

Set ObjList(0) = okrąg

Kreskowanie.AppendOuterLoop ObjList

Kreskowanie.Update

End Sub

'rysuje linie z 2 okręgami ,jeden zakreskowany solid