如何用LISP程序 返回所有外部参照的路径

ayunger

ayunger

;;;****************************************
;;; 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

tony911

有创意，正需要这个呢

tjuzkj

现在单位推行协同设计，用的就是外部参照，有用的呀！