- *** Khắc phục việc cài Speed cad thay đổi lệnh Cad & Dimlfac lệnh DIM nâng cao (Không cần tạo nhiều kích thước)

* Lệnh Dimlfac

    Trong Cad mặc định là [1], giá trị của Dim sẽ nhân với giá trị hiện thời của Dimlfac. 

• Ban đầu bạn vẽ mặt bằng tỉ lệ:1/100 thì lệnh Dimlfac giữ nguyên và bạn Dim tất cả các kính thước. 

• Sau đó chi tiết nào bạn cần có tỉ lệ:1/20, tức là bạn Scale chi tiết đó lên 5 lần ---> Chỉ cần nhập Dimlfac với giá trị là 1/5=0.2 xong rồi bạn cứ Dim bình thường với tỉ lệ 1/100 cho chi tiết 1/20 ( Dim 1/100 vẫn đúng cho tỉ lệ 1/20 )

    Để kiểm tra Dimlfac của một bản vẽ mà trước đó họ đã thay đổi: Bạn có thể chọn kích thước cần kiểm tra, đánh lệnh PR chọn tap primary units, nhìn thông số DIM SCALE LINER nếu khác 1 có nghĩa là kích thước này đã bị thay đổi dim scale. 

* Khắc phục việc cài Speed cad thay đổi lệnh Cad

• Khởi động cad.exe

• Sử dụng dòng lệnh ap, sẽ xuất hiện bảng Load/Unload Applications, sẽ thấy một tệp tin có tên là: lenhCAD.lsp được load. Xem đường dẫn nó ở đâu, vào đấy mở nó lên, có nội dung sau:

Những chổ màu đỏ là đã được sửa lại OK.

;;;======== MOT SO LENH AUTOCAD THAY DOI =========

PURGE

(defun c:qe ()  (command "PURGE" "A" "*" "N"))

(defun c:AD ()  (command "AUDIT" "Y"))

(defun c:cv ()  (command "convert" "a" "a" ))

;******************************************************************************

(defun c:co  () (ssget) (command "copy" "p" "" "m"))

(defun c:C () (command "CIRCLE"))

(defun c:DLI () (command "DIMLINEAR"))

(defun c:DCO () (command "DIMCONTINUE"))

(defun c:DDI () (command "DIMDIAMETER"))

(defun c:DRA () (command "DIMRADIUS"))

(defun c:DAL () (command "DIMALIGNED"))

(defun c:DAN () (command "dimangular"))

(defun c:DF () (command "DIMLFAC"))

(defun c:R () (command "REGEN"))

(defun c:RO () (command "ROTATE"))

(defun c:RE () (command "RECTANG"))

(defun c:T () (command "TEXT"))

(defun c:MA () (command "MATCHPROP"))

(defun c:L () (command "LINE"))

(defun c:ex () (command "EXTEND"))

(defun c:o () (command "OFFSET"))

(defun c:tr () (command "trim"))

(defun c:tf () (ssget) (command "trim" "p" "" "f"))

;******************************************************************************

Cac lenh trong CAD

(defun c:r90 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "90"))

(defun c:r-90 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "-90"))

(defun c:r45 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "45"))

(defun c:r-45 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "-45"))

(defun c:r30 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "30"))

(defun c:r-30 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "-30"))

(defun c:r60 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "60"))

(defun c:r-60 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "-60"))

(defun c:r180 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "180"))

(defun c:r-180 (/ ss1)

  (setq ss1 (ssget))(command "rotate" ss1 "" pause "-180"))

;******************************************************************************

;ZOOM

(defun c:zz ()  (command "'.zoom" "p"))

(defun c:zw ()  (command "'.zoom" "w"))

(defun c:ze ()  (command "'.zoom" "e"))

(defun c:za ()  (command "'.zoom" "a"))

******************************************************************************

;OSNAP

(defun c:oc () (command "osnap" "cen")(princ))

(defun c:oe () (command "osnap" "end")(princ))

(defun c:oi () (command "osnap" "int")(princ))

(defun c:or () (command "osnap" "per")(princ))

(defun c:on () (command "osnap" "near")(princ))

(defun c:oq () (command "osnap" "qua")(princ))

(defun c:om () (command "osnap" "mid")(princ))

;******************************************************************************

• Xoá những tập lệnh ap load không cần thiết.

• Tắt cad & Khởi động lại.