[求助]如何写出一个文件中所有的块？？？？

ld8109

一个dwg文件含有几十个块，分别另存为文件？0,0点输出。文件名为块名。求助老大们帮忙！！

Andyhon

    (defun table (s / d r)
       (while (setq d (tblnext s (null d)))
         (setq r (cons (cdr (assoc 2 d)) r))
       )
    )
;; ==============

(foreach blk (table "Block") (command "wblock" blk "="))

blk 可加指定的存放路径

另请参考 Expert  System Variable 的帮助