LISP Kiểm tra và thay đổi các biến số điều khiển trong cad

[Leeboow 0]

Các bro cho mình hỏi có lisp nào phục vụ cho việc check các biến điều khiển trong cad không nhỉ?

Ví dụ như: lệnh PSL, LTS, MEASURMENT,... 

Mình muốn kiểm tra xem các biến này có được set về hệ số 1 chưa. Nhưng gõ từng lệnh để check và mở từng bản vẽ lên thì khá lâu.

Không biết có lisp nào check cùng lúc nhiều bản vẽ cho các lệnh này không nhỉ.

Đồng thời nếu chỉnh sửa hàng loạt về giá trị nào đó thì càng tuyệt với.

Mong các huynh chỉ giáo.

 

[Doan Van Ha 3.201]

14 phút trước, Leeboow đã nói:

Các bro cho mình hỏi có lisp nào phục vụ cho việc check các biến điều khiển trong cad không nhỉ?

Ví dụ như: lệnh PSL, LTS, MEASURMENT,... 

Mình muốn kiểm tra xem các biến này có được set về hệ số 1 chưa. Nhưng gõ từng lệnh để check và mở từng bản vẽ lên thì khá lâu.

Không biết có lisp nào check cùng lúc nhiều bản vẽ cho các lệnh này không nhỉ.

Đồng thời nếu chỉnh sửa hàng loạt về giá trị nào đó thì càng tuyệt với.

Mong các huynh chỉ giáo.

 

Màu xanh: dùng lệnh sysvdlg >> save all >> đọc giá trị tất cả biến hệ thống, còn biến môi trường thì phức tập hơn.
Màu vàng: câu này mênh mông bát ngát, không nói khơi khơi được

[Leeboow 0]

Wao, hay quá bro ơi. cảm ơn rất nhiều nhé. Bài viết của huynh hay và vô cùng hữu ích luôn.
Không biết huynh có cách nào check tương tự cho các lệnh PURGE, UNITS và STYLE không nhỉ?

Chân thành cảm ơn huynh

[Doan Van Ha 3.201]

2 phút trước, Leeboow đã nói:

Wao, hay quá bro ơi. cảm ơn rất nhiều nhé. Bài viết của huynh hay và vô cùng hữu ích luôn.
Không biết huynh có cách nào check tương tự cho các lệnh PURGE, UNITS và STYLE không nhỉ?

Chân thành cảm ơn huynh

Câu hỏi sai: một bên là lệnh, 1 bên là biến. Với 1 lệnh có thể có rất nhiều biến liên quan. Với 1 biến cũng có nhiều lệnh liên quan.
Nói chung không thể đem mạ ngoài đồng mà nấu cơm được.

[Leeboow 0]

Vậy mình có cách nào mở một table trong đó bao gồm Units, Text style để hiệu chỉnh nhanh trong đó không huynh?

[tannguyen291 142]

Có một cách ngày xưa vẫn hay dùng để fix nhiều bản vẽ cùng lúc.

viết 1 lisp chạy trực tiếp khi load dùng để làm gì đó cuối lệnh là save và close bản vẽ

mở cad cài startup suite tìm đến file lisp (tự động load lisp khi mở bản vẽ đó). 

mở toàn bộ file dwg muốn fix là xong.

đổi tên file lisp hoặc xoá đi để không chạy lisp đó nữa.

[Leeboow 0]

đúng rồi huynh. Em đang tìm một lisp như vậy. Ngặt nỗi là không biết viết lisp :(. 

Huynh có lisp đó không? share em với

[tannguyen291 142]

nó chỉ như này thôi:

bạn tự thêm tên biến và giá trị là được viết kiểu dạng (tênbiến giátrị) vào giữa là được

(mapcar

  '(lambda (x) (setvar (car x) (cadr x)))

  '(

    (OSMODE 0)

    (LTSCALE 2)

    ;thêm bao nhiêu nữa thì viết tiếp ở chỗ này

  )

)

(command "QSAVE" "CLOSE")