[chia sẻ] thiết lập danh sách tỷ lệ vẽ mặc định (ScaleList)

[Thaistreetz 539]

Khi vẽ với nhiều tỷ lệ trên 1 bản vẽ, sau 1 thời gian danh sách tỷ lệ vẽ dầy lên, điều này khiến cho cad chậm đi 1 chút. vẽ có cảm giác ì ì. khi đó chúng ta thường dùng lệnh ScaleListEdit rồi reset danh sách tỷ lệ lại theo mặc định của cad. tuy nhiên danh sách này cung cấp rất nhiều tỷ lệ mà chúng ta không dùng đến.

Vì không có cách chi để can thiệp vào danh sách mặc định này để thay đổi nó nên mình viết lisp này để thiết lập lại danh sách tỷ lệ theo nhu cầu của người dùng.

(defun c:ars (/ dic lst en)
(setq lst '("1:1" "1:10" "1:15" "1:20" "1:25" "1:50" "1:75" "1:100" "1:200" "1:500" "1:1000"))
(if (setq dic (dictsearch(namedobjdict) "ACAD_SCALELIST"))
(foreach x dic
(if (and (= 350 (car x)) (not (member (cdr (assoc 300 (entget (setq en (cdr x))))) lst))) (entdel en))))
(princ))
(c:ars)

- Các bạn chỉ việc add lisp này vào startup suite là mỗi lần mở bản vẽ, cad sẽ thiết lập danh sách các tỷ lệ vẽ thường dùng cho bạn. lâu lâu muốn reset lại danh sách cho nhẹ bản vẽ thì gõ lệnh ARS.

- Tùy theo nhu cầu, người dùng có thể tự chỉnh sửa danh sách tỷ lệ trong code trên cho phù hợp.

PS: Chỉ dùng cho các bản cad 2008 trở lên (tất nhiên là thế rồi :D)

[Chiron 94]

Vì không có cách chi để can thiệp vào danh sách mặc định này để thay đổi nó nên mình viết lisp này để thiết lập lại danh sách tỷ lệ theo nhu cầu của người dùng.

Mình có thể delete hoặc Add thêm những tỉ lệ như mong muốn sau khi reset được mà?

[ketxu 2.984]

Ý của bác Thái là 1 marco sử dụng những cái Scalelist mình cần thôi :)

Tuy nhiên :

Scalelist default được lưu trong Reg => có thể thay đổi được

- Hoặc : Options -> User Preferences -> Default Scale List

[Thaistreetz 539]

Mình có thể delete hoặc Add thêm những tỉ lệ như mong muốn sau khi reset được mà?

Vì mỗi lần bạn reset thì cái danh sách kia lại xổ ra cả 1 đống tỷ lệ ko sử dụng, lại fải mất công xóa. nếu cứ để nguyên thế mà sử dụng, mỗi lần thay đổi tỷ lệ (bằng cách pick chuột vào khay status bar) sẽ rất rối mắt. nên mới dùng lisp trên để reset cho đỡ vất vả.

Và ý của mình là mình không cách chi thay đổi được cái danh sách mặc định kia. để nó thu ngắn lại mỗi lần nhấn nút reset :)

 

Cách của ketxu đâu có thay đổi được gì nhỉ. nó cũng chỉ đơn thuần là lệnh ScaleListEdit thôi mà.