Autodesk Inventorでの図面作成をAPIで完全自動化、VBAとC#での実装方法も紹介

Option Compare Database
Option Explicit

Private Sub 図面出力_Click()

    Dim destProject As String
    destProject = "C:\InventorProjects"
        
    ' 代わりに、指定したプロジェクトを名前で検索してアクティブ化
    Dim targetProjectName As String
    targetProjectName = "プロジェクト名"
       
    Dim wgName As String
    Dim wgPath As String
    
    ' 新しい検索パスを追加
    wgName = "作業グループ" ' 作業グループ名（任意）
    wgPath = "C:\作業グループパス\" ' 作業グループのパス
        
    ' コピー元ファイルのパス
    Dim sourceFile As String
    sourceFile = "C:\コピー元パス\product.iam"
    
    ' コピー先フォルダ（既にある想定）
    Dim destFolder As String
    destFolder = "C:\InventorProjects"
    
    ' コピー先ファイルのパス（同じファイル名でコピー）
    Dim destFile As String
    destFile = destFolder & "\product.iam"
    
    
    ' -------------------------------------
    ' ▼ 注意 ▼
    ' プロジェクトを新規作成してすぐにiLogicルールを実行すると、内部的にプロジェクト情報がまだ完全に反映されておらず、
    ' iLogic実行時にエラーが発生することがあります。
    ' そのため、最初に「SetupInventorProject」だけを実行して、プロジェクトの作成と初期設定を行います。
    ' その後、もう一度「SetupInventorProject」＋「SetUserParamAndRunRule」を実行すると、iLogicルールも問題なく動作します。
    '
    ' このように、プロジェクトの初回セットアップとルール実行は「2段階」に分けることで安定した動作が得られます。
    ' -------------------------------------
    Dim blnCreateProject As Boolean
    blnCreateProject = False
    
    'Inventorのプロジェクトを作成
    blnCreateProject = SetupInventorProject( _
        targetProjectName, _
        destProject, _
        wgName, _
        wgPath, _
        sourceFile _
    )
    
    If blnCreateProject = False Then
        Exit Sub
    End If
    
    'Inventorのプロジェクトを作成
    blnCreateProject = SetupInventorProject( _
        targetProjectName, _
        destProject, _
        wgName, _
        wgPath, _
        sourceFile _
    )
    
    If blnCreateProject = False Then
        Exit Sub
    End If
   ' -------------------------------------


    
    Dim blnRunRule As Boolean
    blnRunRule = False
    
    Dim paramNames As Variant
    Dim paramValues As Variant
    
    ' ユーザーパラメータを設定する
    paramNames = Array("Height", "rack1Width", "Depth", "rack1Count", "isMultiRack")
    paramValues = Array(90, 90, 45, 4, False)

    blnRunRule = SetUserParamAndRunRule(destFile, paramNames, paramValues)
    
 ''   参考文献
''    https://help.autodesk.com/view/INVNTOR/2025/ENU/?guid=DesignProjects_Add
''    https://forums.autodesk.com/t5/inventor-programming-ilogic/change-active-project-file-via-net/td-p/7382988
''    https://help.autodesk.com/view/INVNTOR/2023/ENU/?guid=GUID-B093BC0E-5C79-4A26-A227-83D68D72F341
End Sub

Function SetupInventorProject(projectName As String, projectFolder As String, workgroupName As String, workgroupPath As String, sourceFilePath As String)
'------------------------------------------------------------------------------
' 関数名：SetupInventorProject
' 概要  ：指定された名前とパスでInventorのプロジェクトを作成し、
'         それをアクティブ化する。さらに、指定された作業グループ
'         検索パスをプロジェクトに追加し、指定されたファイルを
'         プロジェクトフォルダにコピーする。
'
' 引数  ：
'   projectName (String)      - 作成またはアクティブ化するプロジェクトの名前
'   projectFolder (String)    - プロジェクトの保存先フォルダのフルパス
'   workgroupName (String)    - 作業グループの表示名
'   workgroupPath (String)    - 作業グループ検索パスの実際のフォルダパス
'   sourceFilePath (String)   - プロジェクト内にコピーしたい元ファイルのフルパス
'
' 戻り値：あり
'
' 備考  ：
'   - Inventorが起動していない場合は処理を中断する。
'   - すでにプロジェクトが存在する場合は再作成せず、アクティブ化のみを行う。
'   - 作業グループパスは重複追加を避けるため、既存のものと照合してから追加。
'   - sourceFilePath のファイルが存在しない場合、コピーは実行されない。
'------------------------------------------------------------------------------
    
' 定数の手動定義（Single User プロジェクト = 12290）
    Const kSingleUserProject As Long = 12290
    Const kSingleUserMode As Long = 36353
    
    SetupInventorProject = False

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' Inventorアプリケーションに接続
    Dim invApp As Object
    On Error Resume Next
    Set invApp = GetObject(, "Inventor.Application")
    
    
    ' Inventorが起動していなければ起動する
    If invApp Is Nothing Then
        Set invApp = CreateObject("Inventor.Application") ' ←ここで起動
        If invApp Is Nothing Then
            MsgBox "Inventorの起動に失敗しました。", vbCritical
            SetupInventorProject = False
        Else
            invApp.Visible = True ' Inventorのウィンドウを表示
            DoEvents ' 起動処理を待つ場合
        End If
    End If
    On Error GoTo 0

    ' プロジェクトマネージャーの取得
    Dim projectManager As Object
    Set projectManager = invApp.DesignProjectManager   
    
    If Not fso.FolderExists(projectFolder) Then
        fso.CreateFolder projectFolder
        
        ' 新しいプロジェクトの作成
        Dim newProject As Object
        Set newProject = projectManager.DesignProjects.Add(kSingleUserMode, "プロジェクト名", projectFolder)
    End If
    
    ' 代わりに、指定したプロジェクトを名前で検索してアクティブ化
    Dim targetProject As Object
    Set targetProject = Nothing

    Dim proj As Object
    For Each proj In projectManager.DesignProjects
        If proj.name = projectName Then
            Set targetProject = proj
            Exit For
        End If
    Next
    
    If Not targetProject Is Nothing Then
        targetProject.Activate
    End If

    Dim activeProject As Object
    Set activeProject = projectManager.ActiveDesignProject

    
    ' ======= 作業グループ検索パスがすでに登録済みかチェック =======
    Dim existingPath As Variant
    Dim alreadyExists As Boolean
    alreadyExists = False

    For Each existingPath In activeProject.WorkgroupPaths
        If StrComp(existingPath.path, workgroupPath, vbTextCompare) = 0 Then
            alreadyExists = True
            Exit For
        End If
    Next

    ' ======= 未登録のときだけ追加 =======
    If Not alreadyExists Then
        activeProject.WorkgroupPaths.Add workgroupName, workgroupPath
    End If
    
    ' コピー先ファイルのパス（同じファイル名でコピー）
    Dim destFile As String
    destFile = projectFolder & "\product.iam"
    
    ' ファイルシステムオブジェクトを使ってコピー
    If fso.FileExists(sourceFilePath) Then
        ' ファイルコピー（上書き）
        fso.CopyFile sourceFilePath, destFile, True
    End If

    SetupInventorProject = True

End Function


'------------------------------------------------------------------------------
' 関数名：SetUserParamAndRunRule
' 概要  ：指定したInventorアセンブリファイルを開き、
'          引数で与えられた複数のユーザーパラメータに値を設定し、
'          iLogicルール "ルールの実行" を実行。
'          処理後、ドキュメントを保存して閉じる。
'
' 引数  ：
'   docPath (String) - 対象のInventorドキュメントファイルのフルパス
'   paramNames (Variant) - 設定対象のパラメータ名の配列
'   paramValues (Variant) - 設定値の配列（paramNamesと同じ順番・数）
'
' 戻り値：Boolean - 成功時はTrue、失敗時はFalse
'------------------------------------------------------------------------------
Public Function SetUserParamAndRunRule(docPath As String, paramNames As Variant, paramValues As Variant) As Boolean
    On Error GoTo ErrorHandler

    Dim invApp As Object
    Set invApp = GetObject(, "Inventor.Application")

    Dim doc As Object
    Set doc = invApp.Documents.Open(docPath)

    Dim userParams As Object
    Set userParams = doc.ComponentDefinition.Parameters.UserParameters

    Dim i As Long
    Dim param As Object
    For i = LBound(paramNames) To UBound(paramNames)
        On Error Resume Next
        Set param = userParams.item(paramNames(i))
        On Error GoTo ErrorHandler

        If param Is Nothing Then
            MsgBox "パラメータ '" & paramNames(i) & "' が見つかりません。", vbCritical
            GoTo Cleanup
        End If

        param.value = paramValues(i)
    Next i

    ' iLogicAutomation オブジェクトをアプリケーションから取得
    Dim iLogicAuto As Object
    Set iLogicAuto = invApp.ApplicationAddIns.ItemById("{3bdd8d79-2179-4b11-8a5a-257b1c0263ac}") _
                     .Automation
    
    ' モデルの更新（ローカル更新）
    doc.Update

    ' ルールを実行（ルール名は固定）
    iLogicAuto.RunRule doc, "ルールの実行"

    ' モデルの更新（ローカル更新）
    doc.Update
    
    ' ルールを実行（ルール名は固定）
    iLogicAuto.RunRule doc, "図面を開く"
    
    ' もし上のルールを実行して別のファイルを開いた直後に、最後に開かれたドキュメントを取得（＝新しいファイルと仮定）
    Dim drawingDoc As Object
    Set drawingDoc = invApp.Documents(invApp.Documents.count)
    iLogicAuto.RunRule drawingDoc, "ルールの実行"
   
    '=====================
    ' DWGとしてエクスポート
    '=====================
    ' 図面ファイルと同じフォルダに "export.dwg" を出力
    Dim dwgFolder As String
    Dim dwgFilePath As String
    
    dwgFolder = Left(drawingDoc.fullFileName, InStrRev(drawingDoc.fullFileName, "\"))
    dwgFilePath = dwgFolder & "export" & ".dwg"

    ' SaveAs メソッドを使用してエクスポート
    drawingDoc.SaveAs dwgFilePath, True
    
    
    '=====================
    ' PDFとしてエクスポート（警告非表示）
    '=====================
    Dim pdfFilePath As String
    pdfFilePath = dwgFolder & "export" & ".pdf"

    ' SaveAs メソッドを使用して PDF をエクスポート（警告表示なし）
    drawingDoc.SaveAs pdfFilePath, True

   ' ダイアログを抑制して保存（Save2 を使って強制保存）
    drawingDoc.Save2 True
    drawingDoc.Close
    
    doc.Save2 True
    doc.Close
    
    SetUserParamAndRunRule = True
    Exit Function

Cleanup:
    doc.Close
    SetUserParamAndRunRule = False
    Exit Function

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description, vbCritical
    SetUserParamAndRunRule = False
    
'    参考文献
'https://www.autodesk.com/jp/support/technical/article/caas/tsarticles/ts/13hZJX2ac2AMMaPc1aKDuP.html
End Function

using Inventor;
using System;
using System.IO;
using System.Reflection;
using System.Runtime.InteropServices;
using System.Windows.Forms;

namespace InventorAutomation
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            string destProject = @"C:\InventorProjects";
            string targetProjectName = "プロジェクト名";
            string wgName = "作業グループ";
            string wgPath = @"C:\作業グループパス";
            string sourceFile = @"C:\コピー元パス\product.iam";
            string destFile = System.IO.Path.Combine(destProject, "product.iam");

            // -------------------------------------
            // ▼ 注意 ▼
            // プロジェクトを新規作成してすぐにiLogicルールを実行すると、内部的にプロジェクト情報がまだ完全に反映されておらず、
            // iLogic実行時にエラーが発生することがあります。
            // そのため、最初に「SetupInventorProject」だけを実行して、プロジェクトの作成と初期設定を行います。
            // その後、もう一度「SetupInventorProject」＋「SetUserParamAndRunRule」を実行すると、iLogicルールも問題なく動作します。
            //
            // このように、プロジェクトの初回セットアップとルール実行は「2段階」に分けることで安定した動作が得られます。
            // -------------------------------------
            bool blnCreateProject = SetupInventorProject(
                targetProjectName,
                destProject,
                wgName,
                wgPath,
                sourceFile
            );

            if (!blnCreateProject) return;

            // 再度呼び出し（VBAと同じ動作）
            blnCreateProject = SetupInventorProject(
                targetProjectName,
                destProject,
                wgName,
                wgPath,
                sourceFile
            );

            if (!blnCreateProject) return;
            // -------------------------------------

            // ユーザーパラメータを設定する
            string[] paramNames = { "Height", "rack1Width", "Depth", "rack1Count", "isMultiRack" };
            object[] paramValues = { 90, 90, 45, 4, false };

            bool blnRunRule = SetUserParamAndRunRule(destFile, paramNames, paramValues);

            // 参考文献
            //  https://help.autodesk.com/view/INVNTOR/2025/ENU/?guid=DesignProjects_Add
            // https://forums.autodesk.com/t5/inventor-programming-ilogic/change-active-project-file-via-net/td-p/7382988
            // https://help.autodesk.com/view/INVNTOR/2023/ENU/?guid=GUID-B093BC0E-5C79-4A26-A227-83D68D72F341
        }

        /// <summary>
        /// 指定された名前とパスでInventorのプロジェクトを作成し、
        /// それをアクティブ化する。さらに、指定された作業グループ
        /// 検索パスをプロジェクトに追加し、指定されたファイルを
        /// プロジェクトフォルダにコピーする。
        /// </summary>
        /// <param name="projectName">作成またはアクティブ化するプロジェクトの名前</param>
        /// <param name="projectFolder">プロジェクトの保存先フォルダのフルパス</param>
        /// <param name="workgroupName">作業グループの表示名</param>
        /// <param name="workgroupPath"> 作業グループ検索パスの実際のフォルダパス</param>
        /// <param name="sourceFilePath">プロジェクト内にコピーしたい元ファイルのフルパス</param>
        /// <returns>あり</returns>
        /// 備考  ：
        ///   - Inventorが起動していない場合は処理を中断する。
        ///   - すでにプロジェクトが存在する場合は再作成せず、アクティブ化のみを行う。
        ///   - 作業グループパスは重複追加を避けるため、既存のものと照合してから追加。
        ///   - sourceFilePath のファイルが存在しない場合、コピーは実行されない。
        private bool SetupInventorProject(string projectName, string projectFolder, string workgroupName, string workgroupPath, string sourceFilePath)
        {

            try
            {
                const MultiUserModeEnum kSingleUserMode = MultiUserModeEnum.kSingleUserMode;

                // Inventorアプリケーションに接続
                Inventor.Application invApp;

                // Inventorが起動していなければ起動する
                SetupInventorProject(out invApp);

                // プロジェクトマネージャーの取得
                DesignProjectManager projectManager = invApp.DesignProjectManager;

                if (!Directory.Exists(projectFolder))
                {
                    // 新しいプロジェクトの作成
                    Directory.CreateDirectory(projectFolder);
                    DesignProject newProject = projectManager.DesignProjects.Add(
                        kSingleUserMode, projectName, projectFolder
                    );
                }

                // 代わりに、指定したプロジェクトを名前で検索してアクティブ化
                DesignProject targetProject = null;
                foreach (DesignProject proj in projectManager.DesignProjects)
                {
                    if (proj.Name == projectName)
                    {
                        targetProject = proj;
                        break;
                    }
                }

                if (targetProject != null)
                {
                    targetProject.Activate();
                }

                DesignProject activeProject = projectManager.ActiveDesignProject;

                // ======= 作業グループ検索パスがすでに登録済みかチェック =======
                bool alreadyExists = false;
                foreach (dynamic existingPath in activeProject.WorkgroupPaths)
                {
                    string path = existingPath.Path;
                    if (string.Equals(path, workgroupPath, StringComparison.OrdinalIgnoreCase))
                    {
                        alreadyExists = true;
                        break;
                    }
                }

                // ======= 未登録のときだけ追加 =======
                if (!alreadyExists)
                {
                    activeProject.WorkgroupPaths.Add(workgroupName, workgroupPath);
                }

                // コピー先ファイルのパス（同じファイル名でコピー）
                string destFile = System.IO.Path.Combine(projectFolder, "product.iam");

                // ファイルシステムオブジェクトを使ってコピー
                if (System.IO.File.Exists(sourceFilePath))
                {
                    System.IO.File.Copy(sourceFilePath, destFile, true);
                }

                return true;
            }
            catch (Exception ex)
            {
                MessageBox.Show("エラー: " + ex.Message);
                return false;
            }
        }

        /// <summary>
        /// 指定したInventorアセンブリファイルを開き、
        /// 引数で与えられた複数のユーザーパラメータに値を設定し、
        /// iLogicルール "ルールの実行" を実行。
        /// 処理後、ドキュメントを保存して閉じる。
        /// </summary>
        /// <param name="docPath">対象のInventorドキュメントファイルのフルパス</param>
        /// <param name="paramNames">設定対象のパラメータ名の配列</param>
        /// <param name="paramValues">設定値の配列（paramNamesと同じ順番・数）</param>
        /// <returns></returns>
        private bool SetUserParamAndRunRule(string docPath, string[] paramNames, object[] paramValues)
        {
            try
            {
                Inventor.Application invApp = (Inventor.Application)System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application");

                Document doc = invApp.Documents.Open(docPath);
                UserParameters userParams = ((AssemblyDocument)doc).ComponentDefinition.Parameters.UserParameters;

                for (int i = 0; i < paramNames.Length; i++)
                {
                    try
                    {
                        UserParameter param = userParams[paramNames[i]];
                        param.Value = paramValues[i];
                    }
                    catch
                    {
                        MessageBox.Show($"パラメータ '{paramNames[i]}' が見つかりません。", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error);
                        doc.Close(true);
                        return false;
                    }
                }
                
                // モデルの更新（ローカル更新）
                doc.Update();

                // iLogicAutomation オブジェクトを取得
                ApplicationAddIn iLogicAddin = invApp.ApplicationAddIns.ItemById["{3bdd8d79-2179-4b11-8a5a-257b1c0263ac}"];

                if (!iLogicAddin.Activated)
                {
                    iLogicAddin.Activate();
                }

                object iLogicAuto = iLogicAddin.Automation;

                // InvokeMember を使ってルールを実行
                iLogicAuto.GetType().InvokeMember(
                    "RunRule",
                    BindingFlags.InvokeMethod | BindingFlags.Public,
                    null,
                    iLogicAuto,
                    new object[] { doc, "ルールの実行" }
                );

                // モデルの更新（ローカル更新）
                doc.Update();

                // ルールを実行（ルール名は固定）
                iLogicAuto.GetType().InvokeMember(
                    "RunRule",
                    BindingFlags.InvokeMethod | BindingFlags.Public,
                    null,
                    iLogicAuto,
                    new object[] { doc, "図面を開く" }
                );

                // 最後に開いたドキュメントを取得（新しく開いたと仮定）
                DrawingDocument drawingDoc = null;
                int docCount = invApp.Documents.Count;
                Document latestDoc = invApp.Documents[docCount]; // 1-based index
                drawingDoc = latestDoc as DrawingDocument;

                if (drawingDoc == null)
                {
                    Console.WriteLine("DrawingDocument ではありません。");
                    return false;
                }

                // iLogicルール実行
                iLogicAuto.GetType().InvokeMember(
                    "RunRule",
                    BindingFlags.InvokeMethod | BindingFlags.Public,
                    null,
                    iLogicAuto,
                    new object[] { drawingDoc, "ルールの実行" }
                );

                // ファイルパス設定
                string fullPath = drawingDoc.FullFileName;
                string folderPath = System.IO.Path.GetDirectoryName(fullPath);
                string dwgFilePath = System.IO.Path.Combine(folderPath, "export.dwg");
                string pdfFilePath = System.IO.Path.Combine(folderPath, "export.pdf");

                // DWGエクスポート
                drawingDoc.SaveAs(dwgFilePath, true);

                // PDFエクスポート
                drawingDoc.SaveAs(pdfFilePath, true);

                // 保存してクローズ
                drawingDoc.Save2(true);
                drawingDoc.Close(true);
                doc.Save2(true);
                doc.Close(true);

                return true;
            }
            catch (Exception ex)
            {
                MessageBox.Show("ルール実行エラー: " + ex.Message);
                return false;
            }

            // 参考文献
            // https://forums.autodesk.com/t5/autodesk-community-tips-adnopun/inventor-2025de-net-frameworkwotagettonishitebirudoshitac/ta-p/13032752
        }

        /// <summary>
        /// Inventor アプリケーションオブジェクトを取得または起動するメソッド。
        /// 起動済みであれば既存のインスタンスに接続し、未起動であれば新しく起動する
        /// </summary>
        /// <param name="invApp">取得または起動した Inventor アプリケーションインスタンス</param>
        private void SetupInventorProject(out Inventor.Application invApp)
        {
            invApp = null;

            try
            {
                // 既に起動しているInventorに接続
                invApp = (Inventor.Application)Marshal.GetActiveObject("Inventor.Application");
            }
            catch (COMException)
            {
                // 起動していなければ新しく起動する
                try
                {
                    Type inventorAppType = Type.GetTypeFromProgID("Inventor.Application");
                    invApp = (Inventor.Application)Activator.CreateInstance(inventorAppType);

                    if (invApp != null)
                    {
                        invApp.Visible = true;
                    }
                }
                catch (Exception)
                {
                    MessageBox.Show("Inventorの起動に失敗しました。");
                }
            }

        }

    }
}