EXCELのVBAでCATIAの点を作成する |
- 日時： 2006/01/31 08:41
- 名前： emily
|
| CATIAでは新規パートだけを開いておく。EXCELのVBAで次のコードを作り実行すると、点ができます。
EXCELでは
２行目 ｎ X1 Y1 Z1
３行目 ｎ X2 Y2 Z2
というようにデータを用意しておくこと。
Sub test_toV5()
a = ActiveSheet.Cells(2, 2).Value
MsgBox a & " macro now running.."
Set xSheet1 = ActiveSheet
Set CATIA = GetObject(, "CATIA.Application")
Set part1 = CATIA.ActiveDocument.Part
Set hyBodies1 = part1.HybridBodies
Set hyBody1 = hyBodies1.Add
hyBody1.Name = "test_from_EXCEL"
Set hybridShapeFactory1 = part1.HybridShapeFactory
i = 2 '＜＞は半角に変えて下さい
Do While xSheet1.Cells(i, 2).Value ＜＞ ""
XValue = xSheet1.Cells(i, 2).Value
YValue = xSheet1.Cells(i, 3).Value
ZValue = xSheet1.Cells(i, 4).Value
Set PT1 = hybridShapeFactory1.AddNewPointCoord(XValue, YValue, ZValue)
hyBody1.AppendHybridShape PT1
i = i + 1
Loop
part1.Update
End Sub
(*)尚、このコードはここなさんのとこで見たものを少しアレンジしたものです。 |
|
|
