イラストレーター パスを新規作成
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)