Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
Nad SK

Đóng băng Freeze Layer trong Viewport.

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

Công việc của mình cần phải đóng băng một loạt những Layer sẵn có trong các viewport.

Có lisp nào thực hiện được việc sau:

Chọn viewport, các layer cho trước: Layer name 1, Layer name 2, Layer name 3, ... sẽ đóng băng.

Nhờ các bạn giúp mình với. 

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
4 giờ trước, Nad SK đã nói:

Công việc của mình cần phải đóng băng một loạt những Layer sẵn có trong các viewport.

Có lisp nào thực hiện được việc sau:

Chọn viewport, các layer cho trước: Layer name 1, Layer name 2, Layer name 3, ... sẽ đóng băng.

Nhờ các bạn giúp mình với. 

Bạn dùng lệnh layerstate.

Cách dùng: 

1. Bạn thiết lập layer cho 1 viewport chuẩn.

2. Dùng lệnh layerstate, lưu lại thành 1 mục.

3. Với các viewport khác, bạn vào viewport rồi dùng lệnh layerstate rồi restore cái đã lưu.

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
28 phút trước, Nguyen Hoanh đã nói:

Bạn dùng lệnh layerstate.

Cách dùng: 

1. Bạn thiết lập layer cho 1 viewport chuẩn.

2. Dùng lệnh layerstate, lưu lại thành 1 mục.

3. Với các viewport khác, bạn vào viewport rồi dùng lệnh layerstate rồi restore cái đã lưu.

Vấn đề là em có đến cả chục cái viewport mà mỗi viewport nó lại có các thiết lập khác nhau.

Bản vẽ thì cập nhật liên tục, mỗi lần cập nhật là một lần phải làm lại từ đầu.

Em muốn khi có lisp sẽ độ lại mỗi viewport 1 lisp vì đã biết mỗi viewport cần Freeze những layer nào. Chứ không phải muốn 1 lisp cho tất cả các viewport.

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
50 phút trước, Mèo Mun đã nói:

Lệnh "MA" đâu, sao không dùng ?, chỉ bất tiện là nó thay đổi tỷ lệ theo viewport chọn trước.

MA không áp cho trường hợp này. Mình muốn áp cho các viewport khác nhau.

Mình muốn dùng LISP cho nhanh chứ không muốn vào các viewport để dò từng layer. Vì các layer đã có sẵn. Mỗi lần Freeze 1 2 layer thì còn làm được chứ cả chục layer là cả một vấn đề đó.

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
28 phút trước, quocmanh04tt đã nói:

Lệnh: VPLAYER, biết chút lisp thì thềm vài dòng nữa cho nó nhanh hơn,

VPLAYER thì có biết rồi bác. Nhưng mỗi lần làm là mỗi lần rò rò mất thời gian lắm. Bản vẽ update cái mới là lại phải làm từ đầu.

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

Chán với cậu quá! Biết độ lisp, với gợi ý như vậy mà còn trả lời thế kia.

Quick code:

(defun c:tt  nil  (command "_.VPLAYER" "F" "Layername1,Layername2,Layername3" "S" (entsel "\nPick Viewport: ") "" ""))

P/s:

Có thể thay F bằng T để làm ngược lại.

Tên các layer cách nhau bằng dấu ",".

Nhớ đúng tên layer nhé.

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
5 giờ trước, quocmanh04tt đã nói:

Chán với cậu quá! Biết độ lisp, với gợi ý như vậy mà còn trả lời thế kia.

Quick code:

(defun c:tt  nil  (command "_.VPLAYER" "F" "Layername1,Layername2,Layername3" "S" (entsel "\nPick Viewport: ") "" ""))

P/s:

Có thể thay F bằng T để làm ngược lại.

Tên các layer cách nhau bằng dấu ",".

Nhớ đúng tên layer nhé.

Em xa rời LISP cả 10 mấy năm nay rồi bác ơi. Cám ơn bác nhé.

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

Bác có thể sửa phần nhập tên layer bằng chọn đối tượng được ko bác

Vào lúc 7/10/2018 tại 13:00, Biet ve CAD đã nói:

** Mình xin chia sẻ đến các bạn các lisp mình đã làm, có cả các lisp sưu tầm ( cũng khá mất thời gian và công sức ^^)

** Thông tin các bạn liên hệ qua Facebook hoặc email bietvecad@gmail.com

** Các bạn có thể xem thêm menu lệnh lisp BVC để gọi lệnh cho tiện 

 

***** Danh sách lisp: ( lisp nào chưa có link tải các bạn để lại email và tên lisp muốn tải về, mình sẽ gửi qua email )

1. In nhanh bản vẽ Free_2 link diễn đàn tải về google drive tải về mediafire   Video hướng dẫn (trong bộ lisp in nhanh Free_2 này còn có các lisp sau)

     1-1. Dịch qua lại tiếng Việt - Anh ..... (áp dụng cho đối tượng Text)

     1-2.  Tính toán Text - Dimension - Length - Distance - Area

     1-3.  Scale - rotate Text, Block hàng loạt

     1-4.  Tạo danh mục bản vẽ

     1-5.  Tăng số thứ tự ( Text, block att )

     1-6.  Cập nhật số thứ tự

2. Chuyển Font chữ Unicode - TCVN - VNI tải về - video

3Tự động Boundary hàng loạt tải về - video

4Lưu tên các lệnh lisp ( khi bạn có nhiều lệnh lisp mà ko nhớ hết thì dùng lisp này để gọi lệnh ) tải về - video

5Dimension nhanh đối tượng polyline ( áp dụng cho cả polyline cong ) tải về - video

6. Lisp chuyển các tính chất của đối tượng làm hiện hành ( ví dụ: layer, linetype, linetype scale, textstyle, textsize, dimstyle, dimlfac, color... )

7. Lisp cắt pline tải về

8. Chèn nhanh nhiều trang Pdf vào Cad video

 

***** Lisp nâng cao : các bạn dùng phần mềm này để lấy serial của máy tính, sau đó gửi vào bietvecad@gmail.com để nhận key, các bạn nhớ ghi kèm tên loại lisp muốn đăng ký

1. In nhanh bản vẽ Final_5

 

2. Tạo danh mục bản vẽ

 

3. Tìm và thay thế nội dung Text hàng loạt

4. Chỉnh sửa Text nhanh

 

5. Tính diện tích Hatch vào block

6. Tính diện tích Polyline vào block

7. Gán block lô đất và tính diện tích

8. Tự động Fillet - Champer - Dimension ( tạo đường giao thông quy hoăch )

9. Rải Block mẫu nhà vào lô đất

10. Trồng cây theo Pline

 

11. Quản lý thư viện Block ( block đặt ở các thư mục, copy ra thư mục, chèn vào bản vẽ, thay thế ......)

12. Thống kê Hatch với nhiều tùy chọn

13. Tạo Viewport hàng loạt từ Model sang Layout

 

14. Tách ghép bản vẽ Dwg ( tách bản vẽ theo khung tên, ghép bản vẽ dwg với tùy chọn số hàng )

 

15. Tách nhiều khung bản vẽ của 1 layout ra thành các Layout mới hoặc file Dwg mới

16. Tách các layout thành các bản Dwg mới

17. Gộp nhiều layout lẻ của file Dwg thành 1 layout

18. Xuất Layout sang Model của nhiều file Dwg cùng lúc

 

19. Thống kê độ dốc rãnh ( dùng cho đường tuyến Civil 3D)

20. Thống lý trình hàng rào ( dùng cho đường tuyến Civil 3D)

 

21. Lisp đa chức năng nhiều file Dwg ( xuất layout sang model, tạo danh mục layout, bind xref, thay thế block....)

 

22. Lisp Edit sheet set (tăng số thứ tự sheet number, title hàng loạt, tùy biến tạo danh mục bản vẽ, hiệu chỉnh - tạo hàng loạt custom sheet set và sheet...)

 

23. Lisp Rải Taluy Theo Pline - RTL (Lisp sẽ rải Taluy theo 2 pline được chọn, chọn được cả 3d polyline )

 

24. Lisp Tạo Khung View Theo Tuyến Đường - KTT ( tự động tạo hàng loạt Viewport + khung tên dọc theo tuyến đường, ccả Model và Layout )

 

Cảm ơn các bạn đã quan tâm !

 

 

 

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 5/12/2017 tại 22:38, Nad SK đã nói:

VPLAYER thì có biết rồi bác. Nhưng mỗi lần làm là mỗi lần rò rò mất thời gian lắm. Bản vẽ update cái mới là lại phải làm từ đầu.

 

Vào lúc 6/12/2017 tại 02:08, quocmanh04tt đã nói:

Chán với cậu quá! Biết độ lisp, với gợi ý như vậy mà còn trả lời thế kia.

Quick code:

(defun c:tt  nil  (command "_.VPLAYER" "F" "Layername1,Layername2,Layername3" "S" (entsel "\nPick Viewport: ") "" ""))

P/s:

Có thể thay F bằng T để làm ngược lại.

Tên các layer cách nhau bằng dấu ",".

Nhớ đúng tên layer nhé.

Cái này có thay việc nhập tên layer bằng pick chọn layer được ko 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  

×