[LISP程序]：如何批量处理图纸？

jtybzl

您的程序很好用，但我现在只想自己用lisp来开发这样的功能？不知能否行的通？

lgh930

(vl-load-all "***.lsp")
      (foreach i list3
       (vlopen (strcat f1 "\\" i) nil) (vlclose (strcat f1 "\\" i))
      )
      (command "quit")
***.lsp 为打开每张图后须执行的LSP，LIST3 为图纸文件名表
F1为路径名 I为图纸文件名，VLOPEN 为打开文件函数，
VLCLOSE 为存盘函数，以上可实现你所要的功能。

jtybzl

真是不容易啊，总算达到目标了，不过还是要感谢大家的帮助了，楼上的兄弟方法不错，但那两个vlopen，vlclose函数，我不知该如何去写，可否给予提示？下面还是用我的土办法，但效果还不错，能够完成批量处理的目的了。
(defun c:ee()
  (vl-load-com)
  (vl-load-all "wba.lsp");wba为块提取的lisp程序
  (setq f1 "f:\\inax" f2 "f:\\kk")
  (SetQ list3 (VL-Directory-Files f1 "*.dwg"))
  (setq f (open "f:\\mm\\aa.txt" "w"))
  (SetQ list3 (VL-Directory-Files f1 "*.dwg"))
  (setq k 0)
  (while (/= nil (nth k list3))
    (setq dwname (nth k list3))
    (setq k (1+ k))
  (write-line dwname f))
  (close f)
  (iopen list3)
;(command "quit")
  )

(Defun IOpen (iname)
       ;(SetVar "filedia" 0)
       (SetQ sf (Open "f:\\iopen.scr" "w"))
       (ForEach sn iname (Write-Line (StrCat "open " f1 "\\" sn "\n"
                                             "(" "load " "\"wba.lsp\"" ")" "\n"
                                             "wba" "\n" "close " "y") sf))
       (Close sf)
       (Command "script" "f:\\iopen")
       ;(SetVar "filedia" 1)
)

L12196

jtybzl 发表于 2002-7-27 10:25
真是不容易啊，总算达到目标了，不过还是要感谢大家的帮助了，楼上的兄弟方法不错，但那两个vlopen，vlclos ...

JTYBZL你好，请教下自编的程序中有对话框的介入（需要在对话框选择内容）再批量的插入指定点的话用LISP怎么做批量！