AutoCAD ile VBA Makro Kullanımı #3

AutoCAD ile VBA Makro kullanımı ile ilgili uygulamalar:
Videoda kullanılan kodlar:

Autocad VBA ile Çizgi Rengini Değiştirme:

Sub CizgiRengiDegis()
  'Makro: Mesut Akcan 17/3/2018 mesutakcan.blogspot.com
  Dim cizgi As AcadLine
  Dim n1(2) As Double, n2(2) As Double
  n1(0) = 0 'X
  n1(1) = 0 'Y
  n2(0) = 50 'X
  n2(1) = 70 'Y
  Set cizgi = ModelSpace.AddLine(n1, n2)
  cizgi.color = acCyan
  Regen acActiveViewport
  n1(0) = 10 'X
  n1(1) = 20 'Y
  MsgBox "devam"
  cizgi.StartPoint = n1
  cizgi.color = 220
End Sub