@ME: Chú Huy Thành kêu em trả lời câu hỏi này cho anh ME, chứ ổng không rành mấy cái vụ Macro.
Các làm như sau :
1) Đầu tiên anh mổ một file part tên gì đó bằng CATIA thí dụ như part1 chẳng hạn.
2) Tính toán ra bảng Excel các điểm X,Y,Z rồi dùng VBA edit và cho chạy code dưới đây thì nó tự vẽ ra điểm anh cần.
Chú ý , trong EXCEL anh đặt sẵn
hàng thứ 2 n X1 Y1 Z1
hàng thứ 3 n 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
................................
Để hiểu rõ hơn thì anh vào trong phần help của CATIA, chọn mục Search tìm mục này "Creating Elements From An External File".
Nếu không có phần Help cài sẵn trong máy thì vào chỗ link này:
http://www.kxcad.net/catia/B17doc/English/online/CATIA_default.htm