Đến nội dung


Hình ảnh
- - - - -

(Xin Lisp) Xuất tọa độ của mặt cong 3D từ file *.txt


  • Please log in to reply
11 replies to this topic

#1 tran1804

tran1804

    biết zoom

  • Members
  • Pip
  • 11 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 04 February 2015 - 11:13 PM

Xin chào các bạn!

Mình muốn hỏi cách xuất tọa độ các điểm của mặt cong 3D lên màn hình Cad 2007 từ file *.txt và nối các điểm đó lại với nhau thì viết chương trình Visual Lisp như thế nào. Ai có code cho mình xin với. Xin cảm ơn!

Tọa độ điểm là:

http://www.cadviet.c...4/139352_3d.txt

 x           y          z

-3.000 0.000 9.000
-6.000 7.000 -6.000
-4.000 14.000 -166.000
-3.000 23.000 -497.000
112
-7.000 27.000 -653.000
3.000 0.000 9.000
1.000 7.000 -41.000
2.000 15.000 -206.000
3.000 22.000 -453.000
1.000 29.000 -811.000
12.000 -2.000 138.000
8.000 5.000 44.000
9.000 13.000 -75.000
10.000 20.000 -280.000
9.000 25.000 -519.000
17.000 0.000 289.000
14.000 6.000 166.000
15.000 14.000 43.000
16.000 21.000 -164.000
15.000 27.000 -477.000
23.000 3.000 523.000
21.000 8.000 385.000
23.000 16.000 289.000
24.000 23.000 70.000
22.000 30.000 -386.000
31.000 2.000 959.000
30.000 8.000 844.000
29.000 15.000 631.000
30.000 21.000 480.000
31.000 26.000 311.000

 

139352_3d.jpg


  • 0

#2 tran1804

tran1804

    biết zoom

  • Members
  • Pip
  • 11 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 05 February 2015 - 08:55 PM

Có bạn nào viết code ko ạ? Cho mình xin với!
  • 0

#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5453 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 05 February 2015 - 09:51 PM

Từ 1 file txt gồm các thành phần X, Y, Z xuất thành các điểm 3D trên cad: dễ.

Nối các điểm 3D lại với nhau: vừa dễ vừa khó.

Dễ: nếu nối vô tội vạ, bất cứ 2 điểm nào cũng nối với nhau.

Khó: nếu chỉ nối từng cặp thỏa mãn một điều kiện nào đó, mà điều kiện này thì bạn không nêu lên.

Xuất tọa độ các điểm đỉnh của 1 mặt 3D ra file là bài toán thuận nên dễ.

Nối các tọa độ thành 1 mặt 3D là bài toán ngược, khó, do nó có rất nhiều cách nối để tạo thành nhiều mặt 3D khác nhau.

Hình như bạn đang nhầm, vì quan hệ này không phải là 1 ánh xạ 1 đối 1.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#4 tran1804

tran1804

    biết zoom

  • Members
  • Pip
  • 11 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 05 February 2015 - 10:06 PM

Cảm ơn bạn đã trả lời!
Bài toán đặt ra là xuất ra được các toạ độ, sau đó nối các điểm lại với nhau như hình mà mình post lên đó, đó là kết quả của bài toán. Mình ko biết viết là gì để xuất ra đc như vậy! Mong bạn bớt chút tgian viết dùm mình đc ko? Mình cũng vừa mới nghiên cứu lisp để phục vụ cho học tập nghiên cứu! Cảm ơn bạn!
  • 0

#5 tran1804

tran1804

    biết zoom

  • Members
  • Pip
  • 11 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 05 February 2015 - 10:12 PM

Mình dùng hàm Open để mở file txt mà ko đc! Chắc mình vừa mới sử dụng nên chưa đúng!
  • 0

#6 tran1804

tran1804

    biết zoom

  • Members
  • Pip
  • 11 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 05 February 2015 - 10:17 PM

Cách nối các điểm có thể theo 2 cách:
1) các điểm liên tiếp nhau (giống song cửa)
2) nối 4 điểm gần nhau nhất (giống như mắt lưới)
  • 0

#7 tran1804

tran1804

    biết zoom

  • Members
  • Pip
  • 11 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 05 February 2015 - 10:31 PM

Đúng là bài toán này vừa có cả bài toán thuận và bài toán nghịch như bạn nói!
Bạn có thể viết riêng cho mình từng bài toán được ko?
  • 0

#8 tran1804

tran1804

    biết zoom

  • Members
  • Pip
  • 11 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 05 February 2015 - 10:33 PM

Có thể mình chưa hiểu, mong bạn chỉ giáo!
  • 0

#9 tran1804

tran1804

    biết zoom

  • Members
  • Pip
  • 11 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 05 February 2015 - 10:35 PM

Bài toán này mình lấy ra từ 1 bài báo khoa học ở việt nam, chắc làm được người ta mới cho đăng chứ!
  • 0

#10 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5453 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 05 February 2015 - 10:36 PM

Cái này tôi chịu! Xuất cad sang file thì khả dĩ, còn xuất file sang cad thì không biết quy luật tôi không "nối" được.


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#11 tran1804

tran1804

    biết zoom

  • Members
  • Pip
  • 11 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 05 February 2015 - 10:43 PM

Vâng! Cảm ơn bạn đã quan tâm!
  • 0

#12 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5453 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 05 February 2015 - 10:50 PM

Hy vọng có dịp giúp bạn lần sau, ở 1 chủ đề rõ ràng hơn!


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.