Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
nguyensang9798@gmail.com

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

Các bài được khuyến nghị

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
10 giờ trước, duy782006 đã nói:

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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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!

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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 ạ ^^

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

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).

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
Vào lúc 4/7/2024 tại 09:30, nguyensang9798@gmail.com đã nói:

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

Mình đã sửa ở link cũ.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
22 giờ trước, NTHAHT đã nói:

Mình đã sửa ở link cũ.

Cảm ơn bác NTHAHT đã quan tâm giúp đỡ, lisp chạy tuyệt vời quá
Chúc bác và gia đình nhiều sức khoẻ, gặp thuận lợi trong công việc.
Một lần nữa, xin chân thành cảm ơn bác 

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay
Đăng nhập để thực hiện theo  

×