Đến nội dung


Hình ảnh
* * * * - 3 Bình chọn

Tăng tốc (làm nhẹ) AutoCAD


  • Please log in to reply
78 replies to this topic

#1 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 23 February 2015 - 11:57 AM

Nhiều người sử dụng AutoCAD phiên bản mới trên các máy có cấu hình không cao. Hệ quả là máy sẽ giật và chậm.

Trong bài viết ACAD đời mới chạy trên máy đời cũ
Đã hướng dẫn cách làm nhẹ phần mềm AutoCAD, tuy nhiên, mỗi lần làm lại phải rà soát nhiều tên biến.

Lisp dưới đây với mục đích làm nhẹ AutoCAD bằng cách thay đổi các biến hệ thống, và thực hiện các lệnh để giảm bớt một số tính năng về hiển thị và quản lý trong AutoCAD nhưng về cơ bản không hạn chế các tính năng liên quan đến công việc của AutoCAD.


Các bạn lưu ý: chỉ cần appload file lisp 1 lần duy nhất (không cho vào mục khởi động Startup Suite) và không cần gọi lệnh.


(defun c:spa (/ svl cml rgl old x productkey)
(setq
svl '(
("DYNMODE" 0)
("QPMODE" 0)
("DRAWORDERCTL" 0)
("HPDLGMODE" 1)
("UCSDETECT" 0)
("LAYERDLGMODE" 0)
("ROLLOVERTIPS" 0)
("SELECTIONCYCLING" 0)
("LAYERDLGMODE" 0)
("HPQUICKPREVIEW" 0)
("NAVVCUBEDISPLAY" 0)
("NAVBARDISPLAY" 0)
("INDEXCTL" 3)
("GRIPOBJLIMIT" 0)
("SIGWARN" 0)
("SELECTIONAREA" 0)
("MAXACTVP" 5)
("VTENABLE" 0)
("COMMANDPREVIEW" 0)
("SELECTIONPREVIEW" 0)
)

cml '(
(".IMAGEQUALITY" "DRAFT")
(".VIEWRES" "Y" "200")
)

rgl '(
("InfoCenter" "InfoCenterOn" 0)
)
)

(vl-load-com)
(setq
old (getvar "cmdecho")
productkey (if vlax-user-product-key (vlax-user-product-key) (if vlax-product-key (vlax-product-key) nil))
)

(setvar "cmdecho" 0)
(foreach x svl (vl-catch-all-apply 'setvar x))
(foreach x cml (mapcar 'command x))
(if productkey
(foreach x rgl
(vl-registry-write
(strcat
"HKEY_CURRENT_USER"
(chr 92)
productkey
(chr 92)
(nth 0 x)
)
(nth 1 x)
(nth 2 x)
)
)
)

(setvar "cmdecho" old)
(alert
"\u+0110\u+00E3 ho\u+00E0n t\u+1EA5t thi\u+1EBFt l\u+1EADp \u+0111\u+1EC3 AutoCAD nh\u+1EB9 h\u+01A1n\nB\u+1EA1n \u+0111\u+00E3 c\u+00F3 th\u+1EC3 s\u+1EED d\u+1EE5ng AutoCAD nh\u+1EB9 h\u+01A1n m\u+00E0 kh\u+00F4ng c\u+1EA7n l\u+00E0m th\u+00EAm g\u+00EC n\u+1EEFa."
)

(princ)
)

(c:spa)


___________________________________________________
Hỏi đáp thường gặp
Hỏi: Lisp này có rút ngắn thời gian khởi động không?
Trả lời: Lisp không rút ngắn thời gian khởi động, Lisp chỉ làm nhẹ thao tác vẽ của cad.

Hỏi: Lisp này hữu ích cho những AutoCAD phiên bản nào
Trả lời: Lisp chỉ có tác dụng với cad đời từ 2009 trở lên, ACAD 2008 trở xuống không có tác dụng.

Hỏi: Tôi phải load lisp này mỗi khi AutoCAD chạy hay chỉ cần chạy 1 lần duy nhất?
Trả lời: Bạn chỉ cần chạy 1 lần duy nhất vì lisp này tinh chỉnh cấu hình hệ thống, và lưu lại luôn.
___________________________________________________
Lịch sử các cập nhật:
2015-02-23:
- Phiên bản đầu
2015-02-27:
- Fix lỗi vlax-user-productkey
- Tự động chạy luôn mà không cần phải gọi SPA
2015-03-02:
- Fix lỗi chưa có biến hệ thống trên các phiên bản ACAD đời cũ
2015-03-23:
- Gỡ LWDISPLAY, PALETTEOPAQUE ra khỏi danh sách biến hệ thống
2015-08-27:
- Thêm COMMANDPREVIEW vào danh sách biến hệ thống
- Thêm (vl-load-com) vào code
2015-09-22:
- Sửa lại viewres về 200
2015-09-28:
- Thêm SELECTIONPREVIEW vào danh sách biến hệ thống
2015-10-08:
- Fix lỗi no function definition: VLAX-PRODUCTKEY
2015-10-20:
- Fix lỗi no function definition: VLAX-PRODUCTKEY lần 2
- Bẫy lỗi setvar
___________________________________________________


  • 16

#2 Dzzzung

Dzzzung

    biết zoom

  • Members
  • Pip
  • 19 Bài viết
Điểm đánh giá: 1 (bình thường)

Đã gửi 28 February 2015 - 08:47 AM

Em vừa thử trên acad 2012, kết quả như sau: Command: ap APPLOAD spa.lsp successfully loaded.  Command: SPA; error: no function definition: VLAX-USER-PRODUCT-KE. Bác Nguyen Hoanh xem thế nào.


  • 0

#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 28 February 2015 - 09:09 AM

Hàm VLAX-USER-PRODUCT-KEY chỉ có từ Cad2013. Chắc bạn đang dùng Cad thấp hơn?

Bạn thử thay VLAX-USER-PRODUCT-KEY bởi VLAX-PRODUCT-KEY xem sao.


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#4 hdb

hdb

    biết vẽ ellipse

  • Members
  • PipPip
  • 56 Bài viết
Điểm đánh giá: 9 (bình thường)

Đã gửi 28 February 2015 - 09:28 AM

Vote cho bác Hoanh một cái, Có khác biệt rất lới khi dùng Lisp SPA

 

115974_2.jpg


  • 0

#5 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 28 February 2015 - 11:20 AM

Em vừa thử trên acad 2012, kết quả như sau: Command: ap APPLOAD spa.lsp successfully loaded.  Command: SPA; error: no function definition: VLAX-USER-PRODUCT-KE. Bác Nguyen Hoanh xem thế nào.

Đã fix lỗi, bạn thử lại xem được chưa nhé.
  • 0

#6 Mũn xinh

Mũn xinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 1313 Bài viết
Điểm đánh giá: 633 (tốt)

Đã gửi 28 February 2015 - 02:16 PM

Em vừa thử trên cad 2014, chưa biết thế nào nhưng thời gian khởi động giảm đáng kể.


  • 0

...Một chiều ngồi say

Một đời thật nhẹ

Ngày qua...


#7 Hantinhsaycad

Hantinhsaycad

    biết lệnh adcenter

  • Members
  • PipPipPipPipPipPipPip
  • 1073 Bài viết
Điểm đánh giá: 376 (khá)

Đã gửi 01 March 2015 - 01:35 PM

Cad 2015 có nhanh hơn 

Nếu muốn quay về như cũ hoặc mặc định , dùng Lisp có bác nào giúp , tui mù món này

112313_nh_chp_m%C3%A0n_h%C3%ACnh_6.png


  • 0

Đừng để một ai chẳng nhận được gì khi rời chỗ bạn, cho dù bạn biết rằng không bao giờ gặp lại.

Ngạn ngữ Pháp


#8 tien2005

tien2005

    biết lệnh properties

  • Members
  • PipPipPipPip
  • 257 Bài viết
Điểm đánh giá: 94 (tàm tạm)

Đã gửi 02 March 2015 - 08:19 AM

mình dùng acad 2010 thì bị lỗi:

Command: ap APPLOAD spa.lsp successfully loaded.
Command: ; error: AutoCAD variable setting rejected: "HPDLGMODE" 1

 

Bác Hoành xem lại giúp


  • 0

#9 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 02 March 2015 - 08:45 AM

Có nhiều biến mà cad đời thấp chưa có >> thêm việc kiểm tra biến có tồn tại rồi mới setvar là được.


  • 1

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#10 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 02 March 2015 - 06:49 PM

mình dùng acad 2010 thì bị lỗi:

Command: ap APPLOAD spa.lsp successfully loaded.
Command: ; error: AutoCAD variable setting rejected: "HPDLGMODE" 1

 

Bác Hoành xem lại giúp

Đã fix,

bạn thử lại xem được chưa nhé.


  • 0

#11 minhtanx2

minhtanx2

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 03 March 2015 - 07:41 PM

Bác Hoành cho em hỏi, thực hiện lệnh SPA 1 lần, các biến hệ thống có được lưu lại cho các lần khởi động Cad tiếp theo hay vẫn phải gọi lại lệnh nếu muốn cad nhẹ hơn ở các lần khởi động sau. 

- Nếu em muốn đưa về cài đặt mặc định thì làm tn?


  • 0

Khi bạn tán tỉnh một cô gái đẹp, một giờ đồng hồ chẳng qua như một giây. Khi bạn ngồi trên một hòn than nóng bỏng, một giây như thể một giờ. Đó chính là tính tương đối. (Albert Einstein)


#12 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 03 March 2015 - 10:25 PM

Có lưu bạn ạ.
Bạn chỉ cần chạy 1 lần duy nhất.

Hiện nay chưa trà về mặc định được.
  • 0

#13 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5447 Bài viết
Điểm đánh giá: 2624 (tuyệt vời)

Đã gửi 03 March 2015 - 10:59 PM

Có biến "Save in drawing" cơ mà? VD: LWDISPLAY


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.


#14 minhtanx2

minhtanx2

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 3 (bình thường)

Đã gửi 04 March 2015 - 02:08 PM

 Command: spa ; error: no function definition: VLAX-PRODUCT-KEY

 

lỗi của em đó bác Hoành ạ, cad2012

Tuy báo lỗi nhưng vẫn thấy có tác động của lệnh vào pm


  • 0

Khi bạn tán tỉnh một cô gái đẹp, một giờ đồng hồ chẳng qua như một giây. Khi bạn ngồi trên một hòn than nóng bỏng, một giây như thể một giờ. Đó chính là tính tương đối. (Albert Einstein)


#15 anh2408

anh2408

    biết pan

  • Members
  • Pip
  • 9 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 04 March 2015 - 02:27 PM

Cad 2015 hinh nhu khong co tac dung


  • 0

#16 proconeng86

proconeng86

    biết lệnh break

  • Members
  • PipPipPipPip
  • 221 Bài viết
Điểm đánh giá: -9 (bình thường)

Đã gửi 13 March 2015 - 11:44 PM

Nhiều người sử dụng AutoCAD phiên bản mới trên các máy có cấu hình không cao. Hệ quả là máy sẽ giật và chậm.

Trong bài viết ACAD đời mới chạy trên máy đời cũ
Đã hướng dẫn cách làm nhẹ phần mềm AutoCAD, tuy nhiên, mỗi lần làm lại phải rà soát nhiều tên biến.

Lisp dưới đây với mục đích làm nhẹ AutoCAD bằng cách thay đổi các biến hệ thống, và thực hiện các lệnh để giảm bớt một số tính năng về hiển thị và quản lý trong AutoCAD nhưng về cơ bản không hạn chế các tính năng liên quan đến công việc của AutoCAD.

Tên lệnh là SPA (Speed uP Autocad), tuy nhiên chỉ cần appload file lisp 1 lần duy nhất mà không cần gọi lệnh.


(defun c:spa ( / svl cml rgl old x)
(setq
svl '(
("DYNMODE" . 0)
("QPMODE" . 0)
("DRAWORDERCTL" . 0)
("HPDLGMODE" . 1)
("UCSDETECT" . 0)
("LAYERDLGMODE" . 0)
("ROLLOVERTIPS" . 0)
("SELECTIONCYCLING" . 0)
("LAYERDLGMODE" . 0)
("HPQUICKPREVIEW" . 0)
("NAVVCUBEDISPLAY" . 0)
("NAVBARDISPLAY" . 0)
("INDEXCTL" . 3)
("GRIPOBJLIMIT" . 0)
("SIGWARN" . 0)
("PALETTEOPAQUE" . 1)
("SELECTIONAREA" . 0)
("MAXACTVP" . 5)
("LWDISPLAY" . 0)
("VTENABLE" . 0)
)

cml '(
(".IMAGEQUALITY" "DRAFT")
(".VIEWRES" "Y" "20")
)

rgl '(
("InfoCenter" "InfoCenterOn" 0)
)
)

(setq old (getvar "cmdecho"))
(setvar "cmdecho" 0)
(foreach x svl (if (getvar (car x)) (setvar (car x) (cdr x))))
(foreach x cml (mapcar 'command x))
(foreach x rgl (vl-registry-write (strcat "HKEY_CURRENT_USER" (chr 92) (if vlax-user-product-key (vlax-user-product-key) (vlax-product-key)) (chr 92) (nth 0 x)) (nth 1 x) (nth 2 x)))
(setvar "cmdecho" old)
(alert "\u+0110\u+00E3 ho\u+00E0n t\u+1EA5t thi\u+1EBFt l\u+1EADp \u+0111\u+1EC3 AutoCAD nh\u+1EB9 h\u+01A1n\nB\u+1EA1n \u+0111\u+00E3 c\u+00F3 th\u+1EC3 s\u+1EED d\u+1EE5ng AutoCAD nh\u+1EB9 h\u+01A1n m\u+00E0 kh\u+00F4ng c\u+1EA7n l\u+00E0m th\u+00EAm g\u+00EC n\u+1EEFa.")
(princ)
)
(c:spa)


--------------------
Lịch sử các cập nhật:
2015-02-23:
- Phiên bản đầu
2015-02-27:
- Fix lỗi vlax-user-productkey
- Tự động chạy luôn mà không cần phải gọi SPA
2015-03-02:
- Fix lỗi chưa có biến hệ thống trên các phiên bản ACAD đời cũ

 

Mình dùng CAD 2010 nhưng bị lỗi sau. bạn xem lại nhé

9928_loi_lisp_lam_nhe_cad.jpg


  • 0

#17 Nguyen Hoanh

Nguyen Hoanh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 4105 Bài viết
Điểm đánh giá: 4495 (đỉnh cao)

Đã gửi 23 March 2015 - 06:34 PM

Đã fix, bạn thử lại xem được chưa nhé.


  • 1

#18 hoquangvinh

hoquangvinh

    biết lệnh mirror

  • Members
  • PipPipPip
  • 154 Bài viết
Điểm đánh giá: 5 (bình thường)

Đã gửi 27 March 2015 - 11:18 AM

ở trên toàn dùng các phiên bản cad mới thôi, e muốn dùng cho cad 2007 thì có được ko bác

và nếu cad dùng được thì áp dụng vào phần mềm thiết kế đường (chạy trên nền cad 2007) thì có bị ảnh hưởng gì đến đối tượng cad ko ah


  • 0

#19 TRUNGNGAMY

TRUNGNGAMY

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 401 Bài viết
Điểm đánh giá: 91 (tàm tạm)

Đã gửi 27 March 2015 - 11:45 AM

Có vẻ như kg có tác dụng lắm. Mình sd dụng trên win 7 và xp.

Trên win 7 mở cad 2010-2013 lần đầu mất khoảng 30-45'' (máy mình yếu), từ lần 2 trở đi (ngay sau đó) nhanh hơn khoảng 5-10''. Sau khi chạy lisp trên vẫn kg cải thiện lắm.

Trên win xp lần đầu cũng khoảng thời gian như trên. lần 2 trở đi mất khoảng 4-7'' (từ lần 2 win xp chạy nhanh hơn win 7, mình chưa hiểu cơ chế nào lại như vậy mặc dù trên xp mình cài nhiều CT hơn trên win 7) . Sau khi chạy lisp trên vẫn thế.

Nói chung phải khởi động lại máy thì thấy có vẽ vẫn kg thay đổi lắm.


  • 1

#20 hoquangvinh

hoquangvinh

    biết lệnh mirror

  • Members
  • PipPipPip
  • 154 Bài viết
Điểm đánh giá: 5 (bình thường)

Đã gửi 27 March 2015 - 11:53 AM

thế là chỉ dùng cho cad đời cao hơn thôi, cad 2007 nó là cơ bản nhất và chạy cũng nhẹ nhất rồi


  • 0