Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
3 replies to this topic

#1 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 22 December 2011 - 09:17 AM

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)
  • 3

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD


#2 Chiron

Chiron

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 90 (tàm tạm)

Đã gửi 22 December 2011 - 01:23 PM

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à?
Hình đã gửi
  • 0

#3 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 22 December 2011 - 01:32 PM

Ý 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
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#4 Thaistreetz

Thaistreetz

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 903 Bài viết
Điểm đánh giá: 505 (tốt)

Đã gửi 22 December 2011 - 06:45 PM

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

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à.
  • 0

Hình đã gửi
IN HIM, I TRUST. THE TRUST IN MY GOD