Xin sửa dùm lisp bị lỗi. lisp off set ra 2 bên bị lỗi

[beeboy 1]

Lisp nay của bác Thaistreet viết nhưng vẫn còn lỗi: Sau khi offset đối tượng ra 2 bên thì xuất hiện hộp thoai hỏi "Có xóa đối tượng cũ hay không? [Co/Khong] (giống xóa đối tượng cũ của lệnh MIRROR)

Nhưng chọn Co hay Khong thì đối tượng cũ vẫn không bị xóa
Bác nào có thể giúp em fix lỗi này ko?
E xin cám ơn.
 

(OO) OFFSET RA 2 BEN.lsp

[doductiep 28]

Đã chỉnh. Do bác ý quyên trường hợp gõ chữ c thường. C hoa thì được

(OO) OFFSET RA 2 BEN.lsp

[beeboy 1]

Trả lời: doductiep

Vẫn lỗi cũ, vẫn không xóa đối tượng gốc sau khi chọn có.

 

[Bee 154]

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

Trả lời: doductiep

Vẫn lỗi cũ, vẫn không xóa đối tượng gốc sau khi chọn có.

 

 

Bạn chỉnh 2 cái này cho nó giống nhau và gõ lệnh chuẩn thì nó sẽ tự xóa. ^_^

[Danh Cong 425]

Vào lúc 9/6/2018 tại 11:05, doductiep đã nói:

Đã chỉnh. Do bác ý quyên trường hợp gõ chữ c thường. C hoa thì được

(OO) OFFSET RA 2 BEN.lsp

Sử dụng hàm :  "STrcase" biến chữ thường thành chữ hoa.

[Doan Van Ha 3212]

(initget (+ 2 4) "c k")

nil

(setq kwrd (getkword " Xóa đối tượng gốc không ? [Co'/Khong]  ")): c

C

(initget (+ 2 4) "c k")

nil

(setq kwrd (getkword " Xóa đối tượng gốc không ? [Co'/Khong]  ")): C

C

(initget (+ 2 4) "C K")

nil

(setq kwrd (getkword " Xóa đối tượng gốc không ? [Co'/Khong]  ")): c

C

(initget (+ 2 4) "C K")

nil

(setq kwrd (getkword " Xóa đối tượng gốc không ? [Co'/Khong]  ")): C

C

[doductiep 28]

Vào lúc 9/6/2018 tại 15:54, beeboy đã nói:

Trả lời: doductiep

Vẫn lỗi cũ, vẫn không xóa đối tượng gốc sau khi chọn có.

 

Mình test cả mấy lần rồi ok mà bạn . Không hiểu

Chọn có hay không chỉ gõ c hoặc k thôi. Hẳn là Co là không được ^_^

[beeboy 1]

(OO) OFFSET RA 2 BEN.lsp

 

 lời: doductiep

Vẫn lỗi cũ, vẫn không xóa đối tượng gốc sau khi chọn có.

Minh dung duoc roi thank bac, nhung co mot chut xiu bất tiện là
1: Line mới offset ra nhận curent layer chứ ko nhận source layer

2: Khi nhấp chọn Co'/Khong trong hộp thoại "Có xóa đối tượng gốc không?" thì lisp không nhận lệnh nếu dùng chuột click vào hộp thoại.

. Bác chỉnh dùm em thêm khúc " lựa chọn layer gốc hay layer hiện tại" và lỗi click lệnh trong hộp thoại xin cám ơn bác trước :)
 

P/S: mình đã thêm 2 đối tượng là XLINE và RAY vào chỗ nhận diện đối tượng: (setq ss (ssget '((0 . "LWPOLYLINE,LINE,ARC,CIRCLE,ELLIPSE,SPLINE,XLINE,RAY")))))

[beeboy 1]

bác có online không giúp e sửa lisp vs

 

[beeboy 1]

co mot chut xiu bất tiện là
1: Line mới offset ra nhận curent layer chứ ko nhận source layer

2: Khi nhấp chọn Co'/Khong trong hộp thoại "Có xóa đối tượng gốc không?" thì lisp không nhận lệnh nếu dùng chuột click vào hộp thoại.

Các Bác chỉnh dùm em thêm khúc " lựa chọn layer gốc hay layer hiện tại" và lỗi click lệnh trong hộp thoại xin cám ơn bác trước :)

[quocmanh04tt 638]

Dùng cái này xem:

Thiết lập tương tự lệnh Offset của Cad.

O2S.rar

[beeboy 1]

Van không ổn bác ơi