Public Sub dwie_linie()

Dim P1(0 To 2) As Double

Dim P2(0 To 2) As Double

Dim P3(0 To 2) As Double

Dim lineObj1 As ZwcadLine

Dim lineObj2 As ZwcadLine

P1(0) = 100# 'współrzędna x pierwszego punktu

P1(1) = 100# 'współrzędna y pierwszego punktu

P1(2) = 0# 'współrzędna z pierwszego punktu

P2(0) = 200# 'współrzędna x drugiego punktu

P2(1) = 300# 'współrzędna y drugiego punktu

P2(2) = 0# 'współrzędna z drugiego punktu

P3(0) = 500# 'współrzędna x trzeciego punktu

P3(1) = 400# 'współrzędna y trzeciego punktu

P3(2) = 0# 'współrzędna z trzeciego punktu

Set lineObj1 = ThisDocument.ModelSpace.AddLine(P1, P2)

ThisDocument.Linetypes.Load "ICAD_ISO04W100", "ZWCADISO.lin"

ThisDocument.Regen

Set lineObj2 = ThisDocument.ModelSpace.AddLine(P2, P3)

ThisDocument.Linetypes.Load "ICAD_ISO04W100", "ZWCADISO.lin"

ThisDocument.Regen

End Sub

'rysuje dwie linie przez punkty o ustalonych współrzędnych

---