lisp cập nhật các trường dữ liệu trong nhiều layout

Áp dụng cho các trường bảng tạo bởi lệnh TABLE và trường dữ liệu tạo bởi lệnh ATT . Dùng để thay đổi dữ liệu trong tất cả các layout (thực hiện hàng loạt).

;; Cập nhật trường toàn bộ bảng trong các layout
(defun c:table_update ( / layname )
  (vl-load-com)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  ;; Lặp qua tất cả layout
  (vlax-for lay (vla-get-Layouts doc)
    (setq layname (vla-get-Name lay))
    (if (not (wcmatch (strcase layname) "*MODEL*")) ; bỏ qua Model nếu muốn
      (progn
        (vla-put-ActiveLayout doc lay)
        (command "_.UPDATEFIELD" "_ALL" "")
      )
    )
  )
  ;; Cuối cùng về lại layout ban đầu
  (princ "\nĐã cập nhật tất cả Field ở mọi layout.")
  (princ)
)