Dựng curve từ các điểm 3D?

  • Thread starter ME
  • Ngày mở chủ đề

ME

Active Member
Author
Tôi muốn tạo một 3D curve bằng cách vẽ một đường cong qua nhiều điểm trong không gian. Tọa độ r, theta,z (hệ tọa độ trụ) của các điểm này có trong 1 file Excel. Có ai biết vẽ cái này không chỉ cho tôi với? Tôi đang xài Catia V5 R17
Cám ơn nhiều!
 
thầy ME chuyển hướng nghiên cứu vấn đề ứng dụng bảng số exel sang CATIA rồi ạh lần trước hình như thầy đã vẽ thành công vẽ mặt trên ProE rồi phải không ạh
Em đang học mò mẫm CATIA mà chưa biết từ đâu bên box catia có vẻ vắng khách quá!
 

ME

Active Member
Author
ProE thì vô tư rồi. Bây giờ vẽ thử trên Catia. Hơn hai năm rồi không đụng tới Catia nên quên sạch. Với lại lúc trước cũng chỉ biết sơ qua Catia thôi. ;D
 
Q

QUE_THANH

@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
 

ME

Active Member
Author
Cám ơn QT và anh Huythanh nhiều. Để ME thử xem.
 
N

nmtoan244

có anh em nào có tài liệu về phần gia công tiện trên catia không cho em với. nêu có có thể send cho em theo địa chỉ này được không ạ nmtoan244@yahoo.com . cám ơn các bác nhiều
 
V

vongocsanh

Chèn điểm vào CATIA bằng file Exel viết sẵn.

Hi! mình lang thang trên mạng tìm thấy file Exel để chèn điểm vào CATIA rất hay mà không cần phải hiểu về Macro. Chỉ việc:

  • mở file Exel đã viết sẵn( Click download file).
  • nhập tọa độ điểm theo các cột.
  • nhấn Exportar a CATIA là ok( với điều kiện là đã mở phần mềm CATIA)
 
Q

quangbkhn

bạn cho xin pass đi
 
Last edited by a moderator:
Tôi muốn tạo một 3D curve bằng cách vẽ một đường cong qua nhiều điểm trong không gian. Tọa độ r, theta,z (hệ tọa độ trụ) của các điểm này có trong 1 file Excel. Có ai biết vẽ cái này không chỉ cho tôi với? Tôi đang xài Catia V5 R17
Cám ơn nhiều!
Trong Catia em đã làm được cái này rồi nhưng mà bận quá với lại up mãi không được mấy cái hình lên được.em sẽ cố gắng sớm đưa lên để mọi người cùng nghiên cứu.
 
Để đưa ảnh lên diễn đàn thì cậu phải up ảnh lên một trang web trung gian nào đó để lấy IMG CODE gán sang diễn đàn. Bạn up lên trang dưới đây chẳng hạn.
http://photobucket.com
 
Top