AutoCADマクロ屋本舗 掲示板

こんにちは。
AutoCAD Mechanical 2025で設計しています。
部品表（エンティティ・グループ・コード　ACMPARTLIST）で書かれた表を
AutoLISPでcsvファイルに抜き出したいのですが
なかなか出来ません。
部品表のダイアログボックスのある「書き出し」ではcsvファイルに書き出すことができるのですが
一回一回ファイルをオープンし部品表を開き、書き出しコマンドを実行するルーティンが面倒で
アプリを作りたいのですが。。。
もし、可能でしたらヒントでもいいので教えてください。
よろしくお願いいたします。

Mechanicalは、全く判りませんが、

複数のファイルを連続処理するにはAutoLISPだけでは無理なので、
スクリプトも併用しましょう。（VBAなら出来るかもしれない。知らんけど）

「部品表を開き、書き出しコマンドを実行するルーティン」
この作業は、マウスを使わずに、コマンドラインにキーボードから文字（コマンド）を入力するだけで実行できますか？

できるなら、その処理をスクリプトにすれば良いです。

コマンド入力だけでは無理であるなら、LISPを使って部品長の情報を抜き出すことが出来るか調べる。
抜き出せたなら、その情報ををテキストファイルに書き出す。
このLISPをスクリプトにして連続処理させる。

もしかしたら、簡単に出来る方法が有るのかもしれませんが、Mechanicalを持ってないのでゴメンナサイ。

VBAなら、こちらに参考になりそうなものがありました。
https://www.autodesk.com/jp/support/technical/article/caas/tsarticles/ts/3qvavl9J4BvU49XExKmYXM.html

VBAの使い方は、このあたりが詳しいかと
https://bimcim-kenkyujo.com/cad/autocad/vba/#outline_1__4

AutoCAD 用の Microsoft Visual Basic for Applications (VBA)モジュールはこちらから
https://www.autodesk.com/jp/support/technical/article/caas/tsarticles/tsarticles/JPN/ts/3kxk0RyvfWTfSfAIrcmsLQ.html

https://www.autodesk.com/jp/support/technical/article/caas/tsarticles/ts/3qvavl9J4BvU49XExKmYXM.html
ここのVBAコードをＡＩに頼んでautolispコードに移植してもらいました。動くのかは判りません。

(defun c:exportPartsListExcel ()
(setq BasePath "C:\\TEMP")
(setq BomName "MAIN")

(setq acadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))

;; SymbolBBMMgrを取得
(setq symBBmgr (vlax-invoke-method acadDoc 'GetInterfaceObject "SymBBAuto.McadSymbolBBMgr"))

;; McadBOMMgrを取得
(setq cadBOMmgr (vlax-get-property symBBmgr 'BOMMgr))

;; BOMNameのBOMTableが存在するかをチェック
(if (vlax-invoke-method cadBOMmgr 'BOMTableExists BomName)
(progn
;; BOMTableを取得
(setq cadBom (vlax-invoke-method cadBOMmgr 'GetBOMTableByName BomName))

;; パーツリストを取得
(setq partsList (vlax-get-property (vlax-get-property cadBom 'partLists) 'Item 0))

;; エクセル形式でエクスポート
(if partsList
(progn
(setq fileName (strcat BasePath "\\" (car (vl-string->list (vla-get-Name acadDoc) ".")) ".xls"))
(vlax-invoke-method cadBOMmgr 'ExportPartList 1 partsList fileName "MAIN" :vlax-true)
)
)
)
)
)

ろびゃんさん、LUNEさんお返事ありがとうございます。
ろびゃんさんからご案内いただきました
「部品表を開き、書き出しコマンドを実行するルーティン」ですが
書き出しコマンドですがキーボードから入力ができないようです。

LUNEさんから教えて頂きました
VBAのコードを実行したのですが
Set cadBOMmgr = symBBmgr.BOMMgr
の箇所でエラーとなりました。
実行時エラー'-2147721005(800401f3);
「ｱﾌﾟﾘｹｰｼｮﾝのロードに問題が発生しました」
何が原因がわかりますでしょうか。

あいにく、Mechanicalを持っていないので検証できないのですが、コードが掲載されているHPに記載のあった参照設定はされていますよね？

LUNEさんお返事ありがとうございます。
参照設定はしているのですが
エラーが発生してしまします。

[ツール]-[参照設定]からAutoDesk SymBBAuto 2021 Type Library、とコード掲載のHPにはありましたが、
バージョンは、お使いの2025に合わせて、AutoDesk SymBBAuto 2025 Type Library　ですよね？

また、同じPCに他のバージョンのmechanicalがインストールされてないですか？

もし、他のバージョンがインストールされているなら、
Set symBBmgr = acadDoc.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
の部分を
Set symBBmgr = acadDoc.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr.25")
にしてみてください。

LUNEさん、早々のお返事ありがとうございます。
＞バージョンは、お使いの2025に合わせて、AutoDesk SymBBAuto 2025 Type Library　ですよね？
はい。

＞また、同じPCに他のバージョンのmechanicalがインストールされてないですか？
されていません。

Set symBBmgr = acadDoc.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr.25")
に変更すると事実行できました。
どこをみれば「McadSymbolBBMgr.25」とわかるのでしょうか。

実行できたのなら、よかったです。

>どこをみれば「McadSymbolBBMgr.25」とわかるのでしょうか。
おそらく、レジストリのどこかを見れば分かるらしいですが、どの値なのかは私は分かりかねます。

私は、下記を参考にしました。
https://forums.autodesk.com/t5/autocad-mechanical-forum/autocad-mechanical-2025-error-when-instantiating-mcadsymbolbbmgr/td-p/12734138

LUNEさんご案内ありがとうございます。
紹介していただいたサイトを拝見しました。
英語でチョット面喰いましたが大変勉強になりました。
ありがとうございます。