イラストレーター パスを新規作成

Dim NewPath As PathItem
Dim lines() As Object
ReDim lines(0)

Dim i As Short
For i = 0 To 10
	ReDim Preserve lines(i)
	'LineList(i) = New Object() {x(i), y(i)}
	lines(i) = New Object() {i ^ 3 + 100, i ^ 2 + 200}
	'↑vb.netで配列の配列をVariant Arrayとして認識できなかった。
	'「ツール」−「Visual Vasic 6 コードのアップグレード」で作るそうです。
Next

NewPath = IllDoc.PathItems.Add()
NewPath.SetEntirePath(lines)