Chào aliosa :
Hai lwòi góp ý với bạn :
- 1 Cùng một câu hỏi mà bạn lại post ở 3 topic là điều hoàn toàn không nên làm chút nào và phải tránh
- 2 Tue_NV đọc bài của bạn vẫn chưa hiểu bạn nói gì thì làm sao mà giúp cho bạn được. Bạn nên nói rõ ràng ra và nên upload file .dwg minh hoạ điều bạn nói.
Chúc vui vẻ

>>

Chào aliosa :
Hai lwòi góp ý với bạn :
- 1 Cùng một câu hỏi mà bạn lại post ở 3 topic là điều hoàn toàn không nên làm chút nào và phải tránh
- 2 Tue_NV đọc bài của bạn vẫn chưa hiểu bạn nói gì thì làm sao mà giúp cho bạn được. Bạn nên nói rõ ràng ra và nên upload file .dwg minh hoạ điều bạn nói.
Chúc vui vẻ

Bạn sử dụng Lisp của Tue_NV xem :
Ban muon an Layer theo Vung chon hay an Layer tren toAn ban ve <V/A> :
Ở dòng này nếu bạn chọn V : thì ẩn Lâyer theo vùng chọn
Còn nếu bạn chọn là : A thì chức năng này tương đương với lệnh Layoff
-> để hiện lại layer thì dùng Lisp VIS của bác Bemove

Bạn sử dụng Lisp của Tue_NV xem :
Ban muon an Layer theo Vung chon hay an Layer tren toAn ban ve <V/A> :
Ở dòng này nếu bạn chọn V : thì ẩn Lâyer theo vùng chọn
Còn nếu bạn chọn là : A thì chức năng này tương đương với lệnh Layoff
-> để hiện lại layer thì dùng Lisp VIS của bác Bemove

Nova 4.01 chạy trên 2K trở lên thì cái nào chẳng giống cái nào ??? 2005 chẳng qua chỉ là phiên bản chạy trên 2005 (thêm bớt một số lệnh). Tôi vẫn dùng với 2005 tk nâng hạ bt <_<
Bạn tham khảo những lệnh dưới đây, (Tôi để các gtrị cố định vì ko muốn mất tg nhập nhiều dữ liệu, chạy mỗi công trình sửa luôn lisp gốc cho tiện)


Thực ra vấn đề này chỉ có...

Nova 4.01 chạy trên 2K trở lên thì cái nào chẳng giống cái nào ??? 2005 chẳng qua chỉ là phiên bản chạy trên 2005 (thêm bớt một số lệnh). Tôi vẫn dùng với 2005 tk nâng hạ bt <_<
Bạn tham khảo những lệnh dưới đây, (Tôi để các gtrị cố định vì ko muốn mất tg nhập nhiều dữ liệu, chạy mỗi công trình sửa luôn lisp gốc cho tiện)


Thực ra vấn đề này chỉ có ...Hài Hòa giải quyết được, (nếu họ muốn cải tiến). Vấn đề ở chỗ họ muốn bán Roadplan nữa
Nếu chỉnh sửa trên CAD thì cũng khả thi nhưng ... chỉ dùng một lần rồi bỏ thì ok (sau này muốn tk lại hay tính lại klg thì làm lại cái khác
Anh em tk thì ko có cách nào ..lười hơn nữa được đâu.
(Quên mất: đoạn lisp trên chạy trên NOVA2005, các lệnh cũng toàn của Nova cả, chắc bạn nhìn cũng thấy)

Chào các bạn.
Về cơ bản thì LISP ERC của bạn Thiệp đã giải quyết đuợc các yêu cầu xóa các đối tuợng trong, ngoài và giữa 2 đuờng bao.
Tuy nhiên với các đối tuợng có giao với đuờng bao thì Lisp ERC chưa hoàn chỉnh.
Để giải quyết vấn đề xóa các đối tuợng có giao với đuờng bao, tui dùng giải pháp là cắt các đối tuợng này tại giao điểm với đuờng bao, sử...

Chào các bạn.
Về cơ bản thì LISP ERC của bạn Thiệp đã giải quyết đuợc các yêu cầu xóa các đối tuợng trong, ngoài và giữa 2 đuờng bao.
Tuy nhiên với các đối tuợng có giao với đuờng bao thì Lisp ERC chưa hoàn chỉnh.
Để giải quyết vấn đề xóa các đối tuợng có giao với đuờng bao, tui dùng giải pháp là cắt các đối tuợng này tại giao điểm với đuờng bao, sử dụng hàm break_with của CAB trên www.TheSwamp.org
Do hàm break_with chỉ cắt các đối tuợng lines, lwplines, plines, splines, ellipse, circles & arcs nên với các đối tuợng còn lại như Text, Dimension,... LISP không giải quyết triệt để.

Các bạn chạy thử và cho ý kiến. File

Mã lệnh trong file SO_TRANG.lsp:
Chức năng, giống như đánh Page number của MS Word.
Yêu cầu người dùng nhập vào:
- Điểm đặt text của trang đầu tiên
- Khoảng cách giữa các trang
- hướng phát triển của các trang (theo chiều từ trái sang phải là 0 độ, dưới lên trên là 90 độ, phải sang trái là 180 và trên xuống dưới là 270.
- Giá trị đầu tiên
- Số...

Mã lệnh trong file SO_TRANG.lsp:
Chức năng, giống như đánh Page number của MS Word.
Yêu cầu người dùng nhập vào:
- Điểm đặt text của trang đầu tiên
- Khoảng cách giữa các trang
- hướng phát triển của các trang (theo chiều từ trái sang phải là 0 độ, dưới lên trên là 90 độ, phải sang trái là 180 và trên xuống dưới là 270.
- Giá trị đầu tiên
- Số trang.

Lisp này hơi giống với lệnh TCount hay một số text tăng giá trị của diễn đàn. Tuy nhiên nó có sự khác biệt là đặc dụng cho đánh số trang khi các bản vẽ được đặt cạnh nhau và với kích thước giống hệt nhau.

Đây là lisp gửi tặng các bạn có nhu cầu rải thép trên đường cong, đa giác bất kỳ.
Yêu cầu người dùng tạo trước 1 block là mặt cắt thép: gồm vòng tròn có hatch kiểu solid.
Lisp yêu cầu pick Curve, pick block mặt cắt thép, kích thước a rải thép, bán kính thép
Rải trên hay dưới curve.
ok

Các bạn dùng và rep cho mình nhé



"Mai đi rồi nhớ...

Đây là lisp gửi tặng các bạn có nhu cầu rải thép trên đường cong, đa giác bất kỳ.
Yêu cầu người dùng tạo trước 1 block là mặt cắt thép: gồm vòng tròn có hatch kiểu solid.
Lisp yêu cầu pick Curve, pick block mặt cắt thép, kích thước a rải thép, bán kính thép
Rải trên hay dưới curve.
ok

Các bạn dùng và rep cho mình nhé



"Mai đi rồi nhớ CADVIET vô cùng!"

Thiep có thể gộp 2 Lisp trên lại thành 1. Lisp yêu cầu thêm: xóa các đối tượng trong hay ngoài CUR.
Còn lồng thêm lệnh extrim thì thiep không làm được như yêu cầu, vì trong lisp extrim có những hàm được viết sẵn bằng ObjectARX, không hiểu được bên trong là cái gì. Chịu, cái hiện nay thiep còn bí là:
- Làm sao Lisp hiểu được mình pick trong hay ngoài đường CUR
- Trong extrim.lsp, các...

Thiep có thể gộp 2 Lisp trên lại thành 1. Lisp yêu cầu thêm: xóa các đối tượng trong hay ngoài CUR.
Còn lồng thêm lệnh extrim thì thiep không làm được như yêu cầu, vì trong lisp extrim có những hàm được viết sẵn bằng ObjectARX, không hiểu được bên trong là cái gì. Chịu, cái hiện nay thiep còn bí là:
- Làm sao Lisp hiểu được mình pick trong hay ngoài đường CUR
- Trong extrim.lsp, các listpoint (lst, lst2...) được tạo như thế nào.
Chắc nhờ bác Hoành, VNdoc, hay các bậc cao thủ khác am hiểu về ObjectARX viết tiếp thôi.
Tuy nhiên, thiep chỉ thêm một động tác gọi lệnh extrim trước để xén các đối tượng cắt ngang qua CUR, bên trong hay bên ngoài. còn sau đó, sẽ thực hiện lisp cua Thiep. Lisp erc.lsp đã chỉnh sửa:


Ngày cuối tuàn vui vẻ!.

Chào vnp84055
1. mình sử dụng nhưng nó không vẽ được đường pline, chỉ hiện kích thước đoạn pline đó thôi.
-> Plxy chạy tốt trên CAD04, không rõ trên các version khác thì sao?

2. khi đánh lệnh xy thì nó bị một dòng command trắng phía dưới....
ý bạn là bỏ dòng command trắng này ?
-> điều này là không thể. không biết các cao thủ có cách nào khác không?

>>

Chào vnp84055
1. mình sử dụng nhưng nó không vẽ được đường pline, chỉ hiện kích thước đoạn pline đó thôi.
-> Plxy chạy tốt trên CAD04, không rõ trên các version khác thì sao?

2. khi đánh lệnh xy thì nó bị một dòng command trắng phía dưới....
ý bạn là bỏ dòng command trắng này ?
-> điều này là không thể. không biết các cao thủ có cách nào khác không?

Cập nhật lại LISP : PLxy

Chưa tìm ra cách gì hay hơn, bạn dùng tạm kiểu này xem có được không (C:TEST là để kiểm tra, bạn tùy nghi sử dụng boundpt theo ý riêng).
Thực chất của phương pháp là nhờ command "boundary" tìm hộ. Nhược điểm của nó giống như của chính bản thân lệnh boundary và lệnh hatch:
- Vùng được chọn phải hiển thị đầy đủ trên màn hình
- Nếu khoảng hở quá nhỏ, nó cũng bỏ qua...

Chưa tìm ra cách gì hay hơn, bạn dùng tạm kiểu này xem có được không (C:TEST là để kiểm tra, bạn tùy nghi sử dụng boundpt theo ý riêng).
Thực chất của phương pháp là nhờ command "boundary" tìm hộ. Nhược điểm của nó giống như của chính bản thân lệnh boundary và lệnh hatch:
- Vùng được chọn phải hiển thị đầy đủ trên màn hình
- Nếu khoảng hở quá nhỏ, nó cũng bỏ qua luôn!
Tóm lại là những vùng mà lệnh boundary hoặc hatch thực hiện được thì hàm boundpt sẽ cho kết quả T (true)