[编程申请]：xdsoft:这是我的程序！打印为实现大家一起编吧！

lgw

(defun c:printall ()
   (Progn
   (vl-file-delete "d:/arx/print.scr")
   (setq f1 (open "d:/arx/print.scr" "a"))
   (setq i 0)
   (setq d1 "d:/arx/")
   (setq d2 "open d:/arx/")
  
   (setvar "filedia" 0)
   (vl-load-com)
   (setq list1 (vl-directory-files d1 "*.dwg"))
   (setq leng (vl-list-length list1))
   (while (< i leng)
   (progn
   (setq n1 (nth i list1))
   (setq name1 (strcat d2 n1))  
   (write-line name1 f1)
   ;;(write-line "plot n " f1)
   (setq i (+ i 1))
);;end progn
);end while
(close f1)
(command "script" "d:/arx/print.scr")
);end progn
(princ)

);end defun