Đến nội dung


Hình ảnh
- - - - -

[Nhờ viết Lisp] : Vẽ sơ đồ thả neo tàu biển


  • Please log in to reply
5 replies to this topic

#1 trinhhoanghieu090

trinhhoanghieu090

    Edu level: li8

  • Members
  • PipPipPipPipPip
  • 309 Bài viết
Điểm đánh giá: 29 (tàm tạm)

Đã gửi 20 October 2014 - 12:06 PM

Dear các Bro!

 

Mời các bro xem trước bản vẽ đính kèm của em.

http://www.cadviet.c.../133631_mau.dwg

 

Đầu tiên em sẽ vẽ thủ công  trước hình tàu với hướng quay bất kỳ ( trong file mẫu là 235 độ - Hướng này là góc hợp bởi phương bắc thực với hướng mũi tàu ).

 

Các bro viết giúp em một cái lisp vẽ sơ đồ thả neo của tàu theo các bước:

- Chọn chế độ (vẽ 2 neo trước lái, vẽ 2 neo sau lái, vẽ cả 4 neo)

- Nhập hướng của tàu.

- Chọn vị trí bắt đầu  dây neo: (theo từng chế độ ở trên, lần lượt theo AP1, AP2, AS3, AS4).

- Nhập góc mở, chiều dài dây neo:

+ Nhập góc mở,  chiều dài 2 dây neo trước lái ( AP2 và AS4 ). Như trong file mẫu là 40 độ và 350 m. vì 2 thông số này giống nhau nên ta chỉ nhập một lần. Hoặc( Và):

+ Nhập góc mở và chiều dài 2 dây neo sau lái (AP1 và AS3). Như trong file mẫu là 40 độ và 350 m. vì 2 thông số này giống nhau nên ta chỉ nhập một lần.

-   Nhập cỡ chữ

-   Vẽ hình và ghi các thông số liên quan với cỡ chữ vừa nhập ở trên (như file kết quả).

Hoàn thành lệnh.

 

Tiếp theo các bác có thể viết giúp em một thêm lisp ghi tọa độ như file đính kèm với  để hoàn thiện bản vẽ sơ đồ neo.

 

Em cảm ơn các pro.


  • 0

#2 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 20 October 2014 - 03:26 PM

Dear các Bro!

 

Mời các bro xem trước bản vẽ đính kèm của em.

http://www.cadviet.c.../133631_mau.dwg

 

Đầu tiên em sẽ vẽ thủ công  trước hình tàu với hướng quay bất kỳ ( trong file mẫu là 235 độ - Hướng này là góc hợp bởi phương bắc thực với hướng mũi tàu ).

 

Các bro viết giúp em một cái lisp vẽ sơ đồ thả neo của tàu theo các bước:

- Chọn chế độ (vẽ 2 neo trước lái, vẽ 2 neo sau lái, vẽ cả 4 neo)

- Nhập hướng của tàu.

- Chọn vị trí bắt đầu  dây neo: (theo từng chế độ ở trên, lần lượt theo AP1, AP2, AS3, AS4).

- Nhập góc mở, chiều dài dây neo:

+ Nhập góc mở,  chiều dài 2 dây neo trước lái ( AP2 và AS4 ). Như trong file mẫu là 40 độ và 350 m. vì 2 thông số này giống nhau nên ta chỉ nhập một lần. Hoặc( Và):

+ Nhập góc mở và chiều dài 2 dây neo sau lái (AP1 và AS3). hư trong file mẫu là 40 độ và 350 m. vì 2 thông số này giống nhau nên ta chỉ nhập một lần.

-   Nhập cỡ chữ

-   Vẽ hình và ghi các thông số liên quan với cỡ chữ vừa nhập ở trên (như file kết quả).

Hoàn thành lệnh.

 

Tiếp theo các bác có thể viết giúp em một thêm lisp ghi tọa độ như file đính kèm với  để hoàn thiện bản vẽ sơ đồ neo.

 

Em cảm ơn các pro.

Hề hề hề,

Tại sao phải vẽ thử công tàu và hướng tàu ban đầu??? Sao không tạo block các đối tượng này và mỗi lần cần vẽ chỉ việc insert nó vào bản vẽ là Ok.

Các tọa độ hiển thị như trên bản vẽ của bạn được tính toán theo chuẩn nào vậy??? Cách chuyển đổi từ hệ tọa độ của CAD sang hệ tọa độ như trên bản vẽ của bạn ???


  • -1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3 trinhhoanghieu090

trinhhoanghieu090

    Edu level: li8

  • Members
  • PipPipPipPipPip
  • 309 Bài viết
Điểm đánh giá: 29 (tàm tạm)

Đã gửi 20 October 2014 - 10:12 PM

Hề hề hề,

Tại sao phải vẽ thử công tàu và hướng tàu ban đầu??? Sao không tạo block các đối tượng này và mỗi lần cần vẽ chỉ việc insert nó vào bản vẽ là Ok.

Các tọa độ hiển thị như trên bản vẽ của bạn được tính toán theo chuẩn nào vậy??? Cách chuyển đổi từ hệ tọa độ của CAD sang hệ tọa độ như trên bản vẽ của bạn ???

 

Hi hi, bác phamthanhbinh nói chí phải, nhưng năng lực vẽ cad có hạn em chỉ block các đối tượng được trong một bản vẽ riêng lẻ và insert khi cần. Còn vụ insert như bác nói thì em chưa làm được, mong bác chỉ giáo. 

Còn vụ các tọa độ hiển thị như trên bản vẽ thì đó chính là tọa độ trong hệ tọa độ mặc định autocad, giống như khi mình dùng lệnh "id" đó bác.

thanks bác phamthanhbinh đã quan tâm.

 

Nhân tiện để viết autolisp một lần không phải sửa đi sửa lại, bác viết giúp em thêm một chế độ vẽ:

- Chọn chế độ (vẽ 2 neo trước lái, vẽ 2 neo sau lái, vẽ cả 4 neo, vẽ 1 neo bất kỳ).

Với 3 chế độ đầu autolisp vẫn chạy như trên, riêng nếu chọn vẽ 1 neo bất kỳ thì autolisp sẽ thực hiện theo các bước:

-Chọn vị trí bắt đầu dây neo

- Nhập hướng neo, chiều dài dây neo (Hướng dây neo là góc hợp bởi hướng bắc theo ngược chiều kim đồng hồ đến dây neo như file mẫu 2 http://www.cadviet.c...33631_mau_2.dwg)

- Nhập cỡ chữ

- Vẽ hình và ghi các thông số liên quan với cỡ chữ vừa nhập ở trên (như file kết quả mẫu 2).

Bác giúp em vụ này nha em cảm ơn bác lắm lắm.

 


  • 0

#4 trinhhoanghieu090

trinhhoanghieu090

    Edu level: li8

  • Members
  • PipPipPipPipPip
  • 309 Bài viết
Điểm đánh giá: 29 (tàm tạm)

Đã gửi 21 October 2014 - 09:25 PM

Các bác vào giúp em với
  • 0

#5 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6007 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 21 October 2014 - 11:13 PM

Hi hi, bác phamthanhbinh nói chí phải, nhưng năng lực vẽ cad có hạn em chỉ block các đối tượng được trong một bản vẽ riêng lẻ và insert khi cần. Còn vụ insert như bác nói thì em chưa làm được, mong bác chỉ giáo. 

Còn vụ các tọa độ hiển thị như trên bản vẽ thì đó chính là tọa độ trong hệ tọa độ mặc định autocad, giống như khi mình dùng lệnh "id" đó bác.

thanks bác phamthanhbinh đã quan tâm.

 

Nhân tiện để viết autolisp một lần không phải sửa đi sửa lại, bác viết giúp em thêm một chế độ vẽ:

- Chọn chế độ (vẽ 2 neo trước lái, vẽ 2 neo sau lái, vẽ cả 4 neo, vẽ 1 neo bất kỳ).

Với 3 chế độ đầu autolisp vẫn chạy như trên, riêng nếu chọn vẽ 1 neo bất kỳ thì autolisp sẽ thực hiện theo các bước:

-Chọn vị trí bắt đầu dây neo

- Nhập hướng neo, chiều dài dây neo (Hướng dây neo là góc hợp bởi hướng bắc theo ngược chiều kim đồng hồ đến dây neo như file mẫu 2 http://www.cadviet.c...33631_mau_2.dwg)

- Nhập cỡ chữ

- Vẽ hình và ghi các thông số liên quan với cỡ chữ vừa nhập ở trên (như file kết quả mẫu 2).

Bác giúp em vụ này nha em cảm ơn bác lắm lắm.

Hề hề hề,

1/- Bạn vẻ một tàu và các điểm chuẩn của thân tàu, của vị trí nối neo trên thân tàu, mũi tên chỉ hướng tàu, sau đó sử dụng lện wblock để tạo nó thành một file đã block với một tên do bạn đặt và lưu lại vào thư mục của bạn.

Sau đó mỗi lần dùng bạn sử dụng lệnh insert như bình thường nhưng chọn browse để tìm tới file này và insert nó như việc bạn insert các block trong cùng bản vẽ.

2/- Mình chưa rõ cách xác định tọa độ của bạn vì theo mình biết thì hệ tọa độ trong Cad đâu có nói tới Northing và Easting như bạn  thể hiện. Gốc tọa độ theo hệ của bạn được xác định thế nào???

3/- Việc viết lisp theo yêu cầu của bạn không quá khó, nhưng vì mình chưa hiểu rõ nên chưa thể giúp bạn. Bạn hãy giải thích kỹ để mình hiểu mới có thể làm đúng yêu cầu của bạn được.


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#6 trinhhoanghieu090

trinhhoanghieu090

    Edu level: li8

  • Members
  • PipPipPipPipPip
  • 309 Bài viết
Điểm đánh giá: 29 (tàm tạm)

Đã gửi 22 October 2014 - 10:06 AM

Hề hề hề,

1/- Bạn vẻ một tàu và các điểm chuẩn của thân tàu, của vị trí nối neo trên thân tàu, mũi tên chỉ hướng tàu, sau đó sử dụng lện wblock để tạo nó thành một file đã block với một tên do bạn đặt và lưu lại vào thư mục của bạn.

Sau đó mỗi lần dùng bạn sử dụng lệnh insert như bình thường nhưng chọn browse để tìm tới file này và insert nó như việc bạn insert các block trong cùng bản vẽ.

2/- Mình chưa rõ cách xác định tọa độ của bạn vì theo mình biết thì hệ tọa độ trong Cad đâu có nói tới Northing và Easting như bạn  thể hiện. Gốc tọa độ theo hệ của bạn được xác định thế nào???

3/- Việc viết lisp theo yêu cầu của bạn không quá khó, nhưng vì mình chưa hiểu rõ nên chưa thể giúp bạn. Bạn hãy giải thích kỹ để mình hiểu mới có thể làm đúng yêu cầu của bạn được.

thanks bác Phamthanhbinh, vụ block nhờ có bác em đã thông suốt và thành công.

Vụ toạ độ thì "Northing" chính là giá trị Y trong autocad, "Easting" là giá trị X trong autocad. Gốc toạ độ tại điểm gốc O(0,0) mặc định của autocad trong hệ toạ độ mặc định UCS World.

Còn vụ giải thích thì em xin phép được làm trong file word

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


  • 0