Đến nội dung


Hình ảnh
- - - - -

Nhờ Viết Lisp Vẽ Vector


  • Please log in to reply
8 replies to this topic

#1 tamthat

tamthat

    biết vẽ arc

  • Members
  • PipPip
  • 42 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 05 September 2015 - 03:58 PM

Em chưa tiếp cận đến lập trình autolisp nhưng thường xuyên sử dụng các lisp của các anh chị trong diễn đàn. Hôm nay em có bài toán, nhờ các anh chị viết giúp một lisp phục vụ nhu cầu của em, mong các anh chị giúp đỡ.

Mong muốn kết quả hiển thị như sau:

3450_ve_vector.jpg

Dữ liệu đầu vào:

 

3450_du_lieu_dau_vao.jpg

 

Trong đó, x,y là tọa độ các điểm trên mặt cắt. Tên của từng mặt cắt thể hiện ở cột 6.

L là chiều dài của vector.

A là góc của trục Oy với vector theo chiều kim đồng hồ. Vector có điểm đầu là số thứ tự. Nếu điểm đầu và điểm cuối trùng nhau, thì góc được hiển thị là 0 (hoặc 90 độ - cái này theo quy ước).

Yêu cầu:

Sử dụng dữ liệu đầu vào để vẽ được hiển thị hình ảnh như trên. Vẽ đường Pline nối các điểm đầu của các vector được quy định cùng trên một mặt cắt. Các điểm cuối của vector trên cùng mặt cắt.

Giá trị hiển thị chiều dài và đường Pline nối giữa các điểm cuối của vector đưa vào 1 layer riêng.

VD lệnh: vvt

-          Hiện ra bảng lựa chọn file excel hoặc file text (là file dữ liệu đầu vào)

-          Chọn hệ số tỷ lệ vector:

-          Chọn chiều cao text hiển thị:

-          End.

Rất mong được các anh chị trong diễn đàn ra tay giúp đỡ. Em xin chân thành cảm ơn.

 

Đây là file word (em đã thể hiện chi tiết yêu cầu).

http://www.cadviet.c...o_viet_lisp.rar


  • -2

#2 tamthat

tamthat

    biết vẽ arc

  • Members
  • PipPip
  • 42 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 05 September 2015 - 09:39 PM

Mong các anh chị trong diễn đàn tham gia giúp đỡ với ạ.


  • 0

#3 tamthat

tamthat

    biết vẽ arc

  • Members
  • PipPip
  • 42 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 07 September 2015 - 08:10 AM

Mong bác Nguyen Hoanh và các bác trong diễn đàn vào giúp đỡ em giải quyết bài toán với.


  • 0

#4 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1431 Bài viết
Điểm đánh giá: 1425 (rất tốt)

Đã gửi 07 September 2015 - 09:13 AM

........................................

VD lệnh: vvt

-          Hiện ra bảng lựa chọn file excel hoặc file text (là file dữ liệu đầu vào)

-          Chọn hệ số tỷ lệ vector:

-          Chọn chiều cao text hiển thị:

-          End.

Rất mong được các anh chị trong diễn đàn ra tay giúp đỡ. Em xin chân thành cảm ơn.

 

Đây là file word (em đã thể hiện chi tiết yêu cầu).

http://www.cadviet.c...o_viet_lisp.rar

Đưa file dữ liệu đầu vào (txt hay excel) và file CAD đã hoàn thành để đối chiếu


  • 1

#5 tamthat

tamthat

    biết vẽ arc

  • Members
  • PipPip
  • 42 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 07 September 2015 - 10:13 AM

Đưa file dữ liệu đầu vào (txt hay excel) và file CAD đã hoàn thành để đối chiếu

Vâng, em xin gửi các bác. 

Đây là file excel và file cad của em ạ:

http://www.cadviet.c...0_ve_vector.rar

Mong các bác giúp đỡ


  • 1

#6 tamthat

tamthat

    biết vẽ arc

  • Members
  • PipPip
  • 42 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 07 September 2015 - 08:20 PM

Mong các bác giúp đỡ bài toán của em với. 


  • 0

#7 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1431 Bài viết
Điểm đánh giá: 1425 (rất tốt)

Đã gửi 08 September 2015 - 09:06 AM

Bạn dùng thử lisp DrawVector 

 

chú ý : do đọc file excel có phần phức tạp hơn, nên tôi chuyển data qua file CSV (xem file đính kèm).

các cột dữ liệu phân cách nhau bằng dấu phẩy

 

tên lệnh : DrawVector

http://www.cadviet.c..._drawvector.zip


  • 1

#8 linhdotsb

linhdotsb

    Chưa sử dụng CAD

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

Đã gửi 08 September 2015 - 09:45 AM

http://www.cadviet.c...dlay_cao_do.lsp

lisnhờ các bác sửa dùm em cái list lấy cao độ này với. em dùng tren autocad 2007 thì ok. còn dùng trên autocad 2015 thi không được.


  • -1

#9 tamthat

tamthat

    biết vẽ arc

  • Members
  • PipPip
  • 42 Bài viết
Điểm đánh giá: -1 (bình thường)

Đã gửi 08 September 2015 - 10:41 AM

Bạn dùng thử lisp DrawVector 

 

chú ý : do đọc file excel có phần phức tạp hơn, nên tôi chuyển data qua file CSV (xem file đính kèm).

các cột dữ liệu phân cách nhau bằng dấu phẩy

 

tên lệnh : DrawVector

http://www.cadviet.c..._drawvector.zip

Tuyệt vời quá bác ơi. Bác giúp em thêm phần chọn tỷ lệ chiều dài cho vector và chiều cao chữ trước khi xuất ra kết quả được không ạ. Cảm ơn bác rất nhiều.


  • 0