Nhờ giúp đỡ về Lisp offset double !

[NGUYENVANHIEUGTVT 7]

Mình sưu tầm trên trang Web của Lee-Mac thì có cái lisp offset này khá hay, nhưng bây giờ mọi người có thể bổ sung chút nữa là khi dùng lệnh thì 2 đường offset mới có thể đc đóng kín như hình vẽ đc k ạ. Mình đính kèm file lisp bên dưới để mọi người xem qua ạ.

Mình cũng đã tìm trên diễn đàn các nội dung tương tự nhưng chưa thấy. Mong mọi người giúp đỡ ạ !

DoubleOffsetV1-1.lsp

[thiep 365]

Hi NGUYENVANHIEUGTVT,

Đã thêm bớt 1 vài dòng lệnh lisp của Lee Mac, bạn chạy thử:

DoubleOffset.LSP

[NGUYENVANHIEUGTVT 7]

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

Hi NGUYENVANHIEUGTVT,

Đã thêm bớt 1 vài dòng lệnh lisp của Lee Mac, bạn chạy thử:

DoubleOffset.LSP

Em cảm ơn Bác nhé.. rất cần cái như này.

[davie2557 1]

Vào lúc 23/2/2020 tại 11:44, thiep đã nói:

Hi NGUYENVANHIEUGTVT,

Đã thêm bớt 1 vài dòng lệnh lisp của Lee Mac, bạn chạy thử:

DoubleOffset.LSP

Nếu là đối tượng là line thì nó không có hiệu lực hả bạn? bạn có thể chỉnh nó lại cho nó chạy trên cả đối tượng line được không? vì mình hay dùng vẽ thép góc nên rất cần, thanks bạn nhiều.

[Trnghia Do 0]

Vào lúc 24/2/2020 tại 16:40, davie2557 đã nói:

Nếu là đối tượng là line thì nó không có hiệu lực hả bạn? bạn có thể chỉnh nó lại cho nó chạy trên cả đối tượng line được không? vì mình hay dùng vẽ thép góc nên rất cần, thanks bạn nhiều.

Thử lisp đi bác, hiệu lực cả line, polyline và spline đấy 

[davie2557 1]

4 giờ trước, Trnghia Do đã nói:

Thử lisp đi bác, hiệu lực cả line, polyline và spline đấy 

Thử rồi bác ơi, đối tượng Line vẫn offset ra hai bên nhưng không có đường đóng lại. Bác có cái nào chạy được trên line cho em xin với ạh.

[tanbqtb03 9]

Vào lúc 23/2/2020 tại 11:44, thiep đã nói:

Hi NGUYENVANHIEUGTVT,

Đã thêm bớt 1 vài dòng lệnh lisp của Lee Mac, bạn chạy thử:

DoubleOffset.LSP

Hi bác nhờ bác upgarde lisp thêm như sau:

1-Mình có thể tùy chọn layer khi offset được ko ạ? Chọn theo name list layer  (layer khác với layer của centerline)

2-Và có thể tùy chọn khoảng cách offset tính từ centerline ra 02 bên ko ạ, nhập số vào trước khi offset

Cám ơn bác nhiều ạ!

Chỉnh sửa Tháng 3 3, 2020 theo tanbqtb03

[thiep 365]

5 phút trước, tanbqtb03 đã nói:

Hi bác nhờ bác upgarde list thêm như sau:

1-Mình có thể tùy chọn layer khi offset được ko ạ? Chọn theo name list layer  (layer khác với layer của centerline)

2-Và có thể tùy chọn khoảng cách offset tính từ centerline ra 02 bên ko ạ, nhập số vào trước khi offset

Cám ơn bác nhiều ạ!

Đối tượng được tạo ra sẽ được đặt vào layer khác do người dùng chọn trong listname_layer có sẵn phải không ? còn khoảng cách offset thì đã yêu cầu người dùng nhập rồi mà.

 

[tanbqtb03 9]

18 phút trước, thiep đã nói:

Đối tượng được tạo ra sẽ được đặt vào layer khác do người dùng chọn trong listname_layer có sẵn phải không ? còn khoảng cách offset thì đã yêu cầu người dùng nhập rồi mà.

 

Dạ do e sai sót trong cách dùng ạ

Còn phần chọn layer nhờ bác giúp thêm, thanks bác nhiều

[thiep 365]

1 phút trước, tanbqtb03 đã nói:

Dạ do e sai sót trong cách dùng ạ

Còn phần chọn layer nhờ bác giúp thêm, thanks bác nhiều

Ok. Thường khi dùng riêng, Thiệp đã có sẵn file Doslib (thư viện hàm) trong thư mục SUPPORT của Cad, nên khi viết lisp Thiệp viết vài code tải hộp thoại nhỏ có sẵn của Doslib để chọn 1 name trong listbox (ở đây là name_layer) .

Nếu chưa có file Doslib, thì phải viết 1 hộp thoại để chọn layer vậy. Có ai có ý gì không?

[ngokiet 169]

Mình chưa test nhưng mình Sài doubleoffset của leemac thì có chọn đường offset là current layer rồi mà.

[thiep 365]

Vào lúc 24/2/2020 tại 16:40, davie2557 đã nói:

Nếu là đối tượng là line thì nó không có hiệu lực hả bạn? bạn có thể chỉnh nó lại cho nó chạy trên cả đối tượng line được không? vì mình hay dùng vẽ thép góc nên rất cần, thanks bạn nhiều.

Lisp doubleoffset.lsp đã chỉnh sửa theo yêu cầu của @davie2557 đáp ứng các đối tượng LINE, ARC, SPLINE, ELIPPSE, CIRCLE, *POLYLINE

5 giờ trước, tanbqtb03 đã nói:

Dạ do e sai sót trong cách dùng ạ

Còn phần chọn layer nhờ bác giúp thêm, thanks bác nhiều

Chỉnh sửa theo yêu cầu @tanbqtb03: thêm hộp thoại chọn layer, đưa đối tượng doubleoffset qua layer vừa chọn trong hộp thoại

DoubleOffset.rar

[tanbqtb03 9]

@thiep: Dạ e cám ơn bác nhiều ạ!

Sau khi chọn Layer từ hộp thoại, lisp báo lỗi và thoát lệnh ạ: Báo lỗi: ** Error: bad argument type: stringp nil **

Nhờ bác khi nào rảnh rỗi xem qua lại giúp e

 

[thiep 365]

9 giờ trước, tanbqtb03 đã nói:

@thiep: Dạ e cám ơn bác nhiều ạ!

Sau khi chọn Layer từ hộp thoại, lisp báo lỗi và thoát lệnh ạ: Báo lỗi: ** Error: bad argument type: stringp nil **

Nhờ bác khi nào rảnh rỗi xem qua lại giúp e

 

Đã thấy lối rồi, Thiệp sẽ chỉnh lại.

[davie2557 1]

12 giờ trước, thiep đã nói:

Lisp doubleoffset.lsp đã chỉnh sửa theo yêu cầu của @davie2557 đáp ứng các đối tượng LINE, ARC, SPLINE, ELIPPSE, CIRCLE, *POLYLINE

Chỉnh sửa theo yêu cầu @tanbqtb03: thêm hộp thoại chọn layer, đưa đối tượng doubleoffset qua layer vừa chọn trong hộp thoại

DoubleOffset.rar

Báo lỗi rồi bác, hic

[thiep 365]

5 giờ trước, davie2557 đã nói:

Báo lỗi rồi bác, hic

Lisp đã chỉnh sửa. Hộp thoại cũng chỉnh sửa lại để cùng nhập dữ liệu: khoảng cách offset, lấy tên layer để gán cho đối tượng double_offset được tạo, xoá hay không đối tượng gốc

DoubleOffset.rar

[davie2557 1]

15 giờ trước, thiep đã nói:

Lisp đã chỉnh sửa. Hộp thoại cũng chỉnh sửa lại để cùng nhập dữ liệu: khoảng cách offset, lấy tên layer để gán cho đối tượng double_offset được tạo, xoá hay không đối tượng gốc

DoubleOffset.rar

Mình add vô cad 2007 nó vẫn báo lỗi bác ơi. ERROR LOADING DoubleOffset.

[tanbqtb03 9]

16 giờ trước, thiep đã nói:

Lisp đã chỉnh sửa. Hộp thoại cũng chỉnh sửa lại để cùng nhập dữ liệu: khoảng cách offset, lấy tên layer để gán cho đối tượng double_offset được tạo, xoá hay không đối tượng gốc

DoubleOffset.rar

E đã chạy thử, ngon lành cành đào ạ. Thanks bác @thiep, CadViet nhiều nhé!

[thiep 365]

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

Mình add vô cad 2007 nó vẫn báo lỗi bác ơi. ERROR LOADING DoubleOffset.

Đây là lỗi không tìm thấy file hộp thoại DoubleOffset.DCL.

Bạn bung nén DoubleOffset.rar rồi copy 2 file *.dcl và *.lsp vào thư mục SUPPORT của autoCad. Tải lisp và chạy lại. Lệnh là FOO.

[NGUYENVANHIEUGTVT 7]

Vào lúc 23/2/2020 tại 11:44, thiep đã nói:

Hi NGUYENVANHIEUGTVT,

Đã thêm bớt 1 vài dòng lệnh lisp của Lee Mac, bạn chạy thử:

DoubleOffset.LSP

Bác ơi lisp hoạt động rất tốt k lỗi gì cả, nhưng Bác có thể bổ sung lisp của Lee-Mac là điểm kết thúc nhưng mọi chức năng lisp đều đc giữ nguyên đc k ạ, vì mấy hôm đang sử dụng cái lisp của Lee-Mac quen thao tác rồi mà trong khi lisp phía trên Bác bổ sung lại thiếu mấy chức năng ban đầu thành ra bất tiện quá.. Làm phiền Bác quá nhưng mong Bác giúp đỡ với ạ ! cảm ơn Bác đã quan tâm.

[davie2557 1]

7 giờ trước, thiep đã nói:

Đây là lỗi không tìm thấy file hộp thoại DoubleOffset.DCL.

Bạn bung nén DoubleOffset.rar rồi copy 2 file *.dcl và *.lsp vào thư mục SUPPORT của autoCad. Tải lisp và chạy lại. Lệnh là FOO.

OK rồi bác, thanks bác đã nhiệt tình với anh em. Chúc bác luôn vui khỏe.

[nikizi 9]

Bạn sử dụng cả double offset và polyline programs của lee mac thì được kết quả tương tự như yêu cầu mà bro :D

[NGUYENVANHIEUGTVT 7]

29 phút trước, nikizi đã nói:

Bạn sử dụng cả double offset và polyline programs của lee mac thì được kết quả tương tự như yêu cầu mà bro :D

dùng polyline programs chỉ đóng kín được 1 polyline trong khi mình offset ra 2 cái độc lập thì k đc Bác à

 

[quocmanh04tt 635]

Tối nay mình chỉnh trên lisp của LM cho, đối tượng đóng kín sẽ là LwpolyLine và Line, còn đối tượng khác vẫn như cũ.

[NGUYENVANHIEUGTVT 7]

39 phút trước, quocmanh04tt đã nói:

Tối nay mình chỉnh trên lisp của LM cho, đối tượng đóng kín sẽ là LwpolyLine và Line, còn đối tượng khác vẫn như cũ.

cảm ơn Bác quan tâm và giúp đỡ nhé.