AutoCAD ile VBA Makro #6-4

VBA ile slot çizimi 5 bölüm halinde yayınlandı. Bu video 4. bölümdür.

Bu bölümde polyline ile basit bir çizim kodlaması yapıldı.

Videoda kullanılan AutoCAD VBA kodları:

Sub polyLine()
    Dim pl As AcadLWPolyline
    Dim vl(7) As Double 'vertex listesi için
    vl(0) = 290: vl(1) = 40 'vertex 1 X,Y
    vl(2) = 275: vl(3) = 125 'vertex 2 X,Y
    vl(4) = 335: vl(5) = 65 'vertex 3 X,Y
    vl(6) = 300: vl(7) = 75 'vertex 4 X,Y
    
    Set pl = ThisDrawing.ModelSpace.AddLightWeightPolyline(vl)
    pl.Closed = True
    pl.Update
End Sub