Dim PoArray() As Integer = New Integer(1) {0, 0} '基準座標用 IllDoc = IllApp.Open(docFileName) '処理するファイルを開 IllDoc.RulerOrigin = PoArray '基準座標を左下に合わせる

http://codezine.jp/a/article/aid/406.aspx http://www.adobe.com/support/downloads/detail.jsp?ftpID=1536 http://www.adobe.com/support/downloads/thankyou.jsp?ftpID=1536&fileID=1470

'このTOOLのあるディレクトリを指定 Shared Function GetAppPath() As String Return System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location) End Function または DBPath = System.Windows.Forms.Application.Start…

'アプリケーションディレクトリを取得する Dim strWorkPath As String = System.Reflection.Assembly.GetExecutingAssembly.Location Dim myFileInfo As New System.IO.FileInfo(strWorkPath) MjstrPath = myFileInfo.DirectoryName