yang686526

如何用lisp程序 返回所有外部参照的路径
www.dimcax.com

通过工具菜单->加载应用程序 可加载该程序，然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序，则可以将该文件放在启动组中。
文件预览:
d
;;;****************************************
;;; no.3 返回所有外部参照的路径名称 函数
;;;****************************************
(defun c:ayxreflist (/ blkent blkname blkpath lst i)
(vl-load-com)
(setq i 1)
(princ "\n 图形数据库外部参照路径(xref)名称列表")
(princ "\n------------------------------------------------------------------------------")
(while (setq blkent (tblnext "block" (not blkent)))
(setq blkname (cdr (assoc 2 blkent)))
(setq blkpath (cdr (assoc 1 blkent)))
(if (/= blkpath "")
(progn
(setq i (+ i 1))
(princ (strcat "\n[" (itoa i) "] " blkname " " blkpath))
;(setq lst (append lst (list (list blkname blkpath))))
);end_progn
);end_if
);end_while
(princ "\n------------------------------------------------------------------------------")
(textscr)
(princ)
);end_defun
d
有创意，正需要这个呢
d