Nhờ sửa lisp "Quick Refedit"

[flashygrandpa 0]

Em có 1 cái lisp dùng để refedit nhanh 1 block bằng cách bỏ qua các bước trung gian để nhảy thẳng vào block. Khổ nỗi nó chỉ hoạt động khi pre-select nên chỉ vào nhanh được 1 tầng block. Giờ em muốn sửa cho nó dùng được khi post-select để có thể nhảy nhanh qua nhiều tầng block. Mong các cao nhân chỉ giúp.

Quote

(defun C:QRE () ;Quick Reference Edit
  (if *refedit1st
    (command "_.-REFEDIT" "_Ok" "_All" "_No")
    (progn
      (setq *refedit1st T)
      (initdia)
      (command "_.REFEDIT")))
  (princ)
)