Nhờ sửa Lisp chuyển Layer khi DIM
Em có lisp chuyển layer khi Dim. Nhưng khi Dim góc thì có 2 trường hợp chọn đối tượng line với trường hợp là chọn point. Với 2 lệnh tương ứng là DAN và DAN2.
Các bác giúp em gộp 2 lệnh đó thành một với. Cảm ơn các bác đã quan tâm.
(defun c:DLI ()(Command ".DIMLINEAR" pause pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ))
(defun c:DAl ()(Command ".DIMALIGNED" pause pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ))
(defun c:DDI ()(Command ".DIMDIAMETER" pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ))
(defun c:DRA ()(Command ".DIMRADIUS" pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ))
(defun c:DAR ()(Command ".DIMARC" pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ))
(defun c:DAN ()(Command ".DIMANGULAR" pause pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ))
(defun c:DAN2()(Command ".DIMANGULAR" "" pause pause pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ)) ; Dim goc lon hon 180 do
(Defun c:QD ()(Setvar "clayer" "DIM")(Prompt "\nChon doi tuong can Dim")(Setq ch (Ssget))(command "QDIM" ch "" Pause)(command "_LayerP")(Princ))
- Bạn phải đảm bảo là lisp đã được load
- Bạn mở file lisp bằng notepad và tìm đến dòng tương ứng giống như hình rồi thêm các lệnh của Bạn vào, khai báo tên layer cần chuyển (màu, linestyle, plot,...). Mặc định là đủ dùng rồi không cần thêm. Như hình mình có thêm các lệnh về dim "[Q]DIM*,DIM*,*LEADER,HO,VE,CON,D1,DPL,HOC,VEC" và tạo ở layer "_DIM". Khi thay đổi xong thì lưu file lại và load lisp và dùng thôi