使用Wia.Vector对象画扭结线

lss001

Sub 扭结线()
Dim x&, y&, img As Object, v AsObject
Set img = CreateObject("Wia.ImageFile")
Set v = CreateObject("Wia.Vector")
w = 240: h = 240
p = WorksheetFunction.Pi

For i = 1 To w
    For j = 1 To h
       .v.Add RGB(255, 255, 255)
    Next
Next

m = w / 2: n = h / 2
For i = 0 To 2 * p Step 0.01
    x = 10 * i * Cos(i)
    y = 10 * i * Sin(i)
    v((n + y -1) * w + m - x) = RGN(255, 0, 0)
Next

Set img = v.ImageFile(w, h)
img.SaveFile "D:\m3.jpg"
Set img = Nothing
Set v = Nothing
End Sub