新しいウィンドウで開く（マクロ）

<CATIA V5 BBS TIPS & USAGE

TOP_PAGE > 記事閲覧

新しいウィンドウで開く（マクロ）

日時： 2006/12/19 08:02

名前： emily

ショートカットの設定　たぁ
内容：
既にショートカットをいくつか設定はしているのですが、どうしても設定が出来ない物があります。
何故かと言うとコマンドがall　comand　の中を見てもないのです。
この場合どのようにしたらショートカットを設定出来るのでしょうか。

対策：
匿名さんの投稿＋emilyアレンジによる合作ですが

Language="VBSCRIPT"
Sub CATMain()
Dim InputDocType(0) : InputDocType(0) = "AnyObject"
Set SEL1 = CATIA.ActiveDocument.Selection
if SEL1.count＜＞1 then
SEL1.Clear
Result = SEL1.SelectElement2(InputDocType, "Sel Sub Part // [Esc]", True )
If Result ＜＞ "Normal" Then Exit Sub
end if
CATIA.StartCommand("新しいウィンドウで開く") ' "open in new window" 英語版
End Sub
[ ＜＞は半角に変更してください。]
というマクロをあらかじめ作成しておいて、このマクロをショートカットに登録すればOKですヨ。

Page: 1 |