Nhờ các bác giúp em tạo lisp tạo vùng bo hàng loạt

[trung trần 0]

Công việc em cần cắt polyline ( hình trái ) và tạo vùng bo mới cùng layer với đối tượng cắt ( hình phải ) mà dùng lệnh Bo từng đối tượng thì lâu quá. Mong các bác giúp em tạo vùng bo hàng loạt có tùy chọn giữ lại đối tượng gốc hoặc không . Em cảm ơn trước ạ

Test duong bao.dwg

[cuongtk2 375]

Dùng lệnh Extrim đi thôi.

[limfx 30]

6 giờ trước, trung trần đã nói:

Công việc em cần cắt polyline ( hình trái ) và tạo vùng bo mới cùng layer với đối tượng cắt ( hình phải ) mà dùng lệnh Bo từng đối tượng thì lâu quá. Mong các bác giúp em tạo vùng bo hàng loạt có tùy chọn giữ lại đối tượng gốc hoặc không . Em cảm ơn trước ạ

Test duong bao.dwg

Hy vọng đáp ứng yêu cầu của bạn!

Lệnh TBO

Trim and bo pline (TBO).lsp

[trung trần 0]

Vào lúc 11/6/2024 tại 20:57, limfx đã nói:

Hy vọng đáp ứng yêu cầu của bạn!

Lệnh TBO

Trim and bo pline (TBO).lsp

Dạ đầu tiên em xin cảm ơn bác ạ 
Nhưng lisp còn một số vấn đề như này :
1. Em muốn giữ các đối tượng trong đường Bo, lisp đang giữ các đối tượng ở ngoài
2. Với các đường Bo có hình dạng gấp khúc nhiều thì lisp đang tạo vùng bo thẳng như hình dưới
Mong các cao nhân giúp đỡ ạ

[trung trần 0]

Vào lúc 11/6/2024 tại 16:01, cuongtk2 đã nói:

Dùng lệnh Extrim đi thôi.

Dạ nếu làm thủ công thì cũng được nhưng nếu phạm vi vùng bo rộng hay vùng bo có dạng gấp khúc nhiều thì làm thủ công rất tốn công nên em mới lên đây mong các bác giúp đỡ ạ

 

[limfx 30]

3 giờ trước, trung trần đã nói:

Dạ đầu tiên em xin cảm ơn bác ạ 
Nhưng lisp còn một số vấn đề như này :
1. Em muốn giữ các đối tượng trong đường Bo, lisp đang giữ các đối tượng ở ngoài
2. Với các đường Bo có hình dạng gấp khúc nhiều thì lisp đang tạo vùng bo thẳng như hình dưới
Mong các cao nhân giúp đỡ ạ

Định đưa lệnh EXTRIM vào nhưng ở express  không chạy được.

Thôi thì bạn kết hợp lệnh EXTRIM sau đó quét TBO các pline hở là OK

Tbo pline (TBO)2.lsp

[cuongtk2 375]

@limfx sử dụng region intersection để lấy region giao rồi convert ngược thành polyline là được. Nhớ xử lý closed cho polyline.

[DuongTrungHuy 132]

Cái loạt hình xanh là đối tượng hatch hả bạn

[trung trần 0]

21 giờ trước, DuongTrungHuy đã nói:

Cái loạt hình xanh là đối tượng hatch hả bạn

Dạ không cái hình xanh là polyline thôi 

 

[cuongtk2 375]

Dùng lệnh : TrimAndBo 

TrimAndBo.zip

[trung trần 0]

1 giờ} trướ}c, cuongtk2 đã nói:

Dùng lệnh : TrimAndBo 

TrimAndBo.zip

anh có thể giúp em chuyển sang lisp được không ?

Em dùng cad lt nên không chạy dll được ạ

Em cảm ơn a 

Thêm một vấn đề nữa là bác có thể giúp em thêm tùy chọn xóa phần bên trong hay bên ngoài của đường bo được không , ví dụ như hình này 

Chỉnh sửa Tháng 6 17 theo trung trần

[cuongtk2 375]

Anh viết bằng .NET , sử dụng thư viện Brep, chắc không chuyển sang lisp được.

[limfx 30]

Vào lúc 16/6/2024 tại 11:19, cuongtk2 đã nói:

@limfx sử dụng region intersection để lấy region giao rồi convert ngược thành polyline là được. Nhớ xử lý closed cho polyline.

Cảm ơn anh!

[trung trần 0]

17 giờ trước, limfx đã nói:

Cảm ơn anh!

 

17 giờ trước, limfx đã nói:

Cảm ơn anh!

Bác cho e xin lại  lisp sau sửa với được không ạ ?

 

[trung trần 0]

Vào lúc 17/6/2024 tại 16:04, cuongtk2 đã nói:

Anh viết bằng .NET , sử dụng thư viện Brep, chắc không chuyển sang lisp được.

dạ e cảm ơn ạ 

[limfx 30]

Vào lúc 14/6/2024 tại 15:44, limfx đã nói:

Định đưa lệnh EXTRIM vào nhưng ở express  không chạy được.

Thôi thì bạn kết hợp lệnh EXTRIM sau đó quét TBO các pline hở là OK

Tbo pline (TBO)2.lsp

Kết hợp 2 cái này OK mà bạn!

[trung trần 0]

20 giờ trước, limfx đã nói:

Kết hợp 2 cái này OK mà bạn!

Em extrim phần thừa đi sau đó dùng lisp quét các đường pline hở sao vẫn k tạo vùng bo ạ

[limfx 30]

11 phút trước, trung trần đã nói:

Em extrim phần thừa đi sau đó dùng lisp quét các đường pline hở sao vẫn k tạo vùng bo ạ

Trước và sau  lệnh TBO

 

BoPline(TBO).rar

[trung trần 0]

8 giờ trước, limfx đã nói:

Trước và sau  lệnh TBO

 

BoPline(TBO).rar

Dạ lisp chạy tốt ạ , em cảm ơn bác nhiều, có điều bác có thể chỉnh giúp em khi Ctrl Z lại chỉ cần Ctrl Z 1 lần thôi không chứ hiện tại mỗi lần hoàn tác chỉ được 1 phần nhỏ thôi ạ

[limfx 30]

KKK Được voi còn muốn cưỡi hai bà trưng nữa sao bạn!

[trung trần 0]

3 giờ trước, limfx đã nói:

KKK Được voi còn muốn cưỡi hai bà trưng nữa sao bạn!

Dạ tại em làm với phạm vi rộng ấy nên chẳng may quét sai thì hoàn tác lại vậy nhiều lần quá bác ạ

[conghoa 126]

33 phút trước, trung trần đã nói:

Dạ tại em làm với phạm vi rộng ấy nên chẳng may quét sai thì hoàn tác lại vậy nhiều lần quá bác ạ

Thay vì dùng Ctrl Z , bạn hãy dùng lệnh UNDO rồi nhập số lượng bước cần quay trở lại cũng khắc phục được chút đỉnh

[tannguyen291 150]

thêm mấy lệnh này vào là ctrl z về đầu tiên ngay :)) 

vla-endundomark  vla-startundomark

[limfx 30]

22 giờ trước, trung trần đã nói:

Dạ lisp chạy tốt ạ , em cảm ơn bác nhiều, có điều bác có thể chỉnh giúp em khi Ctrl Z lại chỉ cần Ctrl Z 1 lần thôi không chứ hiện tại mỗi lần hoàn tác chỉ được 1 phần nhỏ thôi ạ

Khắc phục theo ý bạn

BoPline(TBO)2.rar

[trung trần 0]

Vào lúc 21/6/2024 tại 15:04, limfx đã nói:

Khắc phục theo ý bạn

BoPline(TBO)2.rar

dạ em cảm ơn bác nhiều ạ