Egg's Blog: VBAをコマンド登録 & メニュー作成

C : VBA　　December 28, 2005

作成したVBA（dvb）をコマンドとして実行できるように登録

マクロ内に
^c^c(vl-vbarun "dvbファイル名!マクロ名")
という方法がある

ここでは少々面倒だがあえて
メニューを作成しコマンドとして登録してみる。

１、VBAファイル（SampleProject.dvb）をフォルダに保存
（例、d:\acCustom）

２、AutoCADからパスを通しておく
ファイルを相対的に利用できるようにする為です。
「ツール」-「オプション」　「ファイル」タブ
「サポートファイルの検索パス」を選択
「追加」をクリック、「参照」をクリックフォルダを選択します。

３、メニューの作成
部分CUIファイルを作成：「accustom.cui」
ツールバー　：「MyTools」
名前　　　　　：「Sampleコマンド」
コマンド　　　：「csample」
アイコン　　　：「csample.BMP」として登録

「ツール」-「メニュー」-「インターフェイス」

注）コマンドを新規作成した時は「acad」メニューに作成されます。
この後、別のメニューにドラッグすると２つのコマンドが作成されてしまいます。
「acad」メニューにできたコマンドは削除しておきましょう。

４、mnlファイルの作成
コマンドとして利用できるようにLispで登録
mnlはこのメニューがロードされた時に自動的に読込まれるファイル。

メモ帳で
mnlファイルを作成：「accustom.mnl」

dvbファイル

Posted by m_eguchi at December 28, 2005 10:17 PM

トラックバックURL

このエントリーのトラックバックURL:
http://www.kkkxcec.com/supportwlog/mt-tb.cgi/54

(defun c:csample()
(vl-vbarun "SampleProject.dvb!Example_AddCircle")
(princ)
)

とあるが、
エラー処理に問題があると
実行後 FileDia が「0」になってしまう時がある？？
ので、
「(setvar "filedia" 1)」を追加しておく

(defun c:csample()
(vl-vbarun "SampleProject.dvb!Example_AddCircle")
(setvar "filedia" 1) ;;;追加
(princ)
)

詳しく解かる方いませんかー