選択セット名から形状セット作成 |
- 日時： 2008/06/05 16:41
- 名前： emily
|
| 本当は、形状セット作成から、更にgeometryを形状セットに移動すればいいのですが
取りあえず、途中まで。どなたか、後半が出来たら投稿してくださいナ
UWSCというフリーソフトだけで、EXCELのVBAのようなことをしてCATIAにアクセスし、選択セット名を抜き取ります。続けて、この名前を使って形状セット作成してます
UWSCのスクリプトは以下です。「うみうみ UWSC」で検索すればDLできます。（１MBくらい）
catia = GETACTIVEOLEOBJ( "catia.application")
part1 = catia.ActiveDocument.Part
print part1.name
hyBodies1 = part1.HybridBodies
ACW(GETID("CATIA V5 - [Part1]"),285,0,995,994,0)
MOUSEORG(GETID("CATIA V5 - [Part1]"))
BTN(LEFT,DOWN,132,33,300)
BTN(LEFT,UP,132,33,110)
BTN(LEFT,CLICK,202,344,300)
id1 = GETID("選択セットを編集")
itemCnt=GetItem(id1,ITM_LIST)
KBD(VK_ESC,DOWN,31) //"選択セットを編集"のウィンドを閉じる
KBD(VK_ESC,UP,40)
for i = 0 to itemCnt-1
setName = ALL_ITEM_LIST[i]
print setName
hyBody1 = hyBodies1.Add
hyBody1.Name = setName
next
print "fin"
まだまだ、キレイなソースにする余地は多いですが、それは諸兄の宿題・・・ということで・・
これだけで、メンドウな操作が自動化できますヨ |
|
|
