|
|
Flawlessさんありがとうございます。
emilyさん
ありがとうございます。
下記に現在V4用で使っているマクロを記述しました。
マクロにお詳しい方に見られる『プッ！』って笑われるかもしれない
ヘッポコマクロですが・・・
このマクロを動かすには2つのPOINT(点)の座標値が必要です。
まず
バッチでｆｔｐを使ってV4-CATIA(OS=AIX)のPOINT(テキストファイル)をPCに転送します。
VBAマクロは1つ目のPOINTの座標をエクセルの
X座標値はB25セルに
Y座標値はC25セルに
Z座標値はD25セルに
そして2つ目のPOINTの座標を
X座標値はB26セルに
Y座標値はC26セルに
Z座標値はD26セルに
貼り付けていくってゆう単純なマクロです。
この後VBAで計算マクロがあるのですが
ここは現行のままで変更する必要が無いので
ここには記述しません。
Sub Auto_open()
'
' Macro1 Macro
'バッチを動かす
Dim oShell As Object
Set oShell = CreateObject("WSCript.shell")
oShell.Run "COMMAND.COM /C C:\PRINTa.bat", 7, True
Set oShell = Nothing
'
ChDir "C:\tmp"
Workbooks.OpenText FileName:="C:\tmp\print", StartRow:=1, DataType:= _
xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab _
:=True, Semicolon:=True, Comma:=True, Space:=True, Other:=False, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1))
Range("E8,H8,K8,E13,H13,K13").Select
Range("K13").Activate
Selection.Copy
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 211.75
.Left = 10
End With
Windows("a-ana.xls").Activate
Range("B25").Select
ActiveSheet.Paste
Windows("print").Activate
With ActiveWindow
.Top = 151
.Left = -2.75
End With
ActiveWindow.Close
ActiveWindow.WindowState = xlMaximized
・
・
・
・
・
POINTファイル(テキストファイル)の内容は下記のとうりです。
************************************ ANALYSIS **********************************
================================================================================
POINT : *PT528
COORDINATES : X = -145.57990 Y = 17.54851 Z = -59.84399
================================================================================
POINT : *PT527
COORDINATES : X = -140.66988 Y = 21.03902 Z = -99.69140
|
modelはCATIA V4形式のファイルですよ。CATIA(V4,V5)以外のCADでは、まず開けないと思いますが?