[Request] Offset Tự Động Nhiều Đối Tượng Và Chuyển Về Layer Hiện Hành

[conghoa 123]

Chào các bạn, 

 

Hiện tại mình có 1 bản vẽ với nhiều polyline kín, công việc là phải offset có hình đó ra một khoảng cách nhất định (offset ra phía ngoài hình đó) và chuyển đối tượng vừa được offset về layer hiện hành, các bạn viết giúp mình lisp sau nhé :

 

- Chạy lisp, lisp yêu cầu nhập khoảng cách cần offset (khoảng cách này được ghi nhớ cho lần chạy lisp sau)

+ Người dùng nhập khoảng cách

- lisp yêu cầu chọn đối tượng cần offset (chọn được nhiều đối tượng 1 lúc)

- Sau khi người dùng chọn xong đối tượng thì lisp sẽ tự động offset các đối tượng đó ra bên ngoài với khoảng cách đã được nhập và chuyển đối tượng vừa được offset sang layer hiện hành rồi kết thúc lệnh

 

File mình họa

http://www.mediafire.com/file/j9fb5b20fk7l177/Muilti+Offset.dwg

 

Cảm ơn các bạn!

[gia_bach 1.549]

Nhớ sử dụng chức năng tìm kiếm trên diễn đàn nhé.

 

Lisp của anh Tot77 có tính năng tương tự bạn y/cầu:  http://www.cadviet.com/forum/topic/112505-offset-cung-1-luc-nhieu-doi-tuong-ve-1-phia/?do=findComment&comment=318391

[conghoa 123]

Thanks Gia_bach, mình sẽ rút kinh nghiệm :), lisp của Tot77 hay quá!