NguyenMinh88 5 Báo cáo bài đăng Đã đăng Tháng 12 4, 2024 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) ) Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác
quangcda 9 Báo cáo bài đăng Đã đăng Tháng 12 4, 2024 Chắc không có lệnh vbastmt! Chia sẻ bài đăng này Liên kết tới bài đăng Chia sẻ trên các trang web khác