Phát triển lên từ lisp cũ : Thay thế đổi màu 2 taluy dài và ngắn trong

[nguyensang9798@gmail.com 4]

Em chào các bậc tiền bối, quý anh chị trong cộng đồng CADVIET
Em xem trên diễn đàn có sưu tầm được lisp vẽ taluy của bác meohoang up lên, lisp rất hay nhưng có 2 điểm chưa đúng ý cá nhân và còn hạn chế như sau :
1, Hai nét line taluy dài và ngắn được vẽ ra từ lệnh VTL2S đang để chung cùng 1 lớp hiện hành. Em muốn đổi 2 nét đó sang 2 lớp TALUYN và TALUYD (màu sắc và vị trí lớp cụ thể xem trong bản vẽ)
2, Thêm tiện ích undo và ctrl Z vào lisp (Hiện tại lisp chỉ cho phép undo từng line taluy đã vẽ như vậy tốn rất nhiều thời gian )
Em đã xem hết các bài về Taluy nhưng chỉ có lisp này vẽ taluy đường cong đúng ý cá nhân em.
Kính mong được mọi người giúp đỡ ạ 

 

sua layer tayluy.dwg

tor.lsp

[duy782006 1573]

tor.lsp

[nguyensang9798@gmail.com 4]

10 giờ trước, duy782006 đã nói:

tor.lsp

Xin được cảm ơn bác đã quan tâm topic này, chúc bác và mọi người buổi sáng an lành 
1. đã được giải quyết đúng yêu cầu
2.chắc là bác chưa hiểu ý của em nên vấn đề U chưa được làm đúng ý
Xin được gửi lại ảnh minh hoạ rõ về yêu cầu 2
p/s: trong lisp có kèm 2 lệnh VTL1S và VTL0S. 2 lệnh em đã tận dụng ở lisp khác đúng ý em hơn nên có thể xoá code 2 lệnh này đi được
Kính mong bác xem giúp ạ
 

Hình ảnh minh hoạ.pdf

[nguyensang9798@gmail.com 4]

Chế độ bắt điểm bảng object snap đang bị tắt sau khi sử dụng lệnh bác ạ 

[duy782006 1573]

1 phút trước, nguyensang9798@gmail.com đã nói:

Chế độ bắt điểm bảng object snap đang bị tắt sau khi sử dụng lệnh bác ạ 

-Mình chỉ thêm 2 dòng để thay layer thôi nên tất cả những tồn tại theo ý bạn là có sẳn trong lisp.

-Có thể bạn thao tác sai ví dụ thoát lệnh ngang xương chứ mình đã thử lisp undo phát hết luôn. 

-Dò lisp người khác hơi khó khăn đối với mình, khi nào rãnh mình viết lisp mới có khi đở đau đầu hơn ngồi đọc lisp người khác như này.

-Kể từ khi ở không từ tết đến giờ nay mình vào được 2 công trình nên sẽ cắm đầu vẽ triển khai sẽ không bám theo bạn được, hẹn gặp sau!

[nguyensang9798@gmail.com 4]

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

-Mình chỉ thêm 2 dòng để thay layer thôi nên tất cả những tồn tại theo ý bạn là có sẳn trong lisp.

-Có thể bạn thao tác sai ví dụ thoát lệnh ngang xương chứ mình đã thử lisp undo phát hết luôn. 

-Dò lisp người khác hơi khó khăn đối với mình, khi nào rãnh mình viết lisp mới có khi đở đau đầu hơn ngồi đọc lisp người khác như này.

-Kể từ khi ở không từ tết đến giờ nay mình vào được 2 công trình nên sẽ cắm đầu vẽ triển khai sẽ không bám theo bạn được, hẹn gặp sau!

Em cảm ơn bác đã quan tâm. Chúc bác vào 2 công trình mới thuận lợi và suôn sẻ 
Hẹn gặp lại bác ạ ^^

[NTHAHT 87]

Mình viết lại cái lisp này, (3 trong 1). Lệnh VTL

- Sau khi gọi lệnh, trước khi chọn đối tượng thứ nhất, có chức năng thiết lập các giá trị (lưu lại cho lần sau).

- Nếu không chọn đối tượng thứ 2 thì lisp sẽ vẽ theo đối tượng thứ nhất (tương tự lệnh VTL1S).

[nguyensang9798@gmail.com 4]

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

Mình viết lại cái lisp này, (3 trong 1). Lệnh VTL

- Sau khi gọi lệnh, trước khi chọn đối tượng thứ nhất, có chức năng thiết lập các giá trị (lưu lại cho lần sau).

- Nếu không chọn đối tượng thứ 2 thì lisp sẽ vẽ theo đối tượng thứ nhất (tương tự lệnh VTL1S).

Cảm ơn bác đã quan tâm, Lisp dùng rất tiện ạ 
Kính nhờ bác sửa giúp thông số các giá trị mặc định ban đầu 
số đoạn ngắn trong khoảng 2 đoạn dài : 1
khoảng cách giữa các đoạn : 0.5
kích thước đoạn ngắn : 0.5
kích thước đoạn dài : 1