请问一下lisp可不可以直接打开上次关闭的dwg文件

masterlong

信你的邪
乱刀直接设成自启动不就完了

自贡黄明儒

Andyhon 发表于 2016-7-13 11:17
个人的系统设有 RamDisk , 其内有 Temp  , 常用来作跳板...

长老能说长一点么？

Andyhon

比如冲模设计中常有展开计算,其中会用到一个表格,程序启动伊始即将之Copy至RamDisk
此后一连串的计算皆免去 HDD 作读取

又如一些脚本档,也会写至RamDisk再启动...

669423907

自贡黄明儒 发表于 2016-7-13 11:06
具体怎么做的，完整代码分享一下3

;打开最近关闭的dwg Sylvanas 2016-7-4 http://bbs.mjtd.com/thread-172638-1-1.html
(defun c:()
  (setq ffn "C:\\RECYCLER\\S-1-5-18\\openfile.scr"
        ff (open ffn "w")
        )
  (write-line "open \"\"" ff)
  (close ff)
  (command "script" ffn)
  )

自贡黄明儒

669423907 发表于 2016-7-13 21:11
;打开最近关闭的dwg Sylvanas 2016-7-4 http://bbs.mjtd.com/thread-172638-1-1.html
(defun c:()
  (s ...

没明白你这个程序有什么用处，能解释一下么？
(open ffn "w")是打开文件写，你是打开回收站内的一个文件写入了open "" 文件？

669423907

自贡黄明儒 发表于 2016-7-14 08:17
没明白你这个程序有什么用处，能解释一下么？
(open ffn "w")是打开文件写，你是打开回收站内的一个文件 ...

程序是Sylvanas大师写的啊，就是打开最近关闭的dwg文档，我只是改了一下路径而已，改这个路径的目的就是消除程序产生的openfile.scr文件。其实回收站只是一个特殊的文件夹，我是在用creo（3D软件）的时候发现回收站有这个特殊功能的。
或者用lsp调用vbs删除openfile.scr也可以。
vbs代码：
Wscript.Sleep 2000  '这一行表示2秒后继续执行下面的动作
Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\openfile.scr")  '这是openfile.scr位置

cad结合vbs或bat，就可以一边操作cad，另外一边的工作就交给vbs或bat自动去做了，互不干扰
再次非常感谢黄大给与我以及好多网友热情帮助