Nhờ các bạn xem lisp này giúp

[NguyenMinh88 5]

Xin chào các bạn !

lisp này không chạy được .

Nhờ chỉnh giúp !

xin cám ơn.

(defun c:xref (/ ent_list x-nam x-ref x-path x)
  (setvar
"cmdecho" 0)
 (defun *error* (msg)
   (command
"xref" "r" x-nam)
   (princ msg)

   (princ)
 )
  (setq ent_list
(entget (car (entsel "\nXREF Edit\nOpens selected XREF for editing.\nSelect
Xref to edit:"))))
  (setq x-nam (cdr (assoc 2 ent_list)))

  (setq x-ref (tblsearch "block" x-nam))
  (setq
x-path (cdr (assoc 1 x-ref)))
  (command "xref" "u" x-nam)

  (command "vbastmt" (strcat "AcadApplication.Documents.Open "
(chr 34) x-path (chr 34)))
  (setq x (getkword "\nPress
<ENTER> to reload XREF:"))
  (command "xref" "r" x-nam)

  (princ)
)

[quangcda 9]

Chắc không có lệnh vbastmt!