[Yêu cầu] Nhờ giúp lisp hoán đổi vị trí của 2 block

[BuiHuuNghia 1]

http://www.cadviet.com/upfiles/3/127110_hoan_doi_block.dwg

[Doan Van Ha 3.202]

Bạn thử định nghĩa khái niệm "hoán đổi vị trí của 2 block" một cách rõ ràng, rành mạch nhất được không?

Xem hình thì thấy khái niệm quá mông lung!

[BuiHuuNghia 1]

Sory về sự cẩu thả của mình. Lisp mình cần giúp dùng để thay thế cho các thao tác trong hình 3 bên dưới:

-Trong hình 1 có 2 block khác nhau (rotation của cả 2 block đều bằng 0) và 1 đường polyline.

-Trong hình 2, mình đã xoay block 1 (nằm bên trái bản vẽ, rotation = 270 độ), block 2 (rotation = 180 độ) rồi đặt lên đường polyline.

-Ở hình 3, mình muốn block 1 có rotation là 180 độ và nằm ở vị trí của block 2 trong hình 2. Còn block 2 thì có rotation là 270 độ và nằm ở vị trí của block 1 trong hình 2 (bình thường thì mình phải rotate 2 block, đánh dấu vị trí 2 block rồi đổi vị trí cho nhau).

 

Hình 1. Block 1 (bên trái, có rotation = 0), block 2 (ở giữa, có rotation = 0) và một đường polyline (bên phải)

 

 

Hình 2. Xoay block 1 (rotation = 270 độ) và đặt lên phần thẳng đứng của polyline cách góc của polyline 1'6" (1 feet 6 inch), Xoay block 2 (rotation = 180 độ) và đặt lên phần nằm ngang của polyline cách góc của polyline 1'10"

 

 

 

Hình 3. xoay block 2 (rotation = 270 độ) và đặt lên phần thẳng đứng của polyline cách góc của polyline 1'6" (1 feet 6 inch), Xoay block 1 (rotation = 180 độ) và đặt lên phần nằm ngang của polyline cách góc của polyline 1'10". (lisp mình cần giúp chỉ cần chọn 1 lúc 2 block trên rồi enter là từ hình 2 thành hình 3)

[Doan Van Ha 3.202]

Đọc xong đề bài của bạn, thấy các số liệu bạn đưa ra đều cố định. Vì vậy đề xuất:

1). Nếu chỉ có hoán đổi 1 lần thì nên dùng autotay.

2). Nếu hoán đổi cho nhiều hình: hãy autotay 1 hình, sau đó copy ra nhiều hình.

Liệu có cần thiết thuê thợ mộc đẽo 1 cái khuôn chỉ để làm chỉ 1 cái bánh?

[dinhvantrang 151]

Thấy nhiều lúc mọi người lạm dụng Lisp quá!

[hiepttr 538]

Liệu cái này có giúp ích đc gì chăng ?!

[Doan Van Ha 3.202]

Ý chủ topic không phải như Hiepttr đâu. 2 lần lệnh MOCORO mới đúng.

[ndtnv 481]

Sory về sự cẩu thả của mình. Lisp mình cần giúp dùng để thay thế cho các thao tác trong hình 3 bên dưới:

-Trong hình 1 có 2 block khác nhau (rotation của cả 2 block đều bằng 0) và 1 đường polyline.

-Trong hình 2, mình đã xoay block 1 (nằm bên trái bản vẽ, rotation = 270 độ), block 2 (rotation = 180 độ) rồi đặt lên đường polyline.

-Ở hình 3, mình muốn block 1 có rotation là 180 độ và nằm ở vị trí của block 2 trong hình 2. Còn block 2 thì có rotation là 270 độ và nằm ở vị trí của block 1 trong hình 2 (bình thường thì mình phải rotate 2 block, đánh dấu vị trí 2 block rồi đổi vị trí cho nhau).

 

Hình 1. Block 1 (bên trái, có rotation = 0), block 2 (ở giữa, có rotation = 0) và một đường polyline (bên phải)

 

 

Hình 2. Xoay block 1 (rotation = 270 độ) và đặt lên phần thẳng đứng của polyline cách góc của polyline 1'6" (1 feet 6 inch), Xoay block 2 (rotation = 180 độ) và đặt lên phần nằm ngang của polyline cách góc của polyline 1'10"

 

 

 

Hình 3. xoay block 2 (rotation = 270 độ) và đặt lên phần thẳng đứng của polyline cách góc của polyline 1'6" (1 feet 6 inch), Xoay block 1 (rotation = 180 độ) và đặt lên phần nằm ngang của polyline cách góc của polyline 1'10". (lisp mình cần giúp chỉ cần chọn 1 lúc 2 block trên rồi enter là từ hình 2 thành hình 3)

Load sbsp.fas

Có 2 lệnh:

SB: Đổi tên 2 block

SP: Đổi vị trí 2 block

http://www.cadviet.com/upfiles/3/19626_sbsp.rar

[Doan Van Ha 3.202]

Nhìn lsp thì may ra biết lỗi ở đâu, nhìn fas thì chịu. Lệnh SP lỗi như vầy (nội bộ blọck bất ổn):

http://www.cadviet.com/upfiles/3/67029_error_1.dwg

[conghoa 123]

@Bác Hà Nếu cái text abc của bác được đặt thông số Justify là Middle thì lisp sẽ chạy ngon lành.

[BuiHuuNghia 1]

Vãi, đúng hàng mình cần rồi. Cám ơn ndtnv nhìu nhìu nha. Nếu được, bạn giúp mình tạo thêm sbsp2.fas nữa để dổi 2 block tên 1 và 2 trong file dưới đây nha, tên lệnh vẫn là sb và sp (không hiểu sao 2 block 1 và 3 giống y như nhau, cả trong block editor cũng giống nhau luôn, mà rotation của 2 block lại khác nhau, 1 cái 90 độ, 1 cái 270 độ như hình bên dưới). Mình có nhiều bản vẽ chứa block 1 và 2, và nhiều bản vẽ khác chứa block 2 và 3. Những bản vẽ chứa block 2 và 3 thì file sbsp.fas của ndtnv đã làm được rồi. Còn các bản vẽ chứa block 1 và 2 thì tuy đổi block được nhưng cũng bị đổi rotation luôn (từ 90 độ thành 270 độ).

Load sbsp.fas

Có 2 lệnh:

SB: Đổi tên 2 block

SP: Đổi vị trí 2 block

http://www.cadviet.com/upfiles/3/19626_sbsp.rar

http://www.cadviet.com/upfiles/3/127110_hoan_doi_block_2.dwg

 

[ndtnv 481]

Vãi, đúng hàng mình cần rồi. Cám ơn ndtnv nhìu nhìu nha. Nếu được, bạn giúp mình tạo thêm sbsp2.fas nữa để dổi 2 block tên 1 và 2 trong file dưới đây nha, tên lệnh vẫn là sb và sp (không hiểu sao 2 block 1 và 3 giống y như nhau, cả trong block editor cũng giống nhau luôn, mà rotation của 2 block lại khác nhau, 1 cái 90 độ, 1 cái 270 độ như hình bên dưới). Mình có nhiều bản vẽ chứa block 1 và 2, và nhiều bản vẽ khác chứa block 2 và 3. Những bản vẽ chứa block 2 và 3 thì file sbsp.fas của ndtnv đã làm được rồi. Còn các bản vẽ chứa block 1 và 2 thì tuy đổi block được nhưng cũng bị đổi rotation luôn (từ 90 độ thành 270 độ).

Load sbsp.fas

Có 2 lệnh:

SB: Đổi tên 2 block

SP: Đổi vị trí 2 block

http://www.cadviet.com/upfiles/3/19626_sbsp.rar

http://www.cadviet.com/upfiles/3/127110_hoan_doi_block_2.dwg

 

Việc hoán đổi vị trí block hầu như ít người dùng nên tôi không viết tổng quát cho tất cả các trường hợp.

Tôi đã sửa lại để chạy đúng cho 2 trường hợp bạn yêu cầu.

http://www.cadviet.com/upfiles/3/19626_sbsp_1.rar