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